[mso] Re: Access VB code needed
- From: "April Pace" <4office@xxxxxxxxxxxxx>
- To: <mso@xxxxxxxxxxxxx>
- Date: Fri, 3 Jan 2003 14:14:25 -0500
This looks much easier! Ok so I would put this on the onload event of the
sfrmMailingAdd form and not on the after_update procedure in the original
ClientInfo Form when I open (pop-up) the mailing form?
Look what I added to your code below:
Private Sub Check17_AfterUpdate()
If Me.Check17.Value = True Then
DoCmd.OpenForm "sfrmCltMailingadd"
me.txtCltID = Forms!frmClientinfo.txtCltID <<<<See
"sfrmCltMailingAdd"
Else
'do nothing
End If
End Sub
-----Original Message-----
From: mso-bounce@xxxxxxxxxxxxx [mailto:mso-bounce@xxxxxxxxxxxxx]On
Behalf Of Colli, Anthony G
--------------------------------------------------------
Or you can have one form reference the value of a control on another form.
It usually works like this:
me.txtCltID = Forms!frmClientinfo.txtCltID
Where Forms! is the collection of forms in your database and
frmClientinfo.txtCltID refers to a control on that form. This generally
works pretty well but the form that is being referenced must be open or an
error will be raised. Use would use this from the onload event of the form
being open also.
I just happen to be doing this very same thing.
-Anthony
-----Original Message-----
From: April Pace [mailto:4office@xxxxxxxxxxxxx]
Sent: Friday, January 03, 2003 1:33 PM
To: mso@xxxxxxxxxxxxx
Subject: [mso] Re: Access VB code needed
Ok this works great and I figured out how to get it to "popup" On now the
only problem is that it is not automatically populating the txtCltID which I
assumed that it would do like if I was using a subform in the form... So
What do I need to add to this code to populate the txtCltID field from the
original form (frmClientInfo) into this form that just popped Up?
Look Below... How close am I??
-----Original Message-----
if you click the build button (...) and go into VB then some code like this
might work. Where Check17 is the name of the checkbox and
"sfrmCltMailingaddy" is the name of the form you want to open.
Private Sub Check17_AfterUpdate()
If Me.Check17.Value = True Then
DoCmd.OpenForm "sfrmCltMailingadd"
'[txtCltID].Form "frmClientinfo" = [txtCltID].Form
"sfrmCltMailingAdd"
Else
'do nothing
End If
End Sub
-Anthony
*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or
MicrosoftOffice@xxxxxxxxxxxxxxxx
To send mail to the group, simply address it to mso@xxxxxxxxxxxxx
To Unsubscribe from this group, send an email to
mso-request@xxxxxxxxxxxxx?Subject=unsubscribe
Or, visit the group's homepage and use the dropdown menu. This will also allow
you to change your email settings to digest or vacation (no mail).
//www.freelists.org/webpage/mso
To be able to use the files section for sharing files with the group, send a
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation with
instructions. Once you are a member of the files group, you can go here to
upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************
Other related posts:
