AccessTr.neT

Tam Versiyon: İnputbox İçin "sub Or Function Not Defined" Hatası
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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 Img-grin
Onun içinde if ve end if gerek sanıyorum Img-grin
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
Sayfalar: 1 2