实现子窗体全选功能-Victor Duane
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-窗体/数据页


实现子窗体全选功能

发表时间:2007/10/18 12:22:38 评论(2) 浏览(10729)  评论 | 加入收藏 | 复制
   
摘 要:实现子窗体全选功能
正 文:
实现子窗体全选功能
Private Sub 复选3_AfterUpdate()
Dim rs As ADODB.Recordset, strSQL As String
Set rs = New ADODB.Recordset
strSQL = "Select 是否打印 FROM 表1;"
rs.Open strSQL, CurrentProject.Connection, adOpenStatic, adLockPessimistic
If Not rs.EOF Then rs.MoveFirst
Do While Not rs.EOF
rs(0).Value = 复选3.Value
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
子对象1.Requery
End Sub

Access软件网交流QQ群(群号:198465573)
 
 相关文章
【菜鸟入门】用命令按钮控制复选框或者选项按钮是否全选的示例  【麥田  2011/2/11】
【access入门】用复选框筛选子窗体数据的示例  【麥田  2011/12/5】
【Access入门】Access用复选框控制子窗体全选\反选(取消...  【麥田  2012/6/11】
【Access入门】Access用复选框控制子窗体反选\反向选择数...  【麥田  2012/6/14】
常见问答
技术分类
相关资源
文章搜索
关于作者

Victor Duane

文章分类

文章存档

友情链接