Office中国论坛/Access中国论坛

标题: 求助关于ACCESS 中SQL语句 [打印本页]

作者: huangdiwudi 时间: 2006-8-30 19:58
标题: 求助关于ACCESS 中SQL语句
想求助个位大虾关于在vba中添加sql语句来代替查询的功能（可以实现删除查询）

在窗体中有个下拉列表框的行来源是 SELECT [Zousyoのwuchongfu zhuzhe].著者 FROM [Zousyoのwuchongfu zhuzhe];

如何在vba

Private Sub コンボ9_Enter()

End Sub

中添加代码？？？？

还有就是：应该在获取焦点时添加事件过程？

作者: hi-wzj 时间: 2006-8-30 21:14
动态生成查询：

      Dim dbs As Database, strSQL1 As String, strSQL2 As String
      Dim qdf1 As QueryDef

      Set dbs = CurrentDb

      strSQL1 = "SELECT 职工表.* " & _
      "FROM 职工表 " & _
      "WHERE (((职工表.性别)" & GenderNo & ") " & _
      "AND ((职工表.是否已婚)" & Married & ") " & _
      "AND ((职工表.编制)" & PList & ")"

      strSQL2 = ");"

      Set qdf1 = dbs.CreateQueryDef("~人员查询", strSQL1 + strSQL2)
      DoCmd.OpenQuery qdf1.Name
      dbs.Close

作者: huangdiwudi 时间: 2006-8-31 16:26
谢谢太感谢了

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