Office中国论坛/Access中国论坛

标题: 窗体中复选框的使用请教! [打印本页]

作者: jsf2008 时间: 2010-4-14 11:37
标题: 窗体中复选框的使用请教!
请问在用查询条件后怎么使用复选框选择查询内容,不设查询条件时可以选择全部内容?请各位帮帮忙!

作者: jsf2008 时间: 2010-4-14 13:43
请问各位,能达到这样的效果不?谁有最好的办法

作者: jsf2008 时间: 2010-4-14 19:13
????各位发句话呀?

作者: t小宝 时间: 2010-4-14 20:27
在SQL语句中加上查询条件，如：
update 表1 set 字段1=1 where 性别='男'

你需要先根据输入的条件组合字符串。。。

作者: jsf2008 时间: 2010-4-15 08:39
我的复选框只争对查询后复选

作者: jsf2008 时间: 2010-4-15 08:52
4#版主,能不能根据附件修改

作者: jsf2008 时间: 2010-4-15 11:17
请各位帮我看看,点复选框无反应
Private Sub 复选_Click()
i = Me.单位人事资料子窗体.Form.CurrentRecord
Dim strsql0 As String
Dim strsql1 As String
strsql0 = "Update 单位人事资料 set dlbz=-1 where 单位名称=" & Me![单位名称] & ""
strsql1 = "Update 单位人事资料 set dlbz=0 where 单位名称="""
If a = 1 Then
CurrentProject.Connection.Execute strsql0
Me.单位人事资料子窗体.Form.Requery
MsgBox "已成功选择资料", vbInformation, "阿飞工作室提醒你"
Me.单位人事资料子窗体.Form.Recordset.Move i
End If

If a = 2 Then
  CurrentProject.Connection.Execute strsql1
  Me.单位人事资料子窗体.Form.Requery
  MsgBox "已成功取消选择", vbInformation, "阿飞工作室提醒你"
  If i <> 1 Then
   Me.单位人事资料子窗体.Form.Recordset.Move i - 1

   End If
End If
a = 0
End Sub

作者: jsf2008 时间: 2010-4-15 15:11
Private Sub 复选_Click()

If 复选 = 0 Then

CurrentProject.Connection.Execute "update 单位人事资料 set dlbz=0"
Else

DoCmd.RunSQL "Update 单位人事资料 set dlbz=-1 where 单位名称=" & Me![单位名称] & ""

Me.单位人事资料子窗体.Requery
End If

End Sub

每各师傅们,请问该有什么方法嘛,教教小弟呀?

作者: t小宝 时间: 2010-4-16 08:10
代码中 If a=1 Then 的 a 代表什么，什么时候赋予它值了？

作者: qmyjhj 时间: 2010-4-16 11:49
可以参考下我这篇文章
http://blog.sina.com.cn/s/blog_44cb3d3d0100hv8h.html

作者: jsf2008 时间: 2010-4-16 13:10
a代表选择，如果我这不行，请你帮我看看好吗？

作者: jsf2008 时间: 2010-4-16 16:16
10#师傅,你的是在例子是在不同的表中查询结果,我要是的在窗体中按条件查询后的只复选查询的记录.好像不能实现.有别的方法吗

作者: jsf2008 时间: 2010-4-16 16:17
你的例子是在不同的表中查询结果,我要是的在窗体中按条件查询后的只复选查询的记录.好像不能实现.有别的方法吗

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)