Updating the Database

[carolinera]

I'm not sure how complex this question will turn out to be but here goes....

I have a membership database that records every meeting that any individual has attended and each meeting includes the amount they paid, when they paid, etc, etc, etc.

With that information I have numerous reports that the client needs for financial reporting and monthly reports.

Is there a way to, from the main switchboard, have a pop up or a dialogue that asks for either the meeting id or the meeting date that will update the reports automatically without having to run a perimeter query that asks for the meeting id or meeting date everytime the client needs the report?

I hope that makes senses.


Thx

 

[BLeslie88]

This should be good...

Dim GetMeetingID As Long
GetMeetingID = InputBox("MeetingID?", "Enter Meeting ID work with.")
If IsNumeric(GetMeetingID) And GetMeetingID >= 1 Then
MsgBox "GetMeetingID = " & GetMeetingID, vbOKOnly, "Input Result"
Else
MsgBox "You must enter a valid GetMeetingID", vbOKOnly, "Input Error"
Exit Sub
End If

You can reference GetMeetingID anytime after for searching for a record to edit, or appending a new record for the new meeting....

Hope this helps...

Regards,