sn metehan bu şekilde deneyin

Private Sub TC_AfterUpdate()

Dim tcsor As Long

tcsor = Nz(DLookup("Sira", "Tablo1", "TC= atanan"))



If tcsor <> 0 Then

Cancel = False

MsgBox "Girmekte Oldugunuz " _

& SID & "tc Daha Önce Kaydedilmiş." _

& vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation _

, "Mükerrer Kayıt"

Form.Undo

DoCmd.FindRecord atanan, acStart, True, acSearchAll, , acCurrent, True

Me.Ad.Enabled = False

Me.Do_Ta.Enabled = False

Me.Adres.Enabled = False

Me.Telefon.Enabled = False

Me.SGK.Enabled = False

Me.Veliad.Enabled = False

Else



Me.Ad.Enabled = True

Me.Do_Ta.Enabled = True

Me.Adres.Enabled = True

Me.Telefon.Enabled = True

Me.SGK.Enabled = True

Me.Veliad.Enabled = True

End If



End Sub