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

jsf2008

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

jsf2008

请问各位,能达到这样的效果不?谁有最好的办法

jsf2008

????各位发句话呀?

t小宝

在SQL语句中加上查询条件，如：
update 表1 set 字段1=1 where 性别='男'

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

jsf2008

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

jsf2008

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

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

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小宝

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

qmyjhj

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