Skip to main content

AccessTr.neT


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

İ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ı: 3)
Cevapla
#2
(22/10/2020 21:15)tarkanaykın Adlı Kullanıcıdan Alıntı: Kntrlkul
Bunu Dim ile değişkene yapıp deneyin.
Cevapla
#3

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

şeklinde dener misiniz?


(22/10/2020 21:15)tarkanaykın Adlı Kullanıcıdan Alıntı: İnputBox
bastaki harf büyük İ değil  büyük I olmalı
ayrıca alt yordama

Visual Basic Code
dim Kntrlkul as String 

eklenmeli


son olarak if bloğu end if ile kapatılmamış
Son Düzenleme: 22/10/2020, 21:49, Düzenleyen: berduş.
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