hatayı tam olarak nerede veriyor?
bahsedilen değişiklikleri yaptığımda uyarı vermedi.
İnputbox İçin "sub Or Function Not Defined" Hatası
Yada alttaki gibi.
Application.InputBox
Application.InputBox
3. mesajdaki tüm değişiklikleri yaptım
formu açtım
inputbox çalışıp isim sordu
ismi halil yazdım
sorunsuz ekledi
formu açtım
inputbox çalışıp isim sordu
ismi halil yazdım
sorunsuz ekledi
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
Konuyu Okuyanlar: 1 Ziyaretçi