Hi, I want to conect two comobox to the wrong serch button. I want to choose two names after that date and then i'll check it out for it (1 Viewer)

[jasm1243]

Hi, I want to conect two comobox to the wrong serch button. I want to choose two names after that date and then i'll check it out for it

 

[arnelgp]

even if you share your db, it is arabic and adding code will not work with your form with arabic characters.

 

[jasm1243]

even if you share your db, it is arabic and adding code will not work with your form with arabic characters.

Dim strQuery As String
Dim strWhere As String
Dim lngLen As Long
Const conJetDate = "\#mm\/dd\/yyyy\#"

strQuery = "qry_Inspections"

If Not IsNull(Me.cboWorker) Then
strWhere = strWhere & "([nawjory madaa] = """ & Me.cboWorker & """) AND "
End If

If Not IsNull(Me.txtFrom) Then
strWhere = strWhere & "([rekawtyhatnn] >= " & Format(Me.txtFrom, conJetDate) & ") AND "
End If

lngLen = Len(strWhere) - 5
If lngLen <= 0 Then
MsgBox "No criteria", vbInformation, "Nothing to do."
With Me.qry_Inspections_subform
Filter = ""
FilterOn = False
End With
Else
roi = 8
strWhere = Left$(strWhere, lngLen)
Debug.Print strWhere
With Me.qry_Inspections_subform.Form
.Filter = strWhere
.FilterOn = True
End With
End If
End Sub

Private Sub namecp_AfterUpdate()
Dim strSQL As String
strSQL = "SELECT Table_info.i, tblManager.strManagerName " & _
"FROM tblManager " & _
"WHERE table_info.id__infoo= " & Me.namecp & _
" ORDER BY Table_infoo.nawycompanyy;"
Me.namecp.RowSource = strSQL
Me.namecp.Requery
End Sub

 

[Gasman]

Put the sql into a string variable and Debug.Print it to show your errors.
You need to concatenate string literals with the variables, not just add it into the statement.

If you debug.print the sql, it will show, or should show you the error. if not you can post the ootput back here for someone to look at.

Also use the code tag icon to keep indentation. Hopefully you are using indentation?

 

[Gasman]

Version is too late for me

 

[Gasman]

Cross posting the same question is not going to help you, in fact it mght have the opposite effect.

 

[jasm1243]

Look at my data base. Fix what I'm in the picture.

 

[jasm1243]

I want to make a search the way I've selected in the picture. I have a complete combox, but secondly, I don't know how to connect.

 

[The_Doc_Man]

Let me try to ask a question that might clear this up.

Is it your intent to do a search based on ALL of the non-blank boxes that have arrows leading to the search button?

Also, why are you calling it the "wrong" search button?

The usual way you do this is similar to what you showed us in post #3, where you build a WHERE clause based on those controls that are not blank. You build the string to include the SELECT and FROM clauses so that you pick up what you want from where you want it. But you build the WHERE clause to specify the things you wanted based on the controls.

So, ... you put an empty string and test each related control. If the control is not blank, you add an element to the WHERE clause like you were doing in post #3. You showed us four arrows leading to the SEARCH button. So you would build the WHERE clause to have elements like "WHERE DateTo <= #" & Me.tbDateFrom & "# AND " and so on.

You appear to have started down that path. Can you be more specific about what is causing the problem?

 

[Gasman]

I have already said the dB is too late for my version of access.
Why are you pestering me in private conversations?

Any help I can give is always via forums, so others can see, plus avoid duplicating advice if you are asking others via pm.

 

[arnelgp]

see your subform.
view the code also.

 

[Pat Hartman]

@jasm,
Welcome aboard.
I moved your question to one of the Access threads. You're new here and you picked a forum that is not used for questions so I moved it to Forms since the question was about controls on a form.