YES. I DID IT TO MYSELF AGAIN!
Based on your comment, I decided to delete the OnOpen event in the called form and start over. Voila, my error hit me up side the head!
I don't remember why, but I had that OnOpen code in the OnCurrent event earlier. I was having a problem with something not working, so I "moved" it to the OnOpen event. However, the way I "moved" it was just to modify the Sub name Form_Current () by changing CURRENT to OPEN using the VBA editor. In doing so, I was left with Form_Open(). I noticed when I deleted the event and started over that Form_Open has a cancel parameter, which I did not have because of the way I just used the text editor to change CURRENT to OPEN.
Form_Open (Cancel as Integer)
versus
Form_Open()
I guess leaving off the cancel parameter was causing the form to immediately cancel.
UGH! Easily over two hours wasted.
UGH! Easily over two hours wasted.
If it were not for me, I would be a much better programmer...
---In MS_Access_Professionals@yahoogroups.com, <JohnV@...> wrote :
David-
What code do you have in frmSpecDetails? 2501 says something is cancelling the open - perhaps in the Form Open event.
John Viescas, Author
Effective SQL
SQL Queries for Mere Mortals
Microsoft Access 2010 Inside Out
Microsoft Access 2007 Inside Out
Microsoft Access 2003 Inside Out
Building Microsoft Access Applications
(Paris, France)
On Apr 28, 2017, at 9:23 PM, david.pratt@... [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:
I have a command button on a form with a simple DoCmd.Open form statement. I keep getting (2 hours worth) error 2501 when I click this cmdButton. the error table says I am manually cancelling a form I am trying to open with VBA. I am using the very same VBA for this button I have used for 20 other buttons. I have looked at the form properties I am trying to open and I cannot find any problems. The code never opens the form anyway; it errors on the DoCmd statement of the calling form.
If lstSpecNames.ItemsSelected.Count = 0 Then
MsgBox "Must select a Specification to add the parameters to!" _
, vbInformation, "No Specification Selected"
Me.lstSpecNames.SetFocus
Else
DoCmd.OpenForm "frmSpecDetails", acNormal, , , acFormAdd, acDialog, Me.lstSpecNames.Value
Me.lstSpecDetails.Requery
End If
MsgBox "Must select a Specification to add the parameters to!" _
, vbInformation, "No Specification Selected"
Me.lstSpecNames.SetFocus
Else
DoCmd.OpenForm "frmSpecDetails", acNormal, , , acFormAdd, acDialog, Me.lstSpecNames.Value
Me.lstSpecDetails.Requery
End If
Can anyone tell me where I can look to find my error?
__._,_.___
Posted by: david.pratt@outlook.com
| Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (3) |
Have you tried the highest rated email app?
With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.
.
__,_._,___
Tidak ada komentar:
Posting Komentar