Multiple DoCmd.Openform criteria (1 Viewer)

[richardw]

Hi folks,

I built this code to open a form based on 4 criterias but I have a problem in this line :

DoCmd.OpenForm "frm_initiativesDetails", , , cond, cond1, cond2, cond3

When I do just one condition (cond for example) it works the message error is, I think it's a syntax error ..

ERROR 13: Type mismatch

Full code :

Private Sub lboActuals_DblClick(Cancel As Integer)
Dim cond As String
Dim cond1 As String
Dim cond2 As String
Dim cond3 As String

cond = "idInitiative = " & Me.lboActuals.Column(0)
cond1 = "typeActual = " & Me.lboActuals.Column(9)
cond2 = "monthActual_tbl_actualComment = " & Me.lboActuals.Column(8)
cond3 = "monthActual = " & Me.lboActuals.Column(8)

DoCmd.OpenForm "frm_initiativesDetails", , , cond, cond1, cond2, cond3

End Sub

Thanks in advance

 

[bob fitz]

As far as I can see this is essentially the same question as you asked in http://www.access-programmers.co.uk/forums/showthread.php?p=1475831#post1475831 except here you have 4 criteria instead of 2.
Members are already trying to help you in your earlier post. I think you should persevere with that.

 

[richardw]

Hi,
I don't think it's the same, because here it's a DoCmd.OpenForm and not an sql statment..

The issue is in this line:

DoCmd.OpenForm "frm_initiativesDetails", , , cond, cond1, cond2, cond3

 

[richardw]

Solution

Private Sub lboActuals_DblClick(Cancel As Integer)

Dim cond As String
Dim cond1 As String
Dim cond2 As String
Dim cond3 As String

   cond = "idInitiative = " & Me.lboActuals.Column(0)
   cond1 = "typeActual = " & Me.lboActuals.Column(9)
   cond2 = "monthActual_tbl_actualComment = " & Me.lboActuals.Column(8)
   cond3 = "monthActual = " & Me.lboActuals.Column(8)

DoCmd.OpenForm "frm_initiativesDetails", , , cond & " And " & cond1 & " And " & cond2 & " And " & cond3

End Sub