+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Koşula Bağlı Togglebutton Lullanımı (/konu-kosula-bagli-togglebutton-lullanimi.html)
Sayfalar:
1
2
Koşula Bağlı Togglebutton Lullanımı - malatyalı - 14/09/2020
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?
RE: Koşula Bağlı Togglebutton Lullanımı - berduş - 14/09/2020
label için caption kullandınız mı?
if label25.caption="bekar" .... gibi
RE: Koşula Bağlı Togglebutton Lullanımı - malatyalı - 14/09/2020
Yok Ustam
RE: Koşula Bağlı Togglebutton Lullanımı - berduş - 14/09/2020
Siz belirttiğim şekilde deneyin yapamazsanız çalışmanızı ekleyin inceleyelim.
RE: Koşula Bağlı Togglebutton Lullanımı - malatyalı - 16/09/2020
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
RE: Koşula Bağlı Togglebutton Lullanımı - berduş - 16/09/2020
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" ThenIf InStr(1, Label25.Caption, "Bekar") > 0 Then