Veeam® is happy to provide the Microsoft community with a study guide prepared by MVP and MCT, Orin Thomas. This guide will take you through each of the exam objectives, helping you to prepare for and pass the examination.
COURSE of the MONTH
9 days, 14 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Message Box Commands?
Posted on 2012-04-05
Good Afternoon!
I have another quick question about the code I am writing. This time it is for a message box.
When my user completes the form he fills out, I have programed a message box to come up and tell the user that the updates are complete.
The user clicks "OK" and then another box comes up asking the user if he wants to close the form. This is a yes/no box.
When the user clicks "yes," The form clears and then closes.
Now, when the user clicks "No" I want the message boxes to close and for nothing else to happen. However, what is actually happening is that the user clicks "No" and the form still closes.
Below is the code. I am wondering if I am using the DoCmd.Close command wrong.
Also, how do you tell the form to just close the message box?
Thank you for any help you can give me!
I have another quick question about the code I am writing. This time it is for a message box.
When my user completes the form he fills out, I have programed a message box to come up and tell the user that the updates are complete.
The user clicks "OK" and then another box comes up asking the user if he wants to close the form. This is a yes/no box.
When the user clicks "yes," The form clears and then closes.
Now, when the user clicks "No" I want the message boxes to close and for nothing else to happen. However, what is actually happening is that the user clicks "No" and the form still closes.
Below is the code. I am wondering if I am using the DoCmd.Close command wrong.
Also, how do you tell the form to just close the message box?
Thank you for any help you can give me!
MsgBox "Your Weekly Report Has Been Updated. Thank you!", vbInformation + vbOKOnly, "Update Complete"
MsgBox "Close Form?", vbInformation + vbYesNo
If vbYes Then
Dim i As Integer
For i = 1 To LstNewAct.ListCount
'Remove an item from the ListBox.
LstNewAct.RemoveItem 0
Next i
DoCmd.Close
End If
If vbNo Then
End If
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
8
7-
6
21 Comments
Megin,
try this...
try this...
MsgBox "Your Weekly Report Has Been Updated. Thank you!", vbInformation + vbOKOnly, "Update Complete"
result = MsgBox "Close Form?", vbInformation + vbYesNo
If result = vbYes Then
Dim i As Integer
For i = 1 To LstNewAct.ListCount
'Remove an item from the ListBox.
LstNewAct.RemoveItem 0
Next i
DoCmd.Close
End If
Active 1 day ago
Try this:
MsgBox "Your Weekly Report Has Been Updated. Thank you!", vbInformation + vbOKOnly, "Update Complete"
If MsgBox ("Close Form?", vbInformation) + vbYesNo) =vbYes Then
Dim i As Integer
For i = 1 To LstNewAct.ListCount
'Remove an item from the ListBox.
LstNewAct.RemoveItem 0
Next i
DoCmd.Close, acForm, Me.Name
End If
mx
MsgBox "Your Weekly Report Has Been Updated. Thank you!", vbInformation + vbOKOnly, "Update Complete"
If MsgBox ("Close Form?", vbInformation) + vbYesNo) =vbYes Then
Dim i As Integer
For i = 1 To LstNewAct.ListCount
'Remove an item from the ListBox.
LstNewAct.RemoveItem 0
Next i
DoCmd.Close, acForm, Me.Name
End If
mx
I used that code, but immediatly the line that says "result v= MsgBox "Close Form?", vbInformation + vbYesNo" turned red as an error. It is saying that it is a syntax error.'
How should I change that?
Also, thank you for taking the time to help me!
How should I change that?
Also, thank you for taking the time to help me!
Hi Megin,
The line should read...
The line should read...
result = MsgBox "Close Form?", vbInformation + vbYesNo
result v= MsgBox "Close Form?", vbInformation + vbYesNo
DatabaseMX: I had to make a small change because I was getting a syntax error message, but then it did work, except that the close box, instead of being a "Yes/No" box is not an "Ok" box. How to I make it into a yes/no box?
Here is what the code looks like now:
Here is what the code looks like now:
MsgBox "Your Weekly Report Has Been Updated. Thank you!", vbInformation + vbOKOnly, "Update Complete"
If MsgBox("Close Form?", vbInformation) + vbYesNo = vbYes Then
Dim i As Integer
For i = 1 To LstNewAct.ListCount
'Remove an item from the ListBox.
LstNewAct.RemoveItem 0
Next i
DoCmd.Close , acForm, Me.Name
End If
MsgBox "Your Weekly Report Has Been Updated. Thank you!", vbInformation + vbOKOnly, "Update Complete"
If MsgBox("Close Form?", vbYesNo) = vbYes Then
Dim i As Integer
For i = 1 To LstNewAct.ListCount
'Remove an item from the ListBox.
LstNewAct.RemoveItem 0
Next i
DoCmd.Close , acForm, Me.Name
End If
Active 1 day ago
MsgBox "Your Weekly Report Has Been Updated. Thank you!", vbInformation + vbOKOnly, "Update Complete"
If MsgBox ("Do you want to close this form?", 36,"Close Form?") = vbYes Then
Dim i As Integer
For i = 1 To LstNewAct.ListCount
'Remove an item from the ListBox.
LstNewAct.RemoveItem 0
Next i
DoCmd.Close , acForm, Me.Name
End If
If MsgBox ("Do you want to close this form?", 36,"Close Form?") = vbYes Then
Dim i As Integer
For i = 1 To LstNewAct.ListCount
'Remove an item from the ListBox.
LstNewAct.RemoveItem 0
Next i
DoCmd.Close , acForm, Me.Name
End If
Active 1 day ago
aebea - you copied the same code I posted and changed it ... Please use your own code ...
mx
mx
Aebea,
That was almost perfect! I just ran into an type mismatch error when I click the "Yes" button. It is highlighting the DoCmd.Close , acForm, Me.Name
Should I just take off the acForm and Me.Name part?
Honstly, I am so ignorant of how all of this works. I am not sure why they are there. They might be super important to what I am doing. ~heavy sigh~
That was almost perfect! I just ran into an type mismatch error when I click the "Yes" button. It is highlighting the DoCmd.Close , acForm, Me.Name
Should I just take off the acForm and Me.Name part?
Honstly, I am so ignorant of how all of this works. I am not sure why they are there. They might be super important to what I am doing. ~heavy sigh~
I have never used the Me.Name part of the DoCmd.Close. Personally, I tend to just use DoCmd.close. :-)
Active 1 day ago
Sorry ... on more time:
MsgBox "Your Weekly Report Has Been Updated. Thank you!", vbInformation + vbOKOnly, "Update Complete"
If MsgBox ("Do you want to close this form?", 36,"Close Form?") = vbYes Then
Dim i As Integer
For i = 1 To LstNewAct.ListCount
'Remove an item from the ListBox.
LstNewAct.RemoveItem 0
Next i
DoCmd.Close acForm, Me.Name
End If
MsgBox "Your Weekly Report Has Been Updated. Thank you!", vbInformation + vbOKOnly, "Update Complete"
If MsgBox ("Do you want to close this form?", 36,"Close Form?") = vbYes Then
Dim i As Integer
For i = 1 To LstNewAct.ListCount
'Remove an item from the ListBox.
LstNewAct.RemoveItem 0
Next i
DoCmd.Close acForm, Me.Name
End If
DatabaseMX, I really didn't mean to step on your toes there. I'm just trying to help out, and do so as quickly as possible. But since you're complaining, I will add my two cents as well. There's nothing wrong with my initial solution so I didn't see any point of you posting your solution after mine. But I guess we're all just trying to help and get points.
Thank you so much! I really appretiate the quick help! The solution worked once I took the bits off of the end of the DoCmd.Close statement. I hope that is okay, that I took the other stuff off. <br /><br />I swear, if it weren't for you I would be beating my head on my desk for the next two days!
Active 1 day ago
"so I didn't see any point of you posting your solution after mine"
Look at the time stamp ... there was no posting when I hit Submit ...
And even if there was, I posted a *different* solution ... removing code that is really not necessary. Plus, you did not Dim result ... so, and module with Option Explicit set is going to generate a compile error.
mx
Look at the time stamp ... there was no posting when I hit Submit ...
And even if there was, I posted a *different* solution ... removing code that is really not necessary. Plus, you did not Dim result ... so, and module with Option Explicit set is going to generate a compile error.
mx
You're right. Sorry, MX. Won't happen again. Honestly, I was just trying to help out. I wasn't trying to rip you off.
No worries on my end. And again, I'm sorry. I realize you're a veteran expert and I don't want cause any tension between any experts here, especially the veterans.
Featured Post
Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
In Part II of this series, I will discuss how to identify all open instances of Excel and enumerate the workbooks, spreadsheets, and named ranges within each of those instances.
This article shows how to get a list of available printers for display in a drop-down list, and then to use the selected printer to print an Access report or a Word document filled with Access data, using different syntax as needed for working with …
With Microsoft Access, learn how to specify relationships between tables and set various options on the relationship.
Add the tables:
Create the relationship:
Decide if you’re going to set referential integrity:
Decide if you want cascade upda…
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …
Suggested Courses
Course of the Month9 days, 14 hours left to enroll
762 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.