Private Sub cmdGetCount_Click()
Dim qd As New DAO.QueryDef
On Error GoTo EH
CurrentDb.QueryDefs.Delete ("qtemp")
Set qd = CurrentDb.CreateQueryDef("qtemp", "SELECT COUNT(*) AS TotReviews FROM REVIEW_TYPE WHERE Review_Name = @ReviewName AND Review_Type_Id <> @ID ")
With qd
.Parameters("@ReviewName") = Me.Text_RVTEdit
.Parameters("@ID") = Me.Combo_RVEdit
End With
MsgBox qd.OpenRecordset.Fields("TotReviews")
Set qd = Nothing
Exit Sub
EH:
If Err.Number = 3265 Then Resume Next
MsgBox "ERROR " & Err.Number & ": " & Err.Description
End Sub
Chr(34) & Me.Text_box & Chr(34)