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 👍
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...