[已解决]新年好！求助如何做到当TextBox1有值时CheckBox1自动打勾，否则为空

qinhuan66

求助如何做到当TextBox1有值时CheckBox1自动打勾，TextBox1没值时CheckBox1则为空。谢谢
求助复选框打勾问题.zip (10.28 KB, 下载次数: 4)

2015-3-2 08:56 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2015-3-2 09:14

1. Private Sub TextBox1_Change()
   
2.     If Len(Me.TextBox1) > 0 Then Me.CheckBox1 = True Else Me.CheckBox1 = False
   
3. End Sub
   
4. 
   
5. Private Sub TextBox2_Change()
   
6.     If Len(Me.TextBox2) > 0 Then Me.CheckBox2 = True Else Me.CheckBox2 = False
   
7. End Sub
   

复制代码

跳转到最佳答案楼层

grf1973

1. Private Sub TextBox1_Change()
   
2.     If Len(Me.TextBox1) > 0 Then Me.CheckBox1 = True Else Me.CheckBox1 = False
   
3. End Sub
   
4. 
   
5. Private Sub TextBox2_Change()
   
6.     If Len(Me.TextBox2) > 0 Then Me.CheckBox2 = True Else Me.CheckBox2 = False
   
7. End Sub
   

复制代码