+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: İnputbox İçin "sub Or Function Not Defined" Hatası (/konu-inputbox-icin-sub-or-function-not-defined-hatasi.html)
Sayfalar:
1
2
RE: İnputbox İçin "sub Or Function Not Defined" Hatası - berduş - 22/10/2020
hatayı tam olarak nerede veriyor?
bahsedilen değişiklikleri yaptığımda uyarı vermedi.
RE: İnputbox İçin "sub Or Function Not Defined" Hatası - feraz - 22/10/2020
Yada alttaki gibi.
Application.InputBox
RE: İnputbox İçin "sub Or Function Not Defined" Hatası - berduş - 22/10/2020
3. mesajdaki tüm değişiklikleri yaptım
formu açtım
inputbox çalışıp isim sordu
ismi halil yazdım
sorunsuz ekledi
RE: İnputbox İçin "sub Or Function Not Defined" Hatası - berduş - 22/10/2020
form current olayının kodu
Private Sub Form_Current()
Dim a As String
Dim Kntrlkul As String
a = InputBox("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 If
End Sub