AccessTr.neT

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?

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

(01/07/2020, 11:47)userx yazdı: [ -> ]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

hocam kodu böyle yazdım

[img][/img]
böyle oldu
[img][/img]

Not : şifre dolu da olsa boş ta olsa bu şekilde.

Şifreyi girdiğiniz metin kutusunun adı nedir?