Writing form calculated values to fields in a table

[MX1]

Oh boy, this is kind of a big one. I have a form with several calculated
fields on spanning 5 rows. I somehow need to get the field values into a
table. Challenge is I don't know how to do this. What makes it tougher is
the rows need to be written to the table only if the total does not equal
zero - kind of a supression thing. Here's a quick mock up:

Form might contain these values (simplied for ease of reading)

Row1Val1=500
Row1Val2=300
Row1Percent=10 (added val1 and val2 then multiplied by percent)
Row1Total=80

Row2Val1=100
Row2Val2=400
Row2Percent=5
Row2Total=25

Row3Val1=0
Row3Val2=0
Row3Percent=1
Row3Total=0

So, now that we have values from the form, I need to right out only two
distinct rows in the destination table (because row3=0). I'm thinking this
may be done with an update query but not sure of the logic. If anyone has
any thoughts on this, I'd really appreciate it.

Table is waiting for data and would like this when done:

Val1, Val2, Percent
500 300 10
100 400 5

Again, row3 not written to table because it had a total of zero.

Many Thanks!

[MX1]

OK, I've figured out that I need a Append Query. Have it written but not
sure how to initiate it from the VBA code. Any thoughts?

"MX1" <mx*@mx1.abc> wrote in message news:MPdNc.32846$8_6.12960@attbi_s04...

Oh boy, this is kind of a big one. I have a form with several calculated
fields on spanning 5 rows. I somehow need to get the field values into a
table. Challenge is I don't know how to do this. What makes it tougher is the rows need to be written to the table only if the total does not equal
zero - kind of a supression thing. Here's a quick mock up:

Form might contain these values (simplied for ease of reading)

Row1Val1=500
Row1Val2=300
Row1Percent=10 (added val1 and val2 then multiplied by percent)
Row1Total=80

Row2Val1=100
Row2Val2=400
Row2Percent=5
Row2Total=25

Row3Val1=0
Row3Val2=0
Row3Percent=1
Row3Total=0

So, now that we have values from the form, I need to right out only two
distinct rows in the destination table (because row3=0). I'm thinking this may be done with an update query but not sure of the logic. If anyone has
any thoughts on this, I'd really appreciate it.

Table is waiting for data and would like this when done:

Val1, Val2, Percent
500 300 10
100 400 5

Again, row3 not written to table because it had a total of zero.

Many Thanks!

[MX1]

OK, for those of you who may be following along, I found the RunSQL Method
and have it launching a query OK. I think I'm all set now. I hope this can
help someone out there.

:)

"MX1" <mx*@mx1.abc> wrote in message
news:LpfNc.162867$a24.154204@attbi_s03...

OK, I've figured out that I need a Append Query. Have it written but not
sure how to initiate it from the VBA code. Any thoughts?

"MX1" <mx*@mx1.abc> wrote in message

news:MPdNc.32846$8_6.12960@attbi_s04...

Oh boy, this is kind of a big one. I have a form with several calculated fields on spanning 5 rows. I somehow need to get the field values into a table. Challenge is I don't know how to do this. What makes it tougher

is

the rows need to be written to the table only if the total does not equal zero - kind of a supression thing. Here's a quick mock up:

Form might contain these values (simplied for ease of reading)

Row1Val1=500
Row1Val2=300
Row1Percent=10 (added val1 and val2 then multiplied by percent)
Row1Total=80

Row2Val1=100
Row2Val2=400
Row2Percent=5
Row2Total=25

Row3Val1=0
Row3Val2=0
Row3Percent=1
Row3Total=0

So, now that we have values from the form, I need to right out only two
distinct rows in the destination table (because row3=0). I'm thinking

this

may be done with an update query but not sure of the logic. If anyone has any thoughts on this, I'd really appreciate it.

Table is waiting for data and would like this when done:

Val1, Val2, Percent
500 300 10
100 400 5

Again, row3 not written to table because it had a total of zero.

Many Thanks!

[PC Datasheet]

Put the following code in the Click event of a button or where appropriate:

Docmd.SetWarnings False
DoCmd.OpenQuery "NameOfAppendQuery"
Docmd.SetWarnings True
MsgBox "Data where total does not equal 0 has been appended to table"

--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
re******@pcdatasheet.com
www.pcdatasheet.com

"MX1" <mx*@mx1.abc> wrote in message news:LpfNc.162867$a24.154204@attbi_s03...

OK, I've figured out that I need a Append Query. Have it written but not
sure how to initiate it from the VBA code. Any thoughts?

"MX1" <mx*@mx1.abc> wrote in message news:MPdNc.32846$8_6.12960@attbi_s04...

Oh boy, this is kind of a big one. I have a form with several calculated
fields on spanning 5 rows. I somehow need to get the field values into a
table. Challenge is I don't know how to do this. What makes it tougher

is

the rows need to be written to the table only if the total does not equal
zero - kind of a supression thing. Here's a quick mock up:

Form might contain these values (simplied for ease of reading)

Row1Val1=500
Row1Val2=300
Row1Percent=10 (added val1 and val2 then multiplied by percent)
Row1Total=80

Row2Val1=100
Row2Val2=400
Row2Percent=5
Row2Total=25

Row3Val1=0
Row3Val2=0
Row3Percent=1
Row3Total=0

So, now that we have values from the form, I need to right out only two
distinct rows in the destination table (because row3=0). I'm thinking

this

may be done with an update query but not sure of the logic. If anyone has
any thoughts on this, I'd really appreciate it.

Table is waiting for data and would like this when done:

Val1, Val2, Percent
500 300 10
100 400 5

Again, row3 not written to table because it had a total of zero.

Many Thanks!

[MX1]

Cool, I actually found the setwarnings thing after I finally go annoyed
hitting OK. Thanks for your help!

One odd thing about my form is that when I click the New Record button, it
does not seem to zero out the calc'd fields. Very odd. Any thoughts on how
to handle this?

PS. I actually put the SQL code in the VBA query itself.

"PC Datasheet" <no****@nospam.spam> wrote in message
news:%z*****************@newsread3.news.atl.earthl ink.net...

Put the following code in the Click event of a button or where appropriate:
Docmd.SetWarnings False
DoCmd.OpenQuery "NameOfAppendQuery"
Docmd.SetWarnings True
MsgBox "Data where total does not equal 0 has been appended to table"

--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
re******@pcdatasheet.com
www.pcdatasheet.com

"MX1" <mx*@mx1.abc> wrote in message

news:LpfNc.162867$a24.154204@attbi_s03...

OK, I've figured out that I need a Append Query. Have it written but not

sure how to initiate it from the VBA code. Any thoughts?

"MX1" <mx*@mx1.abc> wrote in message news:MPdNc.32846$8_6.12960@attbi_s04...

Oh boy, this is kind of a big one. I have a form with several calculated fields on spanning 5 rows. I somehow need to get the field values into a table. Challenge is I don't know how to do this. What makes it tougher is

the rows need to be written to the table only if the total does not

equal zero - kind of a supression thing. Here's a quick mock up:

Form might contain these values (simplied for ease of reading)

Row1Val1=500
Row1Val2=300
Row1Percent=10 (added val1 and val2 then multiplied by percent)
Row1Total=80

Row2Val1=100
Row2Val2=400
Row2Percent=5
Row2Total=25

Row3Val1=0
Row3Val2=0
Row3Percent=1
Row3Total=0

So, now that we have values from the form, I need to right out only two distinct rows in the destination table (because row3=0). I'm thinking

this

may be done with an update query but not sure of the logic. If anyone has any thoughts on this, I'd really appreciate it.

Table is waiting for data and would like this when done:

Val1, Val2, Percent
500 300 10
100 400 5

Again, row3 not written to table because it had a total of zero.

Many Thanks!

[MX1]

Forget it, figured I can zero out variables on CurrentRecord Event
Procedure. Thanks anyway.

:)

"MX1" <mx*@mx1.abc> wrote in message news:4AhNc.34054$8_6.30431@attbi_s04...

Cool, I actually found the setwarnings thing after I finally go annoyed
hitting OK. Thanks for your help!

One odd thing about my form is that when I click the New Record button, it
does not seem to zero out the calc'd fields. Very odd. Any thoughts on how to handle this?

PS. I actually put the SQL code in the VBA query itself.

"PC Datasheet" <no****@nospam.spam> wrote in message
news:%z*****************@newsread3.news.atl.earthl ink.net...

Put the following code in the Click event of a button or where appropriate:

Docmd.SetWarnings False
DoCmd.OpenQuery "NameOfAppendQuery"
Docmd.SetWarnings True
MsgBox "Data where total does not equal 0 has been appended to table"

--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
re******@pcdatasheet.com
www.pcdatasheet.com

"MX1" <mx*@mx1.abc> wrote in message

news:LpfNc.162867$a24.154204@attbi_s03...

OK, I've figured out that I need a Append Query. Have it written but not sure how to initiate it from the VBA code. Any thoughts?

"MX1" <mx*@mx1.abc> wrote in message news:MPdNc.32846$8_6.12960@attbi_s04... > Oh boy, this is kind of a big one. I have a form with several calculated > fields on spanning 5 rows. I somehow need to get the field values into a > table. Challenge is I don't know how to do this. What makes it tougher is
> the rows need to be written to the table only if the total does not equal > zero - kind of a supression thing. Here's a quick mock up:
>
> Form might contain these values (simplied for ease of reading)
>
> Row1Val1=500
> Row1Val2=300
> Row1Percent=10 (added val1 and val2 then multiplied by percent)
> Row1Total=80
>
> Row2Val1=100
> Row2Val2=400
> Row2Percent=5
> Row2Total=25
>
> Row3Val1=0
> Row3Val2=0
> Row3Percent=1
> Row3Total=0
>
> So, now that we have values from the form, I need to right out only two > distinct rows in the destination table (because row3=0). I'm thinking this
> may be done with an update query but not sure of the logic. If

anyone has > any thoughts on this, I'd really appreciate it.
>
> Table is waiting for data and would like this when done:
>
> Val1, Val2, Percent
> 500 300 10
> 100 400 5
>
> Again, row3 not written to table because it had a total of zero.
>
> Many Thanks!
>
>