Userform'dan diğer Userformlara geçiş hatası.

[vardar07]

Merhabalar,Arkadaşlar ilk Userformdan sonra evet ve hayıra göre diğer userformlardan biri açılması için aşağıdaki kodda gözden kaçan nedir ki hep Userform1 den sonra Userform2 açılıyor.

Private Sub CommandButton1_Click()
If TextBox1.Text = TextBox2.Text Then
MsgBox " Gecersiz sifre!", vbCritical
MsgBox "ÖZEL MESAJ", vbYesNo
If vbYes Then
userform1.Hide
userform2.Show 0
Else
userform1.Hide
userform3.Show 0
End If
TextBox1.Text = ""
TextBox1.SetFocus
End If
End Sub

 

[cenk e.]

Merhaba, tam ne istediğinizi anlayamadım ama
(neden vbYes seçince UserForm2 açılıyor da vbNo için UserForm3 açılmıyor ya da UserForm3'ün açılması için neyi eksik yapıyorum)

eğer sorduğunuz 2. soruysa eksik olan MsgBox'un bir değişkene atanmaması.

Private Sub CommandButton1_Click()
If TextBox1.Text = TextBox2.Text Then
MsgBox " Gecersiz sifre!", vbCritical
cvp = MsgBox("ÖZEL MESAJ", vbYesNo)
If cvp = vbYes Then
UserForm1.Hide
UserForm2.Show 0
ElseIf c = vbNo Then
UserForm1.Hide
UserForm3.Show 0
End If
TextBox1.Text = ""
TextBox1.SetFocus
End If
End Sub

 

[vardar07]

Merhaba, tam ne istediğinizi anlayamadım ama
(neden vbYes seçince UserForm2 açılıyor da vbNo için UserForm3 açılmıyor ya da UserForm3'ün açılması için neyi eksik yapıyorum)

eğer sorduğunuz 2. soruysa eksik olan MsgBox'un bir değişkene atanmaması.

Private Sub CommandButton1_Click()
If TextBox1.Text = TextBox2.Text Then
[COLOR="Red"]MsgBox " Gecersiz sifre!", vbCritical[/COLOR]
cvp = MsgBox("ÖZEL MESAJ", vbYesNo)
If cvp = vbYes Then
UserForm1.Hide
UserForm2.Show 0
ElseIf c = vbNo Then
UserForm1.Hide
UserForm3.Show 0
End If
TextBox1.Text = ""
TextBox1.SetFocus
End If
End Sub

Merhaba,Yardımlarınıza teşekkürler.Kırmızı ile belirtilen yerde küçük bir düzenleme ile işlem tamamdır.Kolay gelsin.

Private Sub CommandButton1_Click()
If TextBox1.Text = TextBox2.Text Then
cvp = MsgBox("ÖZEL MESAJ", vbYesNo)
If cvp = vbYes Then
UserForm1.Hide
UserForm2.Show 0
ElseIf cvp = vbNo Then
UserForm1.Hide
UserForm3.Show 0
End If
[COLOR="Red"]Else
MsgBox " Gecersiz sifre!", vbCritical[/COLOR]
TextBox1.Text = ""
TextBox1.SetFocus
End If
End Sub

 

[cenk e.]

Rica ederim, size de kolay gelsin.