hueqlhc > 26-03-13, 11:27 AM
Private Sub Command7_Click()
On Error GoTo Err_Command7_Click
Dim soCT As Integer
DoCmd.GoToRecord , , acNewRec
soCT = Nz(DMax("[Manhankhau]", "Nhankhau"))
Couter.Value = soCT + 1
Manhankhau = Format(Couter, "000000000")
Exit_Command7_Click:
Exit Sub
Err_Command7_Click:
MsgBox Err.Description
Resume Exit_Command7_Click
End Sub