hatayı tam olarak nerede veriyor?
bahsedilen değişiklikleri yaptığımda uyarı vermedi.
Yada alttaki gibi.
Application.InputBox
3. mesajdaki tüm değişiklikleri yaptım
formu açtım
inputbox çalışıp isim sordu
ismi halil yazdım
sorunsuz ekledi
form current olayının kodu
Private Sub Form_Current()
Dim a As String
Dim Kntrlkul As String
a = InputBox("lütfen kullanıcı kodunu giriniz")
Kntrlkul = Nz(DLookup("kullanici", "kullanicilar", "kullanici= '" & a & "'"))
If Kntrlkul <> "" Then
MsgBox "kullanıcı adı mevcut"
Me.kullanici = a
Else
DoCmd.RunSQL "INSERT INTO kullanicilar (kullanici) VALUES('" & a & "')"
End If
End Sub