CmdSave button

[LostBoy]

Hello,

I have maid some changes from my original posting. I hope someone will be able to help me out. If someone could provide me with the VB code for this I would greatly appreciate it. If not could someone please give me a reference. On my main form [Frm_Main] I have a combo box [cboFollowUp] when a selection is made form [Frm_FollowUp] pops up.

On form [Frm_FollowUp] all the fields that I want are populated. The fields are:

Acct# - Control Source ‘ =Forms![Frm_Main]![ACCT#] ‘
PT Name – Control Source ‘ =Forms![Frm_Main]![PT_Name] ‘
Acct Balance – Control Source =Forms![Frm_Main]![ACCT BAL] ‘
Activity – Control Source ‘ =Forms![Frm_Main]!cboFollowUp ‘
Initial – Control Source ‘ =Forms![Frm_Main]![IN] ‘
Financial – Control Source ‘ =Forms![Frm_Main]!CAR1 ‘
Date – Unbound, Default Value set to ‘ =Now() ‘
Follow up date – Unbound, field is populated when selection is made from MS Calendar7 which is on the form.
Notes – unbound, (a field to add notes, 255 characters max)

I have save button [cmdSave] on this form, when it is click I would like all the fields above to be copied to table [Tbl_followUp_Activities]. The table [Tbl_followUp_Activities] has all the fields listed. Any help at all I would really appreciate. Thanks!

[NeoPa]

One way of doing it would be to formulate an append (INSERT INTO ...) SQL string which includes all the values you have available on your form then execute it.

INSERT INTO [Tbl_followUp_Activities] ( [Acct#], etc )
SELECT Forms![Frm_FollowUp].[Acct#], etc;