tạo 1 cơ sơ dữ liệu từ cơ sở có sẵn và đặt tên có dạng baocaongay/thang/nam.
tạo 1 cơ sơ dữ liệu từ cơ sở có sẵn và đặt tên có dạng baocaongay/thang/nam.
com031082 > 16-03-12, 11:17 AM
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.
RE: tạo 1 cơ sơ dữ liệu từ cơ sở có sẵn và đặt tên có dạng baocaongay/thang/nam.