Skip to main content

AccessTr.neT


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

tarkanaykın
tarkanaykın
9
1030

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

Çözüldü #1
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
.zip uses - Kopya (2).zip (Dosya Boyutu: 117,21 KB | İndirme Sayısı: 4)
Cevapla
#2
(22/10/2020, 21:15)tarkanaykın yazdı: Kntrlkul
Bunu Dim ile değişkene yapıp deneyin.
Cevapla
#3
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ış
Cevapla
#4
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
Cevapla
#5
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,
Cevapla
#6
O halde İnputbox in başındaki büyük İ yi ya küçük i yada büyük I ile değiştirin
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task