yardımınız için teşekkürler ben bir şekilde çözdüm olayı aynı konu karşılaşan olursa diye kodu da vereyim.
Kod:
Private Sub sic_NotInList(NewData As String, Response As Integer)
If Left(Me.sic.Text, 2) = "00" Then
Me.sic = Right(Me.sic.Text, Len(Me.sic.Text) - 2)
NewData = Me.sic
If TablodaVarmi Then
Response = acDataErrContinue
Call sic_AfterUpdate
Else
Response = acDataErrContinue
MsgBox "Siciliniz Kayıtlı Değildir", vbOKOnly
End If
ElseIf Left(Me.sic.Text, 1) = "0" Then
Me.sic = Right(Me.sic.Text, Len(Me.sic.Text) - 1)
NewData = Me.sic
If TablodaVarmi Then
Response = acDataErrContinue
Call sic_AfterUpdate
Else
Response = acDataErrContinue
MsgBox "Siciliniz Kayıtlı Değildir", vbOKOnly
End If
Else
Response = acDataErrContinue
MsgBox "Siciliniz Kayıtlı Değildir", vbOKOnly
End If
End Sub
Function TablodaVarmi() As Boolean
If CurrentDb.OpenRecordset("SELECT count(*) FROM TEKNISTEN_LISTESI WHERE SİCİL = '" & Me.sic.Text & "';").Fields(0) > 0 Then
TablodaVarmi = True
Else
TablodaVarmi = False
End If
End Function