+- 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ığı: Form Inputbox (/konu-form-inputbox.html)
Sayfalar:
1
2
Form Inputbox - enginbeyy - 01/07/2020
merhaba aşağıda doğru çalışan ınputbox ve kodu bulunuyor.
Ben bu kodu kendi yaptığım aşağıdaki form ınputbox'a uygulamak istiyorum. Yardımcı olur musunuz?
RE: Form Inputbox - ozanakkaya - 01/07/2020
Siz butona tıkladığınızda inputbox açılıyor, sifre=inputbox(...... kodunu silip yerine input için oluşturduğunuz formu açtıracaksınız. İnput formundaki giris butonu tıklandığında metin kutusuna girilen değere göre önceki form kapatılıp Form3 açtırılacak.
RE: Form Inputbox - enginbeyy - 01/07/2020
(01/07/2020, 11:07)ozanakkaya yazdı: Siz butona tıkladığınızda inputbox açılıyor, sifre=inputbox(...... kodunu silip yerine input için oluşturduğunuz formu açtıracaksınız. İnput formundaki giris butonu tıklandığında metin kutusuna girilen değere göre önceki form kapatılıp Form3 açtırılacak.hocam kodu bu şekilde dediğiniz gibi değiştirdim
[img]
bu şekilde oldu hem "formınputbox" hem de "şifre yanlış" birlikte geldi.
[img]
Birde formınputbox taki giriş butonu koduna ne yazmalıyım.
RE: Form Inputbox - userx - 01/07/2020
Giriş Butonunuzdaki kodlarınızı aşağıdaki kodlarla değiştirerek dener misiniz?
Private Sub Komut170_Click()
Dim sifre
If sifre = 123 Then
DoCmd.OpenForm "Form3"
Else
MsgBox "Şifreniz Yanlış"
End If
End SubRE: Form Inputbox - enginbeyy - 01/07/2020
(01/07/2020, 11:47)userx yazdı: Giriş Butonunuzdaki kodlarınızı aşağıdaki kodlarla değiştirerek dener misiniz?hocam kodu böyle yazdım
Private Sub Komut170_Click()
Dim sifre
If sifre = 123 Then
DoCmd.OpenForm "Form3"
Else
MsgBox "Şifreniz Yanlış"
End If
End Sub
[img]
böyle oldu
[img]
Not : şifre dolu da olsa boş ta olsa bu şekilde.
RE: Form Inputbox - userx - 01/07/2020
Şifreyi girdiğiniz metin kutusunun adı nedir?