复选框的问题大家帮帮忙

zyz0055 · 发表于 2005-9-8 15:38

5KzvOs2m.rar (112.74 KB, 下载次数: 15)

请注意管理铭板那个窗口,在下实在是做不到全选和清空的效果,此类效果在一般软件可是常用的!!!!!VBA密码: woaiwenzhi

zyz0055 · 发表于 2005-9-8 16:46

谢谢兄弟的热心帮助

zyz0055 · 发表于 2005-9-8 17:14

Private Sub Check1_AfterUpdate() Me.管理铭板子窗体.Form.Recordset.MoveFirst j = Me.管理铭板子窗体.Form.RecordsetClone.RecordCount For i = 1 To j Me.管理铭板子窗体.Controls("印刷").Value = Me.Check1 Me.管理铭板子窗体.Form.Recordset.MoveNext Next i End Sub

winak · 发表于 2005-9-8 16:39

最简单的办法，用更新查询

Ao5e4BFu.rar (123.4 KB, 下载次数: 16)

		自动登录	找回密码
密码			免费注册