chihienphuco > 13-01-11, 06:00 PM
Trích dẫn:Private Sub HDMOI_Click()
DoCmd.GoToRecord , , acNewRec
Dim CSDL As Database, TBL As Recordset
Set CSDL = CurrentDb
Set TBL = CSDL.OpenRecordset("T10 HDMAIN", dbOpenSnapshot)
If TBL.RecordCount <> 0 Then
TBL.MoveLast
MAQLHD = Format(Val(TBL!MAQLHD) + 1, "000000")
Else
MAQLHD = "000001"
End If
MADV = "A"
MANV = "A"
DoCmd.RunCommand acCmdSaveRecord
TBL.Close
CSDL.Close
MANV.SetFocus
MANV.Dropdown
End Sub