find part of the field

[Giulio Benvenuti]

Hello, my name is Giulio and i'm newbie with Access.
I'm trying to make this function, but i would like find part of the field "consulente/specialista"
Any tip?

Function SearchCriteria20()


Dim ConsulenteCstr As String
Dim Task, strCriteria As String


If IsNull(Me.CasellaCombinata64) Then

ConsulenteCstr = "[consulente/specialista] LIKE '*" & CasellaCombinata64.Value & "*'"

Else


ConsulenteCstr = "[consulente/specialista] = '" & Replace(Me.CasellaCombinata64, "'", "''") & "'"


End If


strCriteria = ConsulenteCstr
Task = "Select * from [Query Pratiche Studio Totale 2] where " & strCriteria
Me.ComboBoxCustomerSearch.Form.RecordSource = Task


Me.ComboBoxCustomerSearch.Form.Requery
End Function

[Welshgasman]

So what problems are you having Guilio?

Firstly Task is a variant not a string.? In VBA you must define each variable eg Dim Task As String, strCriteria As String etc
If the combo is Null, I do not see the need for any criteria?
So I would test if ConsulenteCstr length is > than zero, and if so add the WHERE and the strCriteria.?
I would have also thought that you would need the Like and * as you have when Null, if you want to find it anywhere in the field?
No need for a Requery if you change the recordsource as well.

HTH

[Giulio Benvenuti]

It works well atm.
My question is:
Title = Giulio, Stefano, Marco, Enrico, Edoardo, etc
Why when i look for "ar" i dont find any record? i want find Marco and Edoardo for example. TitleCstr = "[Title] like '*'" is it correct? Where am i wrong?

Private Sub CasellaCombinata51_AfterUpdate()


Dim TitleCstr As String
Dim Task As String


If IsNull(Me.CasellaCombinata51) Then
TitleCstr = "[Title] like '*'"
Else
TitleCstr = "[Title] = '" & Replace(Me.CasellaCombinata51, "'", "''") & "'"

End If


Task = "Select * from [Query Pratiche Studio Totale 2] where " & TitleCstr
Me.ComboBoxCustomerSearch.Form.RecordSource = Task
End Sub

[Welshgasman]

Like I said, you need to use the Like (just as you do when there is no need for a criteria?)
With your code you are saying you want a record which is EQUAL to the combo?

Add a Debug.Print TitleCstr to see the criteria TitleCstr

[CarlettoFed]

Private Sub CasellaCombinata51_AfterUpdate()
Dim TitleCstr As String
Dim Task As String

If isnull(Me.CasellaCombinata51) Then

TitleCstr = ""

Else

TitleCstr = " WHERE [Title] Like ""*" & Me.CasellaCombinata51 & "*"""

End If

Task = "Select * From [Query Pratiche Studio Totale 2]" & TitleCstr

Me.ComboBoxCustomerSearch.Form.RecordSource = Task

End Sub

[Giulio Benvenuti]

Thank you guys!