Skip to main content

AccessTr.neT


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

tarkanaykın
tarkanaykın
9
1038

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

#7
hatayı tam olarak nerede veriyor?
bahsedilen değişiklikleri yaptığımda uyarı vermedi.
Cevapla
#8
Yada alttaki gibi.

Application.InputBox
Cevapla
#9
3. mesajdaki tüm değişiklikleri yaptım
formu açtım
inputbox çalışıp isim sordu
ismi halil yazdım
sorunsuz ekledi
Cevapla
#10
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
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task