Giúp mình xem code mình với
tqcuong > 04-09-14, 12:05 PM
MÌnh đang làm 1 form điều động nhân sự Các bạn giúp mình xem code này với nó cứ báo lỗi "Runtime-eror 3021" No current record
Private Sub Cmd_Dieudong_Click()
Dim DK As String
If IsNull(Me.MANV) Or Me.MANV = "" Then
MsgBox "Vui long nhap User Name", vbOKOnly, "Thong bao"
Me.MANV.SetFocus
Else
Dim HOI
DK = Me.MANV
HOI = MsgBox("BAN CO CHAC CHAN DIEU DONG NHAN SU NAY KHONG?", vbOKCancel, "Thoâng baùo")
If (HOI = vbOK) Then
Dim db As DAO.Database
Dim TB As DAO.Recordset
Set db = CurrentDb
Set TB = db.OpenRecordset("NHANVIEN", DB_OPEN_TABLE)
TB.Index = "PRIMARYKEY"
TB.Seek "=", DK
TB.Edit "Lỗi chỗ này"
TB!MAPB = Me.PBMOI
TB!MACV = Me.CVMOI
TB!LUONGCB = Me.LUONGMOI
TB.Update
End If
End If
End Sub