求助 关于ACCESS 中SQL语句

huangdiwudi

想求助个位大虾关于在vba中添加sql语句来代替查询的功能（可以实现删除查询 ）

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

如何在vba

Private Sub コンボ9_Enter()

End Sub

中添加代码？？？？

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

hi-wzj

动态生成查询：

        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

谢谢  太感谢了