Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
tạo 1 cơ sơ dữ liệu từ cơ sở có sẵn và đặt tên có dạng baocaongay/thang/nam.
#1
Giúp mình với mình có 1 cơ sở dữ liệu access mình tạo thành có sỡ dữ liệu khác bằng cách tạo các table báo cáo, phần này đã làm xong, nhưng khi xuất cái tên file bắt buộc phải có dạng như sau: baocao01022012.Nhưng làm theo cách này:
Private Sub x_Click()
Dim dd As String
Call THUMUC
bcngay = "baocao" & Trim(Day(Me!ngay)) & Trim(Month(Me!ngay)) & Trim(Year(Me!ngay))
dd = "d:\filecapnhatweb\" & bcngay & ".mdb"
If Len(Dir(dd)) = 0 Then
Set W = DBEngine.Workspaces(0)
Set db = W.CreateDatabase(dd, dbLangGeneral, dbEncrypt)
End If
khi xuất ra nếu ngày 1 tháng 1 năm 2012 nó chỉ xuất ra dạng baocao112012 trong khi cái mình cần là baocao01012012.
Bạn nào giúp mình với.
Chữ ký của com031082 Xin chào, mình là com031082, Tham gia http://thuthuataccess.com/forum từ ngày 16-03 -12.
Reply
Những người đã cảm ơn
#2


Mã:
bcngay = "baocao" & Trim(Day(Me!ngay)) & Trim(Month(Me!ngay)) & Trim(Year(Me!ngay))
Bạn sửa lại là
Mã:
bcngay = "baocao" & format(Me!ngay,"ddmmyyyy")
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
Bạn thử theo cách sau nhé :
bcngay="baocao" & Trim(iif(Day(me!ngay)<10,"0" & day(me!ngay),day(me!ngay))) & Trim(iif(month(me!ngay)<10, "0" & month(me!ngay),month(me!ngay))) & Trim(year(me!ngay))

ủa, lại chậm nữa ^^!
Chữ ký của hoanglonglangtu Chiều tắt nắng trên con đường quen thuộc
Mưa rơi buồn qua ngõ vắng không em
Từng hạt ngọc rơi đùa qua kẽ lá
Những giọt tràn đầy ngõ ngách tâm tư
Em có biết chiều nay anh vẫn nhớ
Ở nơi nào em có nhớ chăng anh

Trên đời có quá nhiều chữ nếu,đáng tiếc là đều đã qua,việc đã xảy ra,hối hận cũng vô dụng
ღღღღღTài sản của hoanglonglangtu (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Sao lưu file MDB và tạo lệnh phục hồi dữ liệu hoangminh 5 171 17-08-17, 03:54 PM
Bài mới nhất: cpucloi
  [Hỏi] Hỏi về việc khóa dữ liệu , khóa subform toidjtjmtoi 8 319 27-07-17, 05:12 PM
Bài mới nhất: ongke0711
  Hướng Dẫn Cách lưu (back up database) dữ liệu! danhxetnghiem 26 4,863 05-06-17, 02:05 AM
Bài mới nhất: MTNQ
  [Help] Bẫy lỗi tiếng Việt trùng dữ liệu khi bấm nút Lưu trên Form ongke0711 7 460 12-05-17, 07:10 PM
Bài mới nhất: maidinhdan
  Thiết lập tham số nhập liệu và báo cáo feeling 3 271 30-04-17, 03:09 AM
Bài mới nhất: tranthanhan1962

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ