pherotao > 21-12-17, 11:07 PM
Dim DB As DAO.Database
Dim rs As DAO.Recordset
Dim tt As Integer
Private Sub Them_Click()
On Error GoTo Err_Them_Click
DoCmd.GoToRecord , , acNewRec
Set DB = CurrentDb()
Set rs = DB.OpenRecordset("T_NhanVien", dbOpenDynaset)
tt = DCount("MaNV", "T_NhanVien")
For i = 1 To tt
rs.Edit
rs!MaNV = "NV" & Right("00000" & i, 5)
rs.Update
rs.MoveNext
Next
rs.Close
DB.Close
Exit_Them_Click:
Exit Sub
Err_Them_Click:
MsgBox Err.Description
Resume Exit_Them_Click
End Sub