auto copy form tab contents to another tab

[mkern via AccessMonster.com]

I am going to ask this again as I didn't receive any worthwhile feedback the
first time. This time I will be a little more clear. I have a customer
service system I am working on. It has multiple tabs on the customers tab to
track the following: Company Information, Contact Information, Domains, Call
logs, Support tickets and so on and so forth the first two tabs are Company
Owner Information and Contact Information. Sometimes this information is the
same as it may be the same person. so here is the question their are about 15
feilds that I would like to copy to the second tab via button or checkbox so
I need a statement or code that when you click the button will copy the data
from the first tabs feilds over to the second tabs feilds. Like the copy up
graphic button in Fireworks. any worthwhile suggestions or can someone help
me with this.

Thank you

 

[kingston via AccessMonster.com]

Create a procedure to set the control values via a button:

Me.[Tab2Field1]=Me.[Tab1Field1]
Me.[Tab2Field2]=Me.[Tab1Field2]
...
Me.[Tab2Field15]=Me.[Tab1Field15]

If you're using subforms:
Me.SubForm2Name![Tab2Field1]=Me.SubForm1Name![Tab1Field1]
...

 

[Steve Schapel]

Mkern,

If you had a command button to click if the Contact Information is the
same as the Company Information, it seems to me that you could use code
like this...

Me.FirstContactField = Me.FirstCompanyField
Me.SecondContactField = Me.SecondCompanyField
...
(and so on for each of the 15 fields).

If there is a problem with this idea, can you please post back with
further explanation.

 

[Guest]

I am going to ask this again as I didn't receive any worthwhile feedback the
first time. ?????


There are a few ways to do this but one method is to use the set value on
click event to set the value of a field on a subform (tab) from a field in
another sub form (tab)

Somthing like this (aircode)

Private Sub SomeButton_Click()
On Error GoTo Command236_Click_Err

Forms!MainFormName!SubFormTab1Name.Form!FieldName =
Forms!MainFormName!SubFormTab2Name.Form!FieldName

Forms!MainFormName!SubFormTab3Name.Form!FieldName =
Forms!MainFormName!SubFormTab4Name.Form!FieldName

SomeButton_Click_Exit:
Exit Sub

End Sub

 

[Guest]

I am going to ask this again as I didn't receive any worthwhile feedback the
first time.

That's a strange way of asking for help from people who don't get paid.



Mike

 

[mkern via AccessMonster.com]

That's a strange way of asking for help from people who don't get paid.

Mike

Truth Hurts, Nice of you to chime in MikeCCC however again what you have
provided in your post is empty feedback. I do my fair share of free support
to people hundreds upon hundreds of times a year. I didn't think it was
strange I figured that the people who needed to see the post didn;t see it so
I reposted seems logical to me sorry, I apologize if I offended anyone.
Thanks to everyone that actually posted useful information.