samacxanh > 04-11-18, 03:05 PM
maidinhdan > 09-11-18, 11:52 AM
(04-11-18, 03:05 PM)samacxanh Đã viết: E đang cần file Demo này trên bản Access 64bit. Bác nào có cho e xin với ạ.
E cần số thứ tự reset theo tháng ạ.
Mail e: doanhung.hust@gmail.com
samacxanh > 11-11-18, 04:07 PM
(09-11-18, 11:52 AM)maidinhdan Đã viết:Thank bác.(04-11-18, 03:05 PM)samacxanh Đã viết: E đang cần file Demo này trên bản Access 64bit. Bác nào có cho e xin với ạ.
E cần số thứ tự reset theo tháng ạ.
Mail e: doanhung.hust@gmail.com
Trả lời:
Demo này được viết trên Access 32bit, để có thể sử dụng trên bản 64bit, bạn tạo file Access 64bit sau đó Import qua là ok.
Thân mến!
mrsiro > 11-11-18, 04:20 PM
mrtoanbin > 12-11-18, 01:59 PM
maidinhdan > 13-12-18, 01:20 PM
Trích dẫn:tới:so siro <Sirolichking15@gmail.com>,
Toan Nguyen <nguyentrungtoan0288@gmail.com>
ngày:12:20, 13 thg 12, 2018
drthaodean > 09-01-19, 12:44 PM
drthaodean > 12-01-19, 11:01 AM
Private Sub cmdthem_Click()
Dim SoAo
If Year(Now) = DLast(Year([Ngaynhan]), "tbl_BBGiaoNhan_Main") Then
Docmd.GoToRecord , , acNewRec
SoAo = DLast("[SoBN]", "tbl_BBGiaoNhan_Main")
SoBN = Format(SoAo + 1, "#")
Me.SoLuu.Value = Me.SoBN.Value & "/" & Year(Now) & "/GBN-TTPY"
Me.Dienthoaidelienhe.Value = DLast("[Dienthoaidelienhe]", "tbl_BBGiaoNhan_Main")
Me.Tennguoinhan.SetFocus
Else
Docmd.GoToRecord , , acNewRec
Me.SoBN.Value = "1"
Me.SoLuu.Value = "1" & "/" & Year(Now) & "/GBN-TTPY"
Me.Tennguoinhan.SetFocus
End If
End Submaidinhdan > 07-05-19, 03:41 PM
(12-01-19, 11:01 AM)drthaodean Đã viết: Chào anh maidinhdan,
Em có download file "demo STT tang dan va reset moi nam" của anh nhưng khi nhấn vào button Thêm thì xuất hiện lỗi Run-time error '2105'. Thường lỗi xuất hiện ở một số ngẫu nhiên nào đó và không cho tạo thêm Record mới. Em đã thử xóa tất cả Record trên table nhưng lỗi vẫn xuất hiện ở dòng
If Year(Now) = DLast(Year([Ngaynhan]), "tbl_BBGiaoNhan_Main") Then
Docmd.GoToRecord , , acNewRec
Anh xem lại đoạn code giúp em nhé. Cám ơn anh.
Mã:Private Sub cmdthem_Click()
Dim SoAo
If Year(Now) = DLast(Year([Ngaynhan]), "tbl_BBGiaoNhan_Main") Then
Docmd.GoToRecord , , acNewRec
SoAo = DLast("[SoBN]", "tbl_BBGiaoNhan_Main")
SoBN = Format(SoAo + 1, "#")
Me.SoLuu.Value = Me.SoBN.Value & "/" & Year(Now) & "/GBN-TTPY"
Me.Dienthoaidelienhe.Value = DLast("[Dienthoaidelienhe]", "tbl_BBGiaoNhan_Main")
Me.Tennguoinhan.SetFocus
Else
Docmd.GoToRecord , , acNewRec
Me.SoBN.Value = "1"
Me.SoLuu.Value = "1" & "/" & Year(Now) & "/GBN-TTPY"
Me.Tennguoinhan.SetFocus
End If
End Sub