OK, thanks. It took me about 4 hours but I figured it out. I was misusing the OpenArgs parameter. I had looked at a couple of what I thought were examples of OpenArg but they were actually examples of filtering in the DoCmd.OpenForm.
Thanks for the link. I used the debug.print to find what was in OpenArgs.
---In MS_Access_Professionals@yahoogroups.com, <duanehookom@...> wrote :
David,
You should learn how to do some trouble-shooting. You can use Debug.Print and breakpoints to figure out on your own what's going on. If you need assistance in how to use these, check this link http://www.tek-tips.com/faqs.cfm?fid=7148.
Regards,
Duane
From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of david.pratt@... [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Monday, February 13, 2017 12:52 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] VBA for Add New Record on 2-Click
Sent: Monday, February 13, 2017 12:52 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] VBA for Add New Record on 2-Click
I get the same problem. This is what I placed into the OnOpen for the form frmSegmentsAndFeatures:
Private Sub Form_Open(Cancel As Integer)
If Me.OpenArgs & "" <> "" Then
Me.cboProjectID.DefaultValue = Me.OpenArgs
Me.cboProjectID.Requery
txtSegmentNumber.SetFocus
End If
End Sub
If Me.OpenArgs & "" <> "" Then
Me.cboProjectID.DefaultValue = Me.OpenArgs
Me.cboProjectID.Requery
txtSegmentNumber.SetFocus
End If
End Sub
Isn't that first statement a repeat of what we already did with the OpenArgs property?
It doesn't throw any errors, but the cbo doesn't auto-populate.
---In MS_Access_Professionals@yahoogroups.com, <duanehookom@...> wrote :
---In MS_Access_Professionals@yahoogroups.com, <duanehookom@...> wrote :
David,
I would expect code in the OnOpen like:
If Me.OpenArgs & "" <> "" Then 'make sure there is OpenArgs
Me.[some control name].DefaultValue = Me.OpenArgs
End If
Regards,
Duane
From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of david.pratt@... [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Monday, February 13, 2017 7:00 AM
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] VBA for Add New Record on 2-Click
Sent: Monday, February 13, 2017 7:00 AM
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] VBA for Add New Record on 2-Click
OK, thanks.
Still not quite there but at least some improvement. Here is my OpenForm now:
DoCmd.OpenForm "frmSegmentsAndFeatures", acNormal, , , acFormAdd, acDialog, "ProjectID =" & cboSelectProject.Value
in the OnOpen Event for frmSegmentsAndFeatures I have:
me.cboProjectID.requery
txtSegmentNumber.setFocus
The SetFocus works fine, but the ProjectID field is not updating to the value in cboSelectProject.
However, if the frmSegmentsAndFeatures is already open, in either DesignView or FormView, then the ProjectField is properly filled with the value in cboSelectProject.. thus it is only in the Dialog mode that the ProjectID is not being properly set.
I tried moving the code to the OnCurrent and OnLoad events but neither of those helped.
'
'
---In MS_Access_Professionals@yahoogroups.com, <duanehookom@...> wrote :
David,
Congrats and exploring and trying something new!
If you open a form acDialog, the code will stop running until the form frmSegmentsAndFeatures is closed.
Since you seem to be comfortable with research on your own, check out "OpenArgs" which allows you to send values to the form being opened. Send the values you want to set and then have code in the On Open event of frmSegmentsAndFeatures which sets the default values of the controls.
Regards,
Duane
From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of david.pratt@... [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Sunday, February 12, 2017 11:10 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] VBA for Add New Record on 2-Click
Sent: Sunday, February 12, 2017 11:10 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] VBA for Add New Record on 2-Click
I am reading stuff and looking at internet stuff and watching YouTube videos trying to learn and get new ideas. I recently watched a YouTube video about Project Management. IN that video he used a form that I am trying to reproduce. the video talks about the information in the form, but not how to create the form, so I am trying on my own to reproduce the form as a learning method.
The form is unbound, has two combo boxes at the top; one for Company and one for Projects, both unbound, and has four list boxes. The form name is frmMainProjMgr. So at the top I have cboSelectCompany and cboSelectProject, with cboSelectProject query criteria based on the value of cboSelectCompany. No problem.
Under the two combo's are several list boxes. My first list box is based on a query of ProjectSegments table, which includes the foreign key ProjectID (with combo cboProjectID). The form's query criteria is based on the value of the unbound combo, cboSelectProject. I am trying to add new records to this table of ProjectSegments. I want to 2-click on the list box and bring up a form to create a new ProjectSegments record. The name of that form is frmSegmentsAndFeatures.
Also, when I bring up the form frmSegmentsAndFeatures to create a new ProjectSegment record, I would like the value in ProjectSegment.ProjectID to default to the value of cboSelectProject and I would like to set the focus on that form to the control named txtSegmentNumber. My VBA is not working and I need help please.
Here is what I have on the 2-click event for the list box:
Private Sub lstProjectSegments_DblClick(Cancel As Integer)
On Error GoTo lstProjectSegments_Click_Err
On Error GoTo lstProjectSegments_Click_Err
On Error Resume Next
DoCmd.OpenForm "frmSegmentsAndFeatures", acNormal, , , acFormAdd, acDialog
Forms!frmSegmentsAndFeatures.cboProjectID = Forms!frmMainProjMgr.cboSelectProjectID
Forms!frmSegmentsAndFeatures!txtSegmentNumber.SetFocus
If (Error <> 0) Then
Beep
MsgBox Error.Description, vbOKOnly, ""
End If
DoCmd.OpenForm "frmSegmentsAndFeatures", acNormal, , , acFormAdd, acDialog
Forms!frmSegmentsAndFeatures.cboProjectID = Forms!frmMainProjMgr.cboSelectProjectID
Forms!frmSegmentsAndFeatures!txtSegmentNumber.SetFocus
If (Error <> 0) Then
Beep
MsgBox Error.Description, vbOKOnly, ""
End If
lstProjectSegments_Click_Exit:
Exit Sub
lstProjectSegments_Click_Err:
MsgBox Error$
Resume lstProjectSegments_Click_Exit
End Sub
MsgBox Error$
Resume lstProjectSegments_Click_Exit
End Sub
__._,_.___
Posted by: david.pratt@outlook.com
| Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (10) |
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