Private Sub Txt1_Change() Btn.enabled = TestTxt() End Sub
Function TestTxt() as Boolean TestTxt = (txt1.text <> "") And (txt2.text <> "") And (txt3.text <> "") End Function
Private Sub Txt1_Change() Btn.enabled = TestTxt() End Sub
Function TestTxt() as Boolean TestTxt = (txt1.text <> "") And (txt2.text <> "") And (txt3.text <> "") End Function
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questiontxt1_change (je sais plus trop ce qu'il y a ici) call test() end if txt2_change (?) call test() end if txt3_change (?) call test() end if ... sub test()if text1.text "" or text2.text or ... or text100.text"" then btn.enabled = false else btn.enabled = true end if end sub
Private Sub verif() btnValid.Enabled = ZLieu.Text <> "" And ZObserv.Text <> "" And ZMat.Text <> "" And Znum.Text <> "" And ZPceChang.Text <> "" And ZQte.Text <> "" And ZMag.Text <> "" End Sub