在 MS Access 中过滤多个条件的 SQL 查询

Question

所以我现在只需要构建一个 SQL 查询字符串，它可以让我根据三个文本框过滤数据。

用户输入发票编号的第一个文本框，因此如果该文本框不为空，则查询应使用该文本框进行过滤。

另外两个文本框是日期和地点。这两者结合在一起，所以如果日期和地点文本框不为空，则按日期和地点过滤。

这就是我现在拥有的：

 SELECT tbl1Facturas.Verificado, tbl1Facturas.Factura, tbl1Facturas.Fecha, tbl5Localidades.NombreLocalidad, tbl6Suplidores.NombreSuplidor, tbl1Facturas.Subtotal, tbl1Facturas.[IVU MUNICIPAL], tbl1Facturas.[IVU ESTATAL], tbl1Facturas.[Total de Compra], tbl1Facturas.[Exento al IVU ESTATAL], tbl1Facturas.[Credito al Subtotal], tbl1Facturas.[Credito IVU Municipal], tbl1Facturas.[Credito IVU ESTATAL], tbl1Facturas.[Metodo de Pago], tbl1Facturas.[ID Metodo Pago], tbl1Facturas.MetodoPago_PDF, tbl1Facturas.Factura_PDF
 FROM (tbl1Facturas INNER JOIN tbl5Localidades ON tbl1Facturas.Localidad_ID = tbl5Localidades.ID) INNER JOIN tbl6Suplidores ON tbl1Facturas.Suplidor_ID = tbl6Suplidores.ID
 WHERE tbl1Facturas.Factura = '" & Nz(Me.Text16) & "' 
 ORDER BY tbl1Facturas.Fecha;"

提前致谢！

Answer 1

我将使用这样的东西（我使用输入框而不是文本框作为示例，然后您可以根据自己的需要调整它）：

Sub test ()

Dim Invoiceno, myDate, myPlace
Dim SQLString As String

Invoiceno = InputBox(“Enter Invoice Number”)
MyDate = InputBox(“Enter Date”) ‘here you can add a Date Picker 

MyPlace = InputBox(“Enter Place”)

If not Invoiceno is nothing then 

SQLString = ‘here your SQL string to search by invoice number’

Else:

SQLString = ‘here your SQL string to search by Date & Place’

End If

CurrentDb.Execute SQL String

End Sub