Çıkış Hatası

[mtbi00]

Merhaba,

Aşağıda kodu yazılı küçük bir programım var. Çıkışa bastığım zaman altı çizgili satırdaki hata mesajını alıyorum. Userformdan çıkış sağlayamıyorum. Konu hakkında yardımlarınız rica olunur.

Saygılarımla.


Private Sub cb_esc_Click()
Unload SehKodEkle
End Sub

Private Sub tb_citykod_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(tb_citykod) < 3 Then
MsgBox "Havalimanı Kodu 3 karakter olmalı..", vbOKOnly
Cancel = True
tb_citykod = ""
Exit Sub
End If
End Sub

 

[Mustafa MUTLU]

MsgBox "Havalimanı Kodu 3 karakter olmalı..", vbOKOnly

son kısmı sil
MsgBox "Havalimanı Kodu 3 karakter olmalı.."

 

[Korhan Ayhan]

Bu tarz sorunları aşmak için Boolean bir değişken tanımlayıp kullanabilirsiniz.

Userformunuzun kod bölümünde en üst satıra aşağıdaki tanımlamayı ekleyiniz.

Dim Kontrol As Boolean

Sonra verdiğiniz iki kod bloğunu aşağıdaki gibi değiştirip deneyiniz.

Private Sub cb_esc_Click()
Kontrol = True
Unload SehKodEkle
End Sub

Private Sub tb_citykod_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Kontrol = True Then Exit Sub
If Len(tb_citykod) < 3 Then
[U]MsgBox "Havalimanı Kodu 3 karakter olmalı..", vbOKOnly[/U]
Cancel = True
tb_citykod = ""
Exit Sub
End If
End Sub

 

[mtbi00]

Korhan hocam merhaba.

Dediğiniz gibi yaptım ama yine olmadı. Kodun son durumu aşağıdaki gibidir. Yardımlarınız rica olur.

Saygılarımla.

Dim Kontrol As Boolean

Private Sub cb_esc_Click()
Kontrol = True
Unload SehKodEkle
End Sub

Private Sub tb_citykod_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Kontrol = True Then Exit Sub
If Len(tb_citykod) < 3 Then
MsgBox "Havalimanı Kodu 3 karakter olmalı.."
Cancel = True
tb_citykod = ""
Exit Sub
End If
End Sub

 

[Korhan Ayhan]

Olması gerekir...

Örnek dosyanızı paylaşırsanız inceleme şansımız olabilir.