Using allen browne's recurring events with workorder sample DB

[RingoStarr]

I have a sample database used for workorders that I have integrated with allen browne's recurring events. It works fine, I guess, but is not as efficient as I'd like with the current setup because you have to use record selectors to view each event per customer, and, it is missing a feature that I really want to bring in. My goal is to have a message box come up when I open a workorder within a date range of an event that will occur. For example, if an inspection is due on 10/26/13 and I open the workorder on 9/26/13 (within 1 month) I want to be notified that a scheduled event is due and be asked to add it to the workorder. If I hit yes to add the event, the event description will automatically be loaded into the work order description field. I have a feeling this is going to be little more than I'm able to take on but if anyone has any ideas I would love to hear them. I can send a copy of the database too if needed but would prefer not to post it online due to sensitive info. Thanks for all your help to noobs like me!



J/W if this is even possible and if anyone has any ideas about where to start, what kind of code to use, etc.

[ItsMe]

I would suggest getting familiar with VBA. The below drill may help you to understand some basics. You can study more about MsgBoxes in the VBA editor help files. Search "MsgBox Function". Ultimately, you should be able to manipulate the example to create different results without breaking it.


Create a blank DB

Create an unbound form
Create a control Button
Create an unbound textbox named "txtAnswer"

In the control Button's click event paste the following:

Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue ?"    ' Define message.
Style = vbYesNo + vbCritical + vbDefaultButton2    ' Define buttons.
Title = "MsgBox Demonstration"    ' Define title.
Help = "DEMO.HLP"    ' Define Help file.
Ctxt = 1000    ' Define topic
        ' context.
        ' Display message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then    ' User chose Yes.
    MyString = "Yes"    ' Perform some action.
Else    ' User chose No.
    MyString = "No"    ' Perform some action.
End If
MsgBox "You chose " & MyString, vbInformation, "Answer!" 'Display what the user chose in a new msg box
Me.txtAnswer.Value = MyString   'Transfer the string variable to an unbound text box

'