Đá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
  Load file định dạng .pdf lên form kutieu2016 4 106 21-04-17, 10:17 AM
Bài mới nhất: lmthu
  [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 5 156 19-04-17, 06:29 PM
Bài mới nhất: tranthanhan1962
  Hướng Dẫn Cách lưu (back up database) dữ liệu! danhxetnghiem 22 3,552 17-02-17, 06:02 PM
Bài mới nhất: MTNQ
Photo Lỗi hàm Sum trong Report va ngày tháng trên Form ! vocan 3 215 09-01-17, 06:19 PM
Bài mới nhất: maidinhdan
  Lỗi không tạo file mới bằng định dạng .mdb feeling 4 262 29-11-16, 04:22 PM
Bài mới nhất: feeling

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ơ