Search results

Don't worry fixed it myself!

I want it to work with Ok, don't want to give them an option as date must be updated or entered

I get an error '= expected'

Perfect thank you 👍 worked a treat How do I personalise the message box title without in this situation please?

I have the following code which checks the combobox to ensure it matches a certain value, and if it does the code then goes onto do a date validation check for me. If the date validation check fails I want a YesNo message box to appear to prompt the user to go back and enter/update the date...

Not to worry peep's, my original code works, however, I had a button that populates one of the text boxes with today's date and this wasn't activating the afterupdate event. So change design of form to allow for this. Thanks for your input 👍

Might seem like a silly question but how do you use conditional formatting to hide/make visible a combobox?

Should I have said based on multiple textbox values? I want one combobox enable if a selection of textboxes have any value

Hi, Trying to get this to work but once I have entered info into all textboxes combo box still remains disabled. Where am I going wrong? Private Sub Client_FN_AfterUpdate() Call EnableClientStatusCombo End Sub Private Sub Phone_Call__1_AfterUpdate() Call EnableClientStatusCombo End Sub...

Doh! My bag apologies completely didn't see that 😳 @June7 thank you for all your help and persisting with me. Because of you I now don't need to go back to the drawing board, I'm forever in your debt 👍 For whoever else looks at this forum here is the full working code: Private Sub...

@June7 so I assume I need this in my code somewhere: Do while Not rst.EOF If rst![MyField] <> Something Then 'The real loop exit condition. Exit Do End If ' Rest of your code here. rst.MoveNext Loop Where and how please?

😍🥳🎉Whooohoooo thats working for the email body from 'Client' table THANK YOU SO MUCH :) ...................but still have null issue with notes i.e. if no notes are entered get an error at this point here: salesRST.MoveFirst Error saying no current record, any ideas?

?

'😂😂 By enchilada do you mean the code or the DB? Private Sub ClientStatus_Change() Dim sStatus As String sStatus = Me!ClientStatus & "" If sStatus <> "NPW - No Contact" And sStatus <> "NPW - Gone Elsewhere" And sStatus <> "NPW - Unable to Place" Then Exit Sub End If If MsgBox("Would you...

No Sorry same error: Item not found in this collection

Still getting same error! :-(

So should I now do this? .HTMLBody = Replace(.HTMLBody, "%Call1%", clientRST!C1) .HTMLBody = Replace(.HTMLBody, "%Call2%", clientRST!C2) .HTMLBody = Replace(.HTMLBody, "%Call3%", clientRST!C3)

If I return the code to how it was prior to amending i.e. , [Phone_Call_#1], then a value is returned so it must be in the recordset and therefore the code that needs tweeking? Put it back to this , Nz([Phone_Call_#1], ''), then get the error posted in #33

Thanks @June7 done that like so: strSQL = "SELECT [CustomerID], [Broker], [Lead_Date], [Client_FN], [Client_SN], [Email_Address], [Mobile_No], [Email_Sent], [SMS/WhatsApp_Sent], Nz([Phone_Call_#1], '') AS C1, Nz([Phone_Call_#2], '') AS C2, Nz([Phone_Call_#3], '') AS C3 FROM Client" _...

We did, evidenced by post #24 but again stuck with syntax error