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?
Form Inputbox
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: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][/img]
bu şekilde oldu hem "formınputbox" hem de "şifre yanlış" birlikte geldi.
[img][/img]
Birde formınputbox taki giriş butonu koduna ne yazmalıyım.
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
"Dünyayı fazla düşünme."
(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][/img]
böyle oldu
[img][/img]
Not : şifre dolu da olsa boş ta olsa bu şekilde.
Şifreyi girdiğiniz metin kutusunun adı nedir?
"Dünyayı fazla düşünme."
Konuyu Okuyanlar: 1 Ziyaretçi