Label25 "Bekar" değil ise
Frame2 true yap
Frame2 içinde ki Textbox2 ye veri girişini zorunlu yap
Textbox2' ye veri girildiği an Togglebutton

aşağıda ki kodu çalıştırsın.
ToggleButton1.Caption = " A Ç "
ToggleButton1.BackColor = QBColor(7)
ToggleButton1.ForeColor = QBColor(12)
ToggleButton1.FontBold = False
UserForm1.Height = 357


Label25 "Bekar" isse
Frame2 False yap
Frame2 içinde ki Textbox2 ye veri girişine gerek yok
Togglebutton

aşağıda ki kodu çalıştırsın.
ToggleButton1.Caption = " A Ç "
ToggleButton1.BackColor = QBColor(7)
ToggleButton1.ForeColor = QBColor(12)
ToggleButton1.FontBold = False
UserForm1.Height = 357





yukarıda ki işlemi bir türlü yapamadım. Rica etsem yardımcı olabilir misiniz?

label için caption kullandınız mı?
if label25.caption="bekar" .... gibi

Yok Ustam

Siz belirttiğim şekilde deneyin yapamazsanız çalışmanızı ekleyin inceleyelim.

Ustam
Listbox2 seçimine bağlı Label25 Bekar durumuna göre göster gizle durumu olmadı. Beceremedim.
If Label25.Caption = "Bekar" Then
  TextBox1.Visible = False
  Label29.Visible = False
Else
TextBox1.Visible = True
  Label29.Visible = True
End If


Bakabilir misiniz? Saygılarımla




İlgili Dosya

1 - dosyanızı şifresiz yükleyin
2 - sorunun hangi formda hangi durumda oluştuğunu da belirtseydiniz çözümü bulmak daha kolay olurdu

sorun kodda kullandığını BEKAR koşulundan kaynaklanıyor
label25.captıon'a atadığınız bekar kelimesinin sonunda bir kaç boşluk var o nedenle sorun çıkıyor, eğer kodu aşağıdaki gibi düzenlerseniz düzelebilir

If  Label25.Caption= "Bekar" Then

yerine aşağıdaki gibi dener misiniz?

If InStr(1, Label25.Caption, "Bekar") > 0 Then