Hello guys ! At the moment I have a search by keyword and date range with two buttons search,i.e., making the search individually. I'm having two problems. The first one is with the date format; with 2 digit on the day it works fine, however with one it makes a wrong search. I need that the date format be dd-mm-aaaa. How can I change that, since it's not an option in the format section? The second problem is that I can't cross the two searches (keyword and date range). Is it possible to make the search only with one button? Or, if with two, how can cross the search?
The code that I've build is :
--->KEYWORD :
Private Sub btnSearchMOB_Click()
Dim STR As String
STR = " SELECT LISTA_EQ.ID, LISTA_EQ.[No INV], LISTA_EQ.DESCRICAO, LISTA_EQ.MARCA, LISTA_EQ.MODELO, LISTA_EQ.[Num_SERIE / MATRICULA], LOC.MOBILIZAÇÃO, LOC.[CENTRO CUSTO LOCAL], LOC.[LOCALIZAÇÃO/UTILIZADOR], LOC.SITUAÇÃO, LOC.NEGLIGÊNCIA, LOC.[LOCAL DE REPARAÇÃO] " _
& " FROM LISTA_EQ INNER JOIN LOC ON LISTA_EQ.ID = LOC.ID " _
& " WHERE [No INV] LIKE '*" & Me.search_EQ_MOB_box & "*' " _
& " OR DESCRICAO LIKE '*" & Me.search_EQ_MOB_box & "*' " _
& " OR MARCA LIKE '*" & Me.search_EQ_MOB_box & "*' " _
& " OR MODELO LIKE '*" & Me.search_EQ_MOB_box & "*' " _
& " OR [Num_SERIE / MATRICULA] LIKE '*" & Me.search_EQ_MOB_box & "*' " _
& " OR ([LISTA_EQ.ID] = " & Me.search_EQ_MOB_box & ") " _
& "ORDER BY LISTA_EQ.[No INV], LOC.MOBILIZAÇÃO DESC"
Me.search_mob_list.Form.RecordSource = STR
Me.search_mob_list.Form.Requery
End Sub
===============================================
--->DATE RANGE :
Private Sub cmd_Search_Date_Click()
Dim STR, DATE_RANGE As String
DATE_RANGE = " ([LOC.MOBILIZAÇÃO] >= #" & Me.data_incio & "# And [MOBILIZAÇÃO] <= #" & Me.data_fim & "#) "
STR = " SELECT LISTA_EQ.ID, LISTA_EQ.[No INV], LISTA_EQ.DESCRICAO, LISTA_EQ.MARCA, LISTA_EQ.MODELO, LISTA_EQ.[Num_SERIE / MATRICULA], LOC.MOBILIZAÇÃO, LOC.[CENTRO CUSTO LOCAL], LOC.[LOCALIZAÇÃO/UTILIZADOR], LOC.SITUAÇÃO, LOC.NEGLIGÊNCIA, LOC.[LOCAL DE REPARAÇÃO] " _
& " FROM LISTA_EQ INNER JOIN LOC ON LISTA_EQ.ID = LOC.ID " _
& " WHERE (" & DATE_RANGE & ") " _
& "ORDER BY LOC.MOBILIZAÇÃO DESC"
Me.search_mob_list.Form.RecordSource = STR
Me.search_mob_list.Form.Requery
End Sub
===============================================
The code that I've build is :
--->KEYWORD :
Private Sub btnSearchMOB_Click()
Dim STR As String
STR = " SELECT LISTA_EQ.ID, LISTA_EQ.[No INV], LISTA_EQ.DESCRICAO, LISTA_EQ.MARCA, LISTA_EQ.MODELO, LISTA_EQ.[Num_SERIE / MATRICULA], LOC.MOBILIZAÇÃO, LOC.[CENTRO CUSTO LOCAL], LOC.[LOCALIZAÇÃO/UTILIZADOR], LOC.SITUAÇÃO, LOC.NEGLIGÊNCIA, LOC.[LOCAL DE REPARAÇÃO] " _
& " FROM LISTA_EQ INNER JOIN LOC ON LISTA_EQ.ID = LOC.ID " _
& " WHERE [No INV] LIKE '*" & Me.search_EQ_MOB_box & "*' " _
& " OR DESCRICAO LIKE '*" & Me.search_EQ_MOB_box & "*' " _
& " OR MARCA LIKE '*" & Me.search_EQ_MOB_box & "*' " _
& " OR MODELO LIKE '*" & Me.search_EQ_MOB_box & "*' " _
& " OR [Num_SERIE / MATRICULA] LIKE '*" & Me.search_EQ_MOB_box & "*' " _
& " OR ([LISTA_EQ.ID] = " & Me.search_EQ_MOB_box & ") " _
& "ORDER BY LISTA_EQ.[No INV], LOC.MOBILIZAÇÃO DESC"
Me.search_mob_list.Form.RecordSource = STR
Me.search_mob_list.Form.Requery
End Sub
===============================================
--->DATE RANGE :
Private Sub cmd_Search_Date_Click()
Dim STR, DATE_RANGE As String
DATE_RANGE = " ([LOC.MOBILIZAÇÃO] >= #" & Me.data_incio & "# And [MOBILIZAÇÃO] <= #" & Me.data_fim & "#) "
STR = " SELECT LISTA_EQ.ID, LISTA_EQ.[No INV], LISTA_EQ.DESCRICAO, LISTA_EQ.MARCA, LISTA_EQ.MODELO, LISTA_EQ.[Num_SERIE / MATRICULA], LOC.MOBILIZAÇÃO, LOC.[CENTRO CUSTO LOCAL], LOC.[LOCALIZAÇÃO/UTILIZADOR], LOC.SITUAÇÃO, LOC.NEGLIGÊNCIA, LOC.[LOCAL DE REPARAÇÃO] " _
& " FROM LISTA_EQ INNER JOIN LOC ON LISTA_EQ.ID = LOC.ID " _
& " WHERE (" & DATE_RANGE & ") " _
& "ORDER BY LOC.MOBILIZAÇÃO DESC"
Me.search_mob_list.Form.RecordSource = STR
Me.search_mob_list.Form.Requery
End Sub
===============================================