Recent content by Clayhead22

Excellent thanks for your quick responses guys. That works great.

Hi All I have built a string of VBA code to reset a password if the user enters all of the correct details. This part works fine. The issue is that if the incorrect details are entered instead of retunring a MsgBox saying incorrect details enterd, it returns an access error Run-time error 3075...

ok have just done that and it worked! Thank you. If (IsNull(DLookup("[ID]", "Contacts", " '" & Me.Contact_Selector.Value & "' And [Date_of_Birth] = #" & Me.DPA_Date_of_Birth & "# And [Email] = '" & Me.DPA_Email.Value & "' And [Mobile] = '" & Me.DPA_Mobile.Value & "' And [Postal_Code] = '" &...

Thinking about it if i remove that how will it know which contact to lookup? Sorry still quite new to this.

Ahh i see. Remove the second ID?

Thanks for the Advice. To let everyone know a little more. Its a form that opens so that we can verify a customer. Someone would enter the details into the boxes and it checks them against the Table (Contacts) To make sure i am looking at the correct contact i added an invisible text box on...

Hi All I have been working for hours and got to the stage where i can not spot what is going wrong with my DLookup. Could anyone please cast an eye? Getting a Mis-Match error. If (IsNull(DLookup("[ID]", "Contacts", "[ID] ='" & Me.Contact_Selector.Value & "' And [Date_of_Birth] = #" &...

Yep thought of that one but each day is around 200k records so exporting to excel is not possible.

I managed to get today and yesterday with >=DateAdd("d",-1,Date()) however regardless of the mixture of things i try a can not add the rest f the dates. Im a total amateur at this. you mean like adding this to the end? & Date()-7 & Date()-8 & Date()-14 & Date()-15 Also the column label is...

Hi. I really need some help for something i am building. I have a query in Access that runs however their are a lot of records. What i want to do is have the criteria for Date to pull back the follow records Current Day Yesterday 7 Days ago 8 Days ago 14 Days ago 15 Days ago Can anyone...

Got It If IsNull(Me.Search_Date_of_Birth.Value) = False Then str_Filter = str_Filter & " AND ([Date_of_Birth]=#" & Me.Search_Date_of_Birth & "#)" plog you are an absolute legend. Thank you for your help!

Thank you i have the number working One last thing, i dont seem to see where i need to put the # # Apologies i am still very new to all of this and maybe punching above my weight with the project i am working on. If IsNull(#Me.Search_Date_of_Birth.Value#) = False Then str_Filter = str_Filter...

Ahh i see what you mean. I have done all individually and the only ones that do not work are account Id and Date of birth I have tried a few things now and do not seem to be able to get these two to work..

ok that does not bring back any error without the IFs Added back in the IFs and if i do not fill in a criteria box then it does not error either however when i do it gives the same error

Sorry yes i changes to If IsNull(Me.Search_Account_ID) = False Then str_Filter = str_Filter & " AND ([Account_ID]='" & Me.Search_Account_ID & "')" If IsNull(Me.Search_First_Name) = False Then str_Filter = str_Filter & " AND ([First_Name]='" & Me.Search_First_Name & "')" If...