Custom form to replace messagebox

  • Thread starter Thread starter Fred Boer
  • Start date Start date
F

Fred Boer

Hello:

Two part question:

1.

I want to have a messagebox that will offer the users the following options
if they have overdue books and they try to check out a book:

Continue, and allow the checkout
Cancel the operation
Open their circulation record.

This cannot be done with a standard messagebox, correct?

2. Assuming I am correct about (1), I need to create a form that looks just
like a messagebox. Is there an easy way to do this? I.e., someone has
examples available for download; or the dimensions of the standard Access
message box and its command buttons..? If I want to be finicky, I can sit
with a ruler and make screen measurements, etc., but I wonder if I can avoid
this...

Thanks!
Fred Boer
 
How well the standard message box can be used in any given scenario really
depends on the question being asked....or how many times you want to prompt
the user. For example, you COULD use the standard message box with 2
prompts

intResponse = msgbox("The patron has overdue books. Do you want to
continue?", vbyesno,""Overdue Books")

If intResponse = vbNo Then
intResponse = msgbox("Do you want to review the patron's circulation
records?", vbyesno, "Review Records")
If intResponse = vbyes Then
Docmd.OpenForm "frmcirculation"
End if
End if

However, if you're trying to address this logic in one prompt, and you
cannot form the question in a manner that would fit in with the standard
messagebox options...yeah, you'd have to make a custom form. I don't have a
form that addresses the logic in your scenario, but it wouldn't be difficult
to make a generic one.
 
Thanks, Jeff! Now that you mention it...

Boy the memory is going! Good thing I still have my looks! <g>

Fred
 
Hi Paul:

Yes, I was hoping to avoid two prompts... And, no, it's not difficult to
create the custom form, (especially now that I've been reminded of Arvin's
solution), but, well, if it already existed somewhere, I could be
"selectively industrious!" ;)

Fred
 
Back
Top