quan_pc > 26-05-11, 03:28 PM
Cafe Via He > 26-05-11, 04:14 PM
Private Sub nutthem_Click()
If Me.txtMaTG = DLookup("MaTG", "tblTacGia", "MaTG='" & Me.txtMaTG & "'") Then
DoCmd.CancelEvent
MsgBox "Bi trung ma, nhap ma khac"
Else
DoCmd.GoToRecord , , acNewRec
End If
End Sub
quan_pc > 26-05-11, 07:39 PM
(26-05-11, 04:14 PM)Cafe Via He Đã viết: Bạn k upload file của bạn thì mọi người khó giúp bạn đầy đủ nhất. Mình chỉ đưa ví dụ thôi.Anh ơi em chưa hiểu ý anh lắm !!! RecordSource là tblTacGia, trong đó có texbox tên là txtMaTG có Control Source là MaTG. là gì!!!
Giả sử form của bạn có RecordSource là tblTacGia, trong đó có texbox tên là txtMaTG có Control Source là MaTG.
Đại loại câu lệnh nó thế này.
Mã:Private Sub nutthem_Click()
If Me.txtMaTG = DLookup("MaTG", "tblTacGia", "MaTG='" & Me.txtMaTG & "'") Then
DoCmd.CancelEvent
MsgBox "Bi trung ma, nhap ma khac"
Else
DoCmd.GoToRecord , , acNewRec
End If
End Sub
Cafe Via He > 27-05-11, 09:21 AM
Private Sub MATG_BeforeUpdate(Cancel As Integer)
If Me.MATG = DLookup("MaTG", "TacGia", "MaTG='" & Me.MATG & "'") Then
Cancel = 1
MsgBox "Bi trung ma, nhap ma khac"
End If
End Sub
quan_pc > 27-05-11, 08:26 PM