Đá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
  Lỗi không tạo file mới bằng định dạng .mdb feeling 4 86 29-11-16, 04:22 PM
Bài mới nhất: feeling
  [Help] Thiết kế form nhập và lưu trữ dữ liệu theo yêu cầu brianhuynh 16 624 20-10-16, 10:54 PM
Bài mới nhất: brianhuynh
  Xóa tất cả các dữ liệu ChiMai 3 145 15-10-16, 02:47 PM
Bài mới nhất: cpucloi
  Hướng Dẫn Cách lưu (back up database) dữ liệu! danhxetnghiem 20 2,910 07-08-16, 04:40 PM
Bài mới nhất: maidinhdan
  [Help] Nhờ các bạn phục hồi dữ liệu tringuyen 2 129 21-07-16, 06:54 PM
Bài mới nhất: zinzin8x

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ơ