Private Sub ismiyaz_txt_BeforeUpdate(Cancel As Integer)
Dim SID As String
Dim stLinkCriteria As String
SID = Me.[......._txt].Value
stLinkCriteria = "[.......]=" & "'" & SID & "'"
If DCount("[........]", "_tbl", stLinkCriteria) > 0 Then
MsgBox SID & " Daha Önce Girilmiş." _
& vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation _
, "Seref..."
Me.Undo
Else
Exit Sub
End If
End Sub
kod
Son Düzenleme: 04/04/2012, 23:23, Düzenleyen: seref27.