Giúp đỡ: Số chứng từ tự động tăng?

[xiketuan]

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.

 

[dzung]

xem lại line này
SOCT = Format(DCount("[B01 CHI TIET THU CHI].SOCT", "[B01 CHI TIET THU CHI]", Not (SOCT) = Null) + 1, "000")