Kod:
SID1 = Me.[KAdi].Value
stLinkCriteria1 = "[Kullanici]=" & "'" & SID1 & "'"
If DCount("[Kullanici]", "tbl_User", stLinkCriteria1) > 0 Then
Me.Undo
MsgBox "Girmeye çaliStisiniz " _
& SID & " Kullaniciadi daha önce girilmiS." _
& vbCr & vbCr & "Lütfen Kayitlarinizi Kontrol Ediniz.", vbInformation _
, "Ayni Kullaniciadi Girmeye çaliSiyorsunuz."
Else
Me.Adsoyad = Me.adi
Me.Kullanici = Me.KAdi
Me.Sifre = Me.Sifresi
Me.Yetki = Me.Yetkisi
mu.Durum = Me.durumu
MsgBox "Kullanici Kaydi YapilmiStir.", vbInformation, "Kullanici Kaydi"
Me.adi = ""
Me.KAdi = ""
Me.Sifresi = ""
Me.Yetkisi = ""
Me.durumu = ""
DoCmd.GoToRecord , , acNewRec
Me.adi.SetFocus
End If
End Sub