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 :
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.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