İnputbox İçin "sub Or Function Not Defined" Hatası

arkadaşlar, bu hatayı yaşayan yok mu, intin altını üstüne getrdim hiç bir şey bulamadım, yardımcı olur musunuz, inputbox işlevim hata veriyor, her şeyi doğru yazdığıma eminim

Private Sub Form_Current()
Dim a As String



a = İnputBox("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 Sub

(22/10/2020, 21:15)tarkanaykın yazdı: Kntrlkul

Bunu Dim ile değişkene yapıp deneyin.

DoCmd.RunSQL "INSERT INTO kullanicilar (kullanici) VALUES('" & a & "')"

şeklinde dener misiniz?

---

(22/10/2020, 21:15)tarkanaykın yazdı: İnputBox

bastaki harf büyük İ değil  büyük I olmalı

---

ayrıca alt yordama

dim Kntrlkul as String 

eklenmeli

---

son olarak if bloğu end if ile kapatılmamış

Ayrıca eğer inputboxa veri girmeden kapatılırsada hata verme olasılığı yüksek Onun içinde if ve end if gerek sanıyorum

if bloğunun farkındaydım düzeltecektim zaten ama söylenenleri yaptım hata vermeye devam ediyor, zaten ıf bloğunu hata verdiğini ıf ile ilgili verdiği uyarıdan anlıyorum ama bu direkt "inputbox" u işaret ederek o hatayuı veriyor,

O halde İnputbox in başındaki büyük İ yi ya küçük i yada büyük I ile değiştirin