MS Access VBA IF（）

Daniel 发表于 Dev

丹尼尔

我正在尝试为MS Access VBA编写if循环

在php中，我会这样写：

if($query=="0"){
  run query 1
} else {
  run query 2
}

我确实需要调用查询并引用多个表（即“查询1”将从组合框中提取数据，而“查询2”将运行另一个查询）

------------------------------------编辑：2014年2月6日13:34 AEST- -------------------------

Dim variabl1 As String
variabl1 = Me.cmbItemDetails.Column(1)
Dim variabl2 As String
variabl2 = "" & Forms!frmRaiseOrder!cmbDebtorCode & ""
'you can use variable as a parameter in SQL, but only if you hardcode your SQL     statement as a string... See directly below

Dim SQL As String
SQL_count = "SELECT COUNT(CustItemPrice) FROM tblSpecialPricing WHERE ItemListID = '" &     variabl1 & "' AND CustListID = '" & variabl2 & "' "
SQL_select = "SELECT CustItemPrice FROM tblSpecialPricing WHERE ItemListID = '" &     variabl1 & "' AND CustListID = '" & variabl2 & "' "


Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset(SQL_count)
If rs.RecordCount = "0" Then
   Me.txtStreetPrice.Value = Me.cmbItemDetails.Column(3)
Else
   DoCmd.OpenQuery "qrySelectCustomerName"
End If

感谢@MurDeR为上述声明提供的帮助

-----------------------------------------------更新于7月9日-----------------------------------

嗨，大家好;
如果尝试在ACCESS VBA中创建IF（）语句，请使用以下语法...

Private Sub cmbItemDetails_Change()

Me.txtItemDescription.Value = Me.cmbItemDetails.Column(2)
Me.txtStreetPrice.Value = Me.cmbItemDetails.Column(3)
Me.txtItemName.Value = Me.cmbItemDetails.Column(1)

Dim variabl1 As String
variabl1 = Me.cmbItemDetails.Column(0)
Dim variabl2 As String
variabl2 = "" & Forms!frmRaiseOrder!cmbDebtorCode & ""
'you can use variable as a parameter in SQL, but only if you hardcode your SQL statement as a string... See directly below

Dim SQL As String
SQL_count = "SELECT COUNT(CustItemPrice) FROM tblSpecialPricing WHERE ItemListID = '" & variabl1 & "' AND CustListID = '" & variabl2 & "' "
SQL_select = "SELECT CustItemPrice FROM tblSpecialPricing WHERE ItemListID = '" & variabl1 & "' AND CustListID = '" &     variabl2 & "' "

Dim rs As Recordset
Set rs = Nothing
Set rs = CurrentDb.OpenRecordset(SQL_count)
RecordCount = rs.Fields(0)

If RecordCount = "1" Then
   'SPECIAL PRICE EXISTS - this code will run only if the count query is greater than zero
   MsgBox "Special Price Exists", vbOkay, "Alert"
   '
   '
   Me.txtUnitPrice.Value = Me.cmbItemDetails.Column(3)
   'Me.txtUnitPrice.Value = "" & Forms!frmRaiseOrder!subformCreateOrder!frmSelectCustomPriceinsubform!CustItemPrice & ""
   'Me.txtUnitPrice.Value = Me.subfrmItemPrice.CustItemPrice.Value
Else
   'NO SPECIAL PRICE - this code will run only if the coutn query is zero
   'MsgBox "No Special Pricing for this item", vbOkay, "Alert"
   '
   '
   Me.txtUnitPrice.Value = Me.cmbItemDetails.Column(3)
End If

End Sub

非常感谢@MurDeR的帮助，如果您有任何问题，请告诉我或发贴在这里

马克C.

您可以在VBA中使用记录集。

请参见以下代码。

Dim variabl As String
variabl = Me.ComboBox1.Value
'you can use variabl as a parameter in SQL, but only if you hardcode your SQL statement as a string... See directly below

Dim SQL As String
SQL = "SELECT * FROM TableA WHERE YourColumnName = '" & variabl & "'"


Dim db As DAO.Database
db = CurrentDb
Dim rs As DAO.Recordset
Set rs = db.OpenRecordset("SQL Statement or Query Name")
If rs.RecordCount = 0 Then
DoCmd.OpenQuery "Query1"
Else
DoCmd.OpenQuery "Query2"
End If
rs.Close
Set rs = Nothing