窗体中复选框的使用请教!

jsf2008

请问在用查询条件后怎么使用复选框选择查询内容,不设查询条件时可以选择全部内容?请各位帮帮忙!

jsf2008

你的例子是在不同的表中查询结果,我要是的在窗体中按条件查询后的只复选查询的记录.好像不能实现.有别的方法吗

jsf2008

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

jsf2008

a代表选择，如果我这不行，请你帮我看看好吗？

qmyjhj

可以参考下我这篇文章
http://blog.sina.com.cn/s/blog_44cb3d3d0100hv8h.html

t小宝

代码中 If a=1 Then  的 a 代表什么，什么时候赋予它值了？

jsf2008

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

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

jsf2008

请各位帮我看看,点复选框无反应
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

4#版主,能不能根据附件修改

jsf2008

我的复选框只争对查询后复选