Search results

I think ive found the problem and solution i think its to do with the date confusing itself between english and us times. heres what i did Change your WhereCondition to "Start_Date between fVBDate(#" & Me.StartDate & "#) and fVBDate(#" & Me.EndDate & "#)" Put this in a module: Function...

'If Quote Number is blank, rest filled If IsNull(Me.Combo41) And Me.Combo50 & "" <> "" And Me.DateStart & "" <> "" And Me.DateFinish & "" <> "" Then strFilter = "[Engineer 1] = " & Chr(34) & Me!Combo50 & Chr(34) & " And " & _ "[Date Of Work] BETWEEN #" & Me.DateStart & "# AND #" & Me.DateFinish...

Im getting some weird results In the code below [CODE]'If Engineer is blank, rest filled If IsNull(Me.Combo50) And Me.Combo41 & "" <> "" And Me.DateStart & "" <> "" And Me.DateFinish & "" <> "" Then strFilter = "

nevermind there was a misstype in the code its working now thanks everyone :)

Ive tried acViewReport and i get Run-time error '3075' it says Syntax error in string in query expression

Ahh yes thanks, just one thing ive noticed... any way of making it open in report view as apose to print preview?

If Me.Combo41 & "" <> "" And Me.Combo50 & "" <> "" And Me.DateStart & "" <> "" And Me.DateFinish & "" <> "" Then strFilter = "[Engineer 1] = '" & Chr(34) & Me!Combo50 & Chr(34) & "' And " & _ "[Date Of Work] BETWEEN #" & Me.DateStart & "# AND #" & Me.DateFinish & "#" DoCmd.OpenReport...

Im now having a problem with combining the between date:strFilter = "[Date Of Work] BETWEEN #" & Me.DateStart & "# AND #" & Me.DateFinish & "#" and engineer: CODE]strFilter = "[Engineer 1] = '" & Me!Combo50 & "'" [/CODE] I have strFilter = "[Engineer 1] = '" & Me!Combo50 & "'And " & _ "[Date...

Just did a quick check and i think the changes are working, thanks alot for the help :D

Hi yes i see the immediate Window Now... I have access 2010 and im sorry for changing it about but i decided to instead of using DTpickers ive used two text boxes... "DateStart" and "DateFinish" Heres is my code.. 'If All are filled If Me.Combo41 & "" <> "" And Me.Combo50 & "" <> "" And...

I dont know what you mean, when i comment out the DoCmd.openReport when i run nothing happens... anyway Ive been working on it and i have this... 'If All are filled If Me.Combo41 & "" <> "" And Me.Combo50 & "" <> "" And Me.DateStart & "" <> "" And Me.DateFinish & "" <> "" Then strFilter =...

[CODE]Private Sub Command55_Click() Dim strFilter As String Dim VarItem As Variant Dim DTpicker6 As Date Dim DTPicker7 As Date 'If Quote Number is blank If IsNull(Me.Combo41) Then strFilter = "[Engineer 1] = '" & Me!Combo50 & "'Or " & _ "[Engineer 2] = '" & Me!Combo50 & "'Or " & _ "[Engineer 3]...

Re: Opening and filtering a Report For peoples information i have solved this part myself using... Dim strFilter As String Dim VarItem As Variant strFilter = "[Engineer 1] = '" & Me!Combo50 & "'Or " & _ "[Engineer 2] = '" & Me!Combo50 & "'" DoCmd.OpenReport "VisitSheetTableReport"...

Opening and filtering a Report To start id like to say i dont know very much about VBA.. I have this code... Private Sub Command55_Click() DoCmd.OpenReport "VisitSheetTableReport", acViewPreview, , "Engineer 1'*" & Combo50 & "*'" End Sub Its giving me a Run-time error '2447': and saying...

Cant anyone help me with my problem?

Thanks Very Much worked a treat :)

Private Sub Command24_Click() If IsNull(Me.Text1) Then MsgBox "You have not filled all boxes." & vbCrLf & _ "Do you want to continue?", vbYesNo, "Edit Visit Report" Else DoCmd.RunCommand acCmdSaveRecord DoCmd.OpenForm "HomePage" End If Dim Msg As VbMsgBoxResult If Msg = vbYes Then...

Thanks for the help in advance. My situation is... i have a form called "Search Form" which has 2 comboBoxs with QuoteNo (Combo41) Engineer (Combo50) 2 Activex Date and time Picker boxes Date Start (DTPicker5) Date Finish (ActiveXCtl52) 1 TextBox Delivery Number (Text43) and a Search...

This sounds very complicated and for that i apologize, ill try and explain as best i can. What i want is for a form to have drop down and text boxes that when entered and the search button is clicked will filter the results and show them either in a table or as a form or something similair...