giúp mình số chứng từ tự động tăng khi nhấn nút thêm

[seomxh01]

mình có mainform & subform, trong đó có REC là khoá, còn số chứng từ là kiểu số.

mình thiết kế có 1 nút thêm có dạng như sau :

Private Sub cmdthem_Click()
On Error GoTo Err_cmdthem_Click

DoCmd.GoToRecord , , acNewRec
SOCT.SetFocus
SOCT = Format(DCount("B01 CHI TIET THU CHI.SOCT", "B01 CHI TIET THU CHI", Not (SOCT) = Null) + 1, "000")
DoCmd.GoToControl "MACTX"

Exit_cmdthem_Click:
Exit Sub

Err_cmdthem_Click:
MsgBox Err.Description
Resume Exit_cmdthem_Click

End Sub

khi nhấn nút thêm xuất hiện lỗi. giúp mình phát.

View more random threads:

• File access bị lỗi, xin cứu gấp
• Help!!!xin các bác chỉ giáo về việc tự động refresh dữ liệu
• Nhiều người cùng nhập dữ liệu vào 1 form trong access 2007
• Xin Quản lý Xuât - Nhập - Tồn bằng access (file .mdb)
• Giúp mình tạo lệnh Query trong access 2007
• Giúp em câu này với mọi người
• Giúp mình tra cứu giao dịch chỉ với tháng/năm
• Hướng dẫn về access
• xin giúp mình vài vấn đề trong access 2003
• help me !!!! help me !!!

[honghoa]

Ðề: giúp mình số chứng từ tự động tăng khi nhấn nút thêm

mình có mainform & subform, trong đó có REC là khoá, còn số chứng từ là kiểu số.

mình thiết kế có 1 nút thêm có dạng như sau :

khi nhấn nút thêm xuất hiện lỗi. giúp mình phát.

Theo câu báo lỗi thì khả năng nó báo lỗi ở một text box nào đó có Control Source là Count(B01 CHI TIET THU CHI.SOCT). Về cú pháp thì rõ ràng là sai vì tên của bảng có khoảng trắng. Như thế bạn phải bỏ trong cặp ngoặc vuông: Count([B01 CHI TIET THU CHI].SOCT).

Trong đoạn code của bạn, thật tình tôi thấy hơi vương vướng. Theo tôi, bạn nên sửa lại:

Dim somax
somax = DMAX("SOCT", "B01 CHI TIET THU CHI", "SOCT Is Not Null)
If IsNull(somax) Then
SOCT = "001"
Else
SOCT = Right("000 & Trim(Str(Val(somax) + 1), 3)
End If

[nhadatso1]

Ðề: giúp mình số chứng từ tự động tăng khi nhấn nút thêm

Theo câu báo lỗi thì khả năng nó báo lỗi ở một text box nào đó có Control Source là Count(B01 CHI TIET THU CHI.SOCT). Về cú pháp thì rõ ràng là sai vì tên của bảng có khoảng trắng. Như thế bạn phải bỏ trong cặp ngoặc vuông: Count([B01 CHI TIET THU CHI].SOCT).

Trong đoạn code của bạn, thật tình tôi thấy hơi vương vướng. Theo tôi, bạn nên sửa lại:

Dim somax
somax = DMAX("SOCT", "B01 CHI TIET THU CHI", "SOCT Is Not Null")
If IsNull(somax) Then
SOCT = "001"
Else
SOCT = Right("000" & Trim(Str(Val(somax) + 1)), 3)
End If

cảm ơn bạn rất nhiều.