Option Compare Database
Dim Qdef As QueryDef
Dim strsql As String
Dim strname As String

Private Sub Form_Error(DataErr As Integer, Response As Integer)
　　Me.子窗体.Form.RecordSource = "成绩查询"
End Sub

 

Private Sub Form_Open(Cancel As Integer)
　　Me.子窗体.Form.RecordSource = "成绩查询"
End Sub

Private Sub 创建查询_Click()
strname = InputBox$("输入查询名称：", "查询名称", "临时查询")
On Error GoTo 创建_Err
    strsql = Me.子窗体.Form.RecordSource
    strsql = InputBox$("输入SQL语句：", "SQL语句", "select * from " & strsql & " where 准则;")
    Set Qdef = CurrentDb.CreateQueryDef(strname)  '创建查询
    Qdef.SQL = strsql                             '创建查询
    Me.子窗体.Form.RecordSource = strname
    Me.子窗体.Form.Requery
    Qdef.Close
    Set Qdef = Nothing
创建_Exit:
    Exit Sub
创建_Err:
    MsgBox strname & " 已存在！"
    Resume 创建_Exit
   
End Sub

Private Sub 删除查询_Click()
strname = InputBox$("输入查询名称：", "查询名称", "临时查询")
On Error GoTo 删除_Err
    Me.子窗体.Form.RecordSource = "成绩查询"
    Me.子窗体.Form.Requery
    DoCmd.DeleteObject acQuery, strname
删除_Exit:
    Exit Sub
删除_Err:
    MsgBox strname & " 不存在！"
    Resume 删除_Exit
End Sub

 

Private Sub 修改查询_Click()
strname = InputBox$("输入查询名称：", "查询名称", "临时查询")
On Error GoTo 修改_Err
    Me.子窗体.Form.RecordSource = "成绩查询"
    strsql = Me.子窗体.Form.RecordSource
    strsql = InputBox$("输入SQL语句：", "SQL语句", "select * from " & strsql & " where 准则;")
    Set Qdef = CurrentDb.QueryDefs(strname)  '修改查询
    Qdef.SQL = strsql                        '修改查询
    Me.子窗体.Form.RecordSource = strname
    Me.子窗体.Form.Requery
    Qdef.Close
    Set Qdef = Nothing
修改_Exit:
    Exit Sub
修改_Err:
    MsgBox strname & " 不存在！"
    Resume 修改_Exit
End Sub