这个是单表的查询窗体 语句在下面 里面有错误 Public s As String Dim a2 As String, a3 As String, a4 As String
Private Sub com1_Click() If text1.Value = "" Or cb2.Value = "" Or cb3.Value = "" Or text2.Value = "" Then MsgBox ("输入的全部值不可为空！") Else text2.SetFocus s = s + " AND " text2.Text = s com1.Enabled = False com2.Enabled = False com3.Enabled = True End If End Sub
Private Sub com2_Click() If text1.Value = "" Or cb2.Value = "" Or cb3.Value = "" Or text2.Value = "" Then MsgBox ("输入的全部值不可为空！") Else text2.SetFocus s = s + " OR " text2.Text = s com1.Enabled = False com2.Enabled = False com3.Enabled = True End If
End Sub
Private Sub com3_Click() cb2.SetFocus a2 = cb2.Text cb3.SetFocus a3 = cb3.Text text1.SetFocus a4 = text1.Text If a4 = "" Or a2 = "" Or a3 = "" Then MsgBox ("输入的全部值不可为空！") Else If cb2.Value = "采购员编号" Then 's = s + " " + a2 + " " + a3 + " " + "'" + "*" + a4 + "*" + "'" s = s + a2 + a3 + a4 ElseIf cb3 = "LIKE" Or cb3 = "NOT LIKE" Then s = s + " " + a2 + " " + a3 + " " + "'" + "*" + a4 + "*" + "'"
Else s = s + " " + a2 + " " + a3 + " " + "'" + a4 + "'" End If
text2.SetFocus text2.Text = s com1.Enabled = True com2.Enabled = True com3.Enabled = True End If
End Sub
Private Sub com4_Click() l1.RowSource = "SELECT * FROM 采购员资料表 WHERE " + s + ";"
If text2.Value = "" Then MsgBox ("请先按ADD键") End If
End Sub
Private Sub com5_Click()
s = "" text2.Value = "" text1.Value = "" cb2.Value = "" cb3.Value = "" l1.Value = "" l1.RowSource = "" com1.Enabled = False com2.Enabled = False
End Sub
Private Sub Form_Load() com1.Enabled = False com2.Enabled = False com3.Enabled = True
End Sub
Private Sub l1_BeforeUpdate(Cancel As Integer)
End Sub
Private Sub 主体_Click()
End Sub
Private Sub 关闭窗体_Click() On Error GoTo Err_关闭窗体_Click
DoCmd.Close
Exit_关闭窗体_Click: Exit Sub
Err_关闭窗体_Click: MsgBox Err.Description Resume Exit_关闭窗体_Click End Sub
这个是多表的查询窗体图 多表的语句现在就查一个判断字段类型的函数了
Public s As String Dim a2 As String, a3 As String, a4 As String
Private Sub com1_Click() If text1.Value = "" Or cb2.Value = "" Or cb3.Value = "" Or text2.Value = "" Then MsgBox ("输入的全部值不可为空！") Else text2.SetFocus s = s + " AND " text2.Text = s com1.Enabled = False com2.Enabled = False com3.Enabled = True End If End Sub
Private Sub com2_Click() If text1.Value = "" Or cb2.Value = "" Or cb3.Value = "" Or text2.Value = "" Then MsgBox ("输入的全部值不可为空！") Else text2.SetFocus s = s + " OR " text2.Text = s com1.Enabled = False com2.Enabled = False com3.Enabled = True End If
End Sub
Private Sub com3_Click() cb2.SetFocus a2 = cb2.Text cb3.SetFocus a3 = cb3.Text text1.SetFocus a4 = text1.Text If a4 = "" Or a2 = "" Or a3 = "" Then MsgBox ("输入的全部值不可为空！") Else If cb2.Value = "采购员编号" Or cb2.Value = "仓库编号" Or cb2.Value = "库存量" Then 's = s + " " + a2 + " " + a3 + " " + "'" + "*" + a4 + "*" + "'" s = s + a2 + a3 + a4 ElseIf cb3 = "LIKE" Or cb3 = "NOT LIKE" Then s = s + " " + a2 + " " + a3 + " " + "'" + "*" + a4 + "*" + "'"
Else s = s + " " + a2 + " " + a3 + " " + "'" + a4 + "'" End If
text2.SetFocus text2.Text = s com1.Enabled = True com2.Enabled = True com3.Enabled = True End If
End Sub
Private Sub com4_Click() l1.RowSource = "SELECT * FROM 查询1 WHERE " + s + ";"
If text2.Value = "" Then MsgBox ("请先按ADD键") End If
End Sub
Private Sub com5_Click()
s = "" text2.Value = "" text1.Value = "" cb2.Value = "" cb3.Value = "" l1.Value = "" l1.RowSource = "" com1.Enabled = False com2.Enabled = False
End Sub
Private Sub Form_Load() com1.Enabled = False com2.Enabled = False com3.Enabled = True
End Sub
Private Sub l1_BeforeUpdate(Cancel As Integer)
End Sub
Private Sub 主体_Click()
End Sub
Private Sub 关闭窗体_Click() On Error GoTo Err_关闭窗体_Click
DoCmd.Close
Exit_关闭窗体_Click: Exit Sub
Err_关闭窗体_Click: MsgBox Err.Description Resume Exit_关闭窗体_Click End Sub
