01/07/2020, 09:54
Form Inputbox
1 2
01/07/2020, 11:07
ozanakkaya
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.
01/07/2020, 11:22
enginbeyy
(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.
01/07/2020, 11:47
userx
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 Sub
01/07/2020, 13:28
enginbeyy
(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.
01/07/2020, 13:48
userx
Şifreyi girdiğiniz metin kutusunun adı nedir?
1 2