1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63
| Private Sub Bouton_Search_Click()
On Error GoTo Err_Bouton_Search_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Work_Report_and_Release_to_Service"
stLinkCriteria = "[Control my Reference]=" & "'" & Me![Control my Reference] & "'"
If Not IsNull(Me.Search_by_PO_Number) And Me.Search_by_PO_Number <> "" Then
stLinkCriteria = stLinkCriteria & " AND [PO_Number] LIKE '*" & Me![Search_by_PO_Number] & "*'"
End If
If Not IsNull(Me.Search_by_Work_Done) And Me.Search_by_Work_Done <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Detail of Work Done] LIKE '*" & Me![Search_by_Work_Done] & "*'"
End If
If Not IsNull(Me.Search_by_Work_Done_2) And Me.Search_by_Work_Done_2 <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Detail of Work Done] LIKE '*" & Me![Search_by_Work_Done_2] & "*'"
End If
If Not IsNull(Me.Search_by_Aircraft) And Me.Search_by_Aircraft <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Aircraft] = '" & Me![Search_by_Aircraft] & "'"
End If
If Not IsNull(Me.Search_by_Maintenance_Center) And Me.Search_by_Maintenance_Center <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Maintenance Center] = '" & Me![Search_by_Maintenance_Center] & "'"
End If
If Not IsNull(Me.Search_by_Date_1) And Me.Search_by_Date_1 <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Finish date] >= #" & Format(Me.[Search_by_Date_1], "yyyy/mm/dd") & "#"
End If
If Not IsNull(Me.Search_by_Date_2) And Me.Search_by_Date_2 <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Finish date] <= #" & Format(Me.[Search_by_Date_2], "yyyy/mm/dd") & "#"
End If
If Not IsNull(Me.Search_by_Work_Report_Number) And Me.Search_by_Work_Report_Number <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Work Report Number] LIKE '*" & Me![Search_by_Work_Report_Number] & "*'"
End If
If Not IsNull(Me.Search_Carry_Forward) And Me.Search_Carry_Forward <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Carry Forward Item ?] = '" & Me![Search_Carry_Forward] & "'"
End If
DoCmd.Close
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Bouton_Search_Click:
Exit Sub
Err_Bouton_Search_Click:
MsgBox Err.Description
Resume Exit_Bouton_Search_Click
End Sub |
Partager