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
İnputbox İçin "sub Or Function Not Defined" Hatası
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
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
Konuyu Okuyanlar: 1 Ziyaretçi