CommandButton Aktif Pasif Yapmak

[yavuz829]

Merhaba Arkadaşlar

TextBox1 veya TextBox2 ye giriş yağtığımız zaman CommandButton1 aktif, CommandButton2 pasif olsun.

TextBox4 veya TextBox5 ye giriş yağtığımız zaman CommandButton2 aktif, CommandButton1 pasif olsun.

Bu konuda yardımlarınıza ihtiyacım var.

 

[hmtstc]

textbox buton komutuna userform1.commandbutton1.visible = false yapabilirsiniz. bu görünmez yapacaktır. görünsün ama pasif olsun diyorsanız userform1.commandbutton1.enable= false yaparsanız pasif olur.

 

[yavuz829]

Çok teşekkürler Hocam ellerinize sağlık
Saygılarımla sağlıklı günler diliyorum.

 

[TURKOLOG]

Private Sub UserForm_Initialize()
If txtparametre = "" Then
Me.CommandButton3.Visible = False
Else
Me.CommandButton3.Visible = False
End If
End Sub

Form açılır açılmaz comanbuton gizleniyor sorun yok ama paramatre textboxuna karakter girmeme rağmen buton görünür olmadı. Yardım edebilecek olan var mı acaba

 

[muratboz06]

Örnek kodu kendi textbox numaranıza göre değiştirirsiniz.

Private Sub TextBox1_Change()
If TextBox1.Value = "" Then
Me.CommandButton3.Visible = False
Else
Me.CommandButton3.Visible = True
End If
End Sub


Private Sub UserForm_Initialize()
If TextBox1.Value = "" Then
Me.CommandButton3.Visible = False
Else
Me.CommandButton3.Visible = True
End If
End Sub

 

[TURKOLOG]

Private Sub parametre_Change()
If txtparametre.Value = "" Then
LisansAktif.CommandButton3.Visible = False
Else
LisansAktif.CommandButton3.Visible = True
End If
End Sub

Private Sub UserForm_Initialize()

''''''''''''''''''Buton Gizleme '''''''''''''''''''''''''
If txtparametre.Value = "" Then
LisansAktif.CommandButton3.Visible = False
Else
LisansAktif.CommandButton3.Visible = True
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub

Sayın @muratboz06 Malesef ekteki hata mesajını alıyorum.

 

[muratboz06]

Resmi herhangi bir resim paylaşım sitesine yükleyip, link atarmısınız.

 

[TURKOLOG]

Resmi herhangi bir resim paylaşım sitesine yükleyip, link atarmısınız.

Hata Linki

 

[Hakan ERDOST]

Private Sub parametre_Change()
If txtparametre.Value = "" Then
LisansAktif.CommandButton3.Visible = False
Else
LisansAktif.CommandButton3.Visible = True
End If
End Sub

Private Sub UserForm_Initialize()

''''''''''''''''''Buton Gizleme '''''''''''''''''''''''''
If txtparametre.Value = "" Then
LisansAktif.CommandButton3.Visible = False
Else
LisansAktif.CommandButton3.Visible = True
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub

Sayın @muratboz06 Malesef ekteki hata mesajını alıyorum.
Ekli dosyayı görüntüle 217206

LisansAktif.CommandButton3.Visible = False

kodunu

Me.CommandButton3.Visible = False

verilen örnek koddaki gibi formunuzun adını kullanmadan denediniz mi?
Şayet hata devam ediyorsa, örnek bir dosya yükleyebilirseniz daha çabuk çözüme ulaşılabilir. Çünkü bu hatanın birçok sebebi olabilir.

 

[TURKOLOG]

LisansAktif.CommandButton3.Visible = False

kodunu

Me.CommandButton3.Visible = False

verilen örnek koddaki gibi formunuzun adını kullanmadan denediniz mi?
Şayet hata devam ediyorsa, örnek bir dosya yükleyebilirseniz daha çabuk çözüme ulaşılabilir. Çünkü bu hatanın birçok sebebi olabilir.

Öncelikle
Me.CommandButton3.Visible = False
Yazdim olmayınca userform adini kullandim . Size ornek bir dosya yukleyeyim .

 

[TURKOLOG]

LisansAktif formu üzerinde işlem yapılacak

 

[Hakan ERDOST]

LisansAktif formu üzerinde işlem yapılacak

Hatanın sebebi kodda textbox nesnesini txtparametre diye adlandırmışsınız, ancak form nesnesi üzerinde TextBox1 olarak kalmış. Düzelttim . Dosyanız ekte.

 

[TURKOLOG]

Hocam elinize emeğinize sağlık. Peki butonu gizlemek yerine pasif yapmak için

Private Sub parametre_Change()
If txtparametre.Value = "" Then
LisansAktif.CommandButton3.Visible = False
Else
LisansAktif.CommandButton3.Visible = True
End If
End Sub

Private Sub UserForm_Initialize()
If txtparametre.Value = "" Then
LisansAktif.CommandButton3.Visible = False
Else
LisansAktif.CommandButton3.Visible = True
End If
End Sub

bu kodları aşağıdaki şekilde yapmak yeterli mi

Private Sub parametre_Change()

If txtparametre.Value = "" Then

LisansAktif.CommandButton3.False = False

Else

LisansAktif.CommandButton3.False = True

End If

End Sub

Private Sub UserForm_Initialize()

If txtparametre.Value = "" Then

LisansAktif.CommandButton3.False = False

Else

LisansAktif.CommandButton3.False = True

End If

End Sub

 

[Hakan ERDOST]

Hocam elinize emeğinize sağlık. Peki butonu gizlemek yerine pasif yapmak için

Private Sub parametre_Change()
If txtparametre.Value = "" Then
LisansAktif.CommandButton3.Visible = False
Else
LisansAktif.CommandButton3.Visible = True
End If
End Sub

Private Sub UserForm_Initialize()
If txtparametre.Value = "" Then
LisansAktif.CommandButton3.Visible = False
Else
LisansAktif.CommandButton3.Visible = True
End If
End Sub

bu kodları aşağıdaki şekilde yapmak yeterli mi

Private Sub parametre_Change()

If txtparametre.Value = "" Then

LisansAktif.CommandButton3.False = False

Else

LisansAktif.CommandButton3.False = True

End If

End Sub

Private Sub UserForm_Initialize()

If txtparametre.Value = "" Then

LisansAktif.CommandButton3.False = False

Else

LisansAktif.CommandButton3.False = True

End If

End Sub

Private Sub parametre_Change()
If txtparametre.Value = "" Then
LisansAktif.CommandButton3.Enabled = False
Else
LisansAktif.CommandButton3.Enabled = True
End If
End Sub

Private Sub UserForm_Initialize()
If txtparametre.Value = "" Then
LisansAktif.CommandButton3.Enabled = False
Else
LisansAktif.CommandButton3.Enabled = True
End If
End Sub

Şeklinde değiştirmeniz yeterli sanırım.

 

[TURKOLOG]

Çok teşekkür ederim Hocam. Elinize emeğinize sağlık.

 

[Hakan ERDOST]

Çok teşekkür ederim Hocam. Elinize emeğinize sağlık.

Rica ederim. Kolay gelsin.