MSGROUPS.NET | Search | Post Question | Groups | Stream | About | Register

2nd Request - can't transfer value between forms.

  • Follow


The two tck_201_ fields are text boxes on a form that are being set by to 
calculated text boxes on a different form!subform.  As you can see by the 
debug statements and results, the values will just not transfer.  I have set 
the format for both of the TCK _201_ fields to Fixed!  Any Ideas?

    Me.TCK_201_Done = Forms!frmPTS_Edit!SFrm_Date_Used_E!TMS_Actual
    Me.TCK_201_Tot = Forms!frmPTS_Edit!SFrm_Date_Used_E!TMS_NumDates
    
    Debug.Print Me.TCK_201_Done
    Debug.Print Me.TCK_201_Tot
    Debug.Print Forms!frmPTS_Edit!SFrm_Date_Used_E!TMS_Actual
    Debug.Print Forms!frmPTS_Edit!SFrm_Date_Used_E!TMS_NumDates

Debug results
Null
Null
 2 
 2 


Thanks DDBeards
0
Reply Utf 1/25/2010 2:47:02 PM 

DDBeards wrote:
>The two tck_201_ fields are text boxes on a form that are being set by to 
>calculated text boxes on a different form!subform.  As you can see by the 
>debug statements and results, the values will just not transfer.  I have set 
>the format for both of the TCK _201_ fields to Fixed!  Any Ideas?
>
>    Me.TCK_201_Done = Forms!frmPTS_Edit!SFrm_Date_Used_E!TMS_Actual
>    Me.TCK_201_Tot = Forms!frmPTS_Edit!SFrm_Date_Used_E!TMS_NumDates
>    
>    Debug.Print Me.TCK_201_Done
>    Debug.Print Me.TCK_201_Tot
>    Debug.Print Forms!frmPTS_Edit!SFrm_Date_Used_E!TMS_Actual
>    Debug.Print Forms!frmPTS_Edit!SFrm_Date_Used_E!TMS_NumDates
>
>Debug results
>Null
>Null
> 2 
> 2 


That sure appears to be a timing issue where the
calculations are done after the assignments.  This happens
frequently because control source expressions are evaluated
in a lower priority task than executin VBA code.  The way to
keep things synchonized is to do both the caclulations and
the assignments the same way.  Either use code or control
source expressions for both.

The easiest think to try is to just set text box
TCK_201_Done to the expression
=Forms!frmPTS_Edit!SFrm_Date_Used_E!TMS_Actual

If that doesn't do it, then use code in form frmPTS_Edit to
calculate the value for SFrm_Date_Used_E!TMS_Actual
I don't know what the calculations are or where their
variables come from so I can't say where the code to do the
calculations should go, probably in some other control's
AfterUpdate event and/or in the form's Current event.

-- 
Marsh
MVP [MS Access]
0
Reply Marshall 1/25/2010 3:39:52 PM 


Thanks Marsh, both of the values are count() statements contained in the form 
footer of the subform SFrm_Date_Used_E.  I tried to put a count statement in 
the new form pointing to the subform but could not get the syntax to work.

"Marshall Barton" wrote:

> DDBeards wrote:
> >The two tck_201_ fields are text boxes on a form that are being set by to 
> >calculated text boxes on a different form!subform.  As you can see by the 
> >debug statements and results, the values will just not transfer.  I have set 
> >the format for both of the TCK _201_ fields to Fixed!  Any Ideas?
> >
> >    Me.TCK_201_Done = Forms!frmPTS_Edit!SFrm_Date_Used_E!TMS_Actual
> >    Me.TCK_201_Tot = Forms!frmPTS_Edit!SFrm_Date_Used_E!TMS_NumDates
> >    
> >    Debug.Print Me.TCK_201_Done
> >    Debug.Print Me.TCK_201_Tot
> >    Debug.Print Forms!frmPTS_Edit!SFrm_Date_Used_E!TMS_Actual
> >    Debug.Print Forms!frmPTS_Edit!SFrm_Date_Used_E!TMS_NumDates
> >
> >Debug results
> >Null
> >Null
> > 2 
> > 2 
> 
> 
> That sure appears to be a timing issue where the
> calculations are done after the assignments.  This happens
> frequently because control source expressions are evaluated
> in a lower priority task than executin VBA code.  The way to
> keep things synchonized is to do both the caclulations and
> the assignments the same way.  Either use code or control
> source expressions for both.
> 
> The easiest think to try is to just set text box
> TCK_201_Done to the expression
> =Forms!frmPTS_Edit!SFrm_Date_Used_E!TMS_Actual
> 
> If that doesn't do it, then use code in form frmPTS_Edit to
> calculate the value for SFrm_Date_Used_E!TMS_Actual
> I don't know what the calculations are or where their
> variables come from so I can't say where the code to do the
> calculations should go, probably in some other control's
> AfterUpdate event and/or in the form's Current event.
> 
> -- 
> Marsh
> MVP [MS Access]
> .
>
0
Reply Utf 1/25/2010 4:25:02 PM 

That can not possibly work because the aggregate functions
(Count, Sum, etc) are unknown to VBA.

Did you try my first suggestion of using the expression:
	=Forms!frmPTS_Edit!SFrm_Date_Used_E!TMS_Actual
in a text box?

If that doesn't sync up, then use VBA code to calculate the
count.  The code for Count(*) could look like:
	With
Forms!frmPTS_Edit!SFrm_Date_Used_E.Form.RecordsetClone
		.MoveLast
		Me.TCK_201_Done = .RecordCount
	End With
-- 
Marsh
MVP [MS Access]


DDBeards wrote:
>Thanks Marsh, both of the values are count() statements contained in the form 
>footer of the subform SFrm_Date_Used_E.  I tried to put a count statement in 
>the new form pointing to the subform but could not get the syntax to work.
>
>"Marshall Barton" wrote:
>> DDBeards wrote:
>> >The two tck_201_ fields are text boxes on a form that are being set by to 
>> >calculated text boxes on a different form!subform.  As you can see by the 
>> >debug statements and results, the values will just not transfer.  I have set 
>> >the format for both of the TCK _201_ fields to Fixed!  Any Ideas?
>> >
>> >    Me.TCK_201_Done = Forms!frmPTS_Edit!SFrm_Date_Used_E!TMS_Actual
>> >    Me.TCK_201_Tot = Forms!frmPTS_Edit!SFrm_Date_Used_E!TMS_NumDates
>> >    
>> >    Debug.Print Me.TCK_201_Done
>> >    Debug.Print Me.TCK_201_Tot
>> >    Debug.Print Forms!frmPTS_Edit!SFrm_Date_Used_E!TMS_Actual
>> >    Debug.Print Forms!frmPTS_Edit!SFrm_Date_Used_E!TMS_NumDates
>> >
>> >Debug results
>> >Null
>> >Null
>> > 2 
>> > 2 
>> 
>> 
>> That sure appears to be a timing issue where the
>> calculations are done after the assignments.  This happens
>> frequently because control source expressions are evaluated
>> in a lower priority task than executin VBA code.  The way to
>> keep things synchonized is to do both the caclulations and
>> the assignments the same way.  Either use code or control
>> source expressions for both.
>> 
>> The easiest think to try is to just set text box
>> TCK_201_Done to the expression
>> =Forms!frmPTS_Edit!SFrm_Date_Used_E!TMS_Actual
>> 
>> If that doesn't do it, then use code in form frmPTS_Edit to
>> calculate the value for SFrm_Date_Used_E!TMS_Actual
>> I don't know what the calculations are or where their
>> variables come from so I can't say where the code to do the
>> calculations should go, probably in some other control's
>> AfterUpdate event and/or in the form's Current event.
0
Reply Marshall 1/25/2010 6:00:51 PM 

The count function is not in VBA, it is in the data source of the two text 
boxes in the footer.  With that said, I like the idea you have but the code 
provided will count the records, that will take care of the total number 
however the second number is the number of records with the completed date 
field filled in.

thanks

"Marshall Barton" wrote:

> That can not possibly work because the aggregate functions
> (Count, Sum, etc) are unknown to VBA.
> 
> Did you try my first suggestion of using the expression:
> 	=Forms!frmPTS_Edit!SFrm_Date_Used_E!TMS_Actual
> in a text box?
> 
> If that doesn't sync up, then use VBA code to calculate the
> count.  The code for Count(*) could look like:
> 	With
> Forms!frmPTS_Edit!SFrm_Date_Used_E.Form.RecordsetClone
> 		.MoveLast
> 		Me.TCK_201_Done = .RecordCount
> 	End With
> -- 
> Marsh
> MVP [MS Access]
> 
> 
> DDBeards wrote:
> >Thanks Marsh, both of the values are count() statements contained in the form 
> >footer of the subform SFrm_Date_Used_E.  I tried to put a count statement in 
> >the new form pointing to the subform but could not get the syntax to work.
> >
> >"Marshall Barton" wrote:
> >> DDBeards wrote:
> >> >The two tck_201_ fields are text boxes on a form that are being set by to 
> >> >calculated text boxes on a different form!subform.  As you can see by the 
> >> >debug statements and results, the values will just not transfer.  I have set 
> >> >the format for both of the TCK _201_ fields to Fixed!  Any Ideas?
> >> >
> >> >    Me.TCK_201_Done = Forms!frmPTS_Edit!SFrm_Date_Used_E!TMS_Actual
> >> >    Me.TCK_201_Tot = Forms!frmPTS_Edit!SFrm_Date_Used_E!TMS_NumDates
> >> >    
> >> >    Debug.Print Me.TCK_201_Done
> >> >    Debug.Print Me.TCK_201_Tot
> >> >    Debug.Print Forms!frmPTS_Edit!SFrm_Date_Used_E!TMS_Actual
> >> >    Debug.Print Forms!frmPTS_Edit!SFrm_Date_Used_E!TMS_NumDates
> >> >
> >> >Debug results
> >> >Null
> >> >Null
> >> > 2 
> >> > 2 
> >> 
> >> 
> >> That sure appears to be a timing issue where the
> >> calculations are done after the assignments.  This happens
> >> frequently because control source expressions are evaluated
> >> in a lower priority task than executin VBA code.  The way to
> >> keep things synchonized is to do both the caclulations and
> >> the assignments the same way.  Either use code or control
> >> source expressions for both.
> >> 
> >> The easiest think to try is to just set text box
> >> TCK_201_Done to the expression
> >> =Forms!frmPTS_Edit!SFrm_Date_Used_E!TMS_Actual
> >> 
> >> If that doesn't do it, then use code in form frmPTS_Edit to
> >> calculate the value for SFrm_Date_Used_E!TMS_Actual
> >> I don't know what the calculations are or where their
> >> variables come from so I can't say where the code to do the
> >> calculations should go, probably in some other control's
> >> AfterUpdate event and/or in the form's Current event.
> .
>
0
Reply Utf 1/25/2010 9:35:01 PM 

DDBeards wrote:
>The count function is not in VBA, it is in the data source of the two text 
>boxes in the footer.  

I guess I was thrown off where you said "I tried to put a
count statement in the new form".  There are VBA statements
and SQL statements, but it is an Expression when you put
	=something
in a control source property.

That also can not possibly work in another form because the
data for an aggregate function must come from the original
form's record source table/query.


>I like the idea you have but the code 
>provided will count the records, that will take care of the total number 
>however the second number is the number of records with the completed date 
>field filled in.

You can add something like this code inside the With block:
Dim lngCompleted As Long
	.MoveFirst
	Do Until .EOF
		If Not IsNull( ![completed date] ) _
			Then lngCompleted = lngCompleted + 1
	Loop
	Me.TCK_201_Tot = lngCompleted
-- 
Marsh
MVP [MS Access]


>"Marshall Barton" wrote:
>> That can not possibly work because the aggregate functions
>> (Count, Sum, etc) are unknown to VBA.
>> 
>> Did you try my first suggestion of using the expression:
>> 	=Forms!frmPTS_Edit!SFrm_Date_Used_E!TMS_Actual
>> in a text box?
>> 
>> If that doesn't sync up, then use VBA code to calculate the
>> count.  The code for Count(*) could look like:
>> 	With
>> Forms!frmPTS_Edit!SFrm_Date_Used_E.Form.RecordsetClone
>> 		.MoveLast
>> 		Me.TCK_201_Done = .RecordCount
>> 	End With
>> 
>> 
>> DDBeards wrote:
>> >Thanks Marsh, both of the values are count() statements contained in the form 
>> >footer of the subform SFrm_Date_Used_E.  I tried to put a count statement in 
>> >the new form pointing to the subform but could not get the syntax to work.
>> >
>> >"Marshall Barton" wrote:
>> >> DDBeards wrote:
>> >> >The two tck_201_ fields are text boxes on a form that are being set by to 
>> >> >calculated text boxes on a different form!subform.  As you can see by the 
>> >> >debug statements and results, the values will just not transfer.  I have set 
>> >> >the format for both of the TCK _201_ fields to Fixed!  Any Ideas?
>> >> >
>> >> >    Me.TCK_201_Done = Forms!frmPTS_Edit!SFrm_Date_Used_E!TMS_Actual
>> >> >    Me.TCK_201_Tot = Forms!frmPTS_Edit!SFrm_Date_Used_E!TMS_NumDates
>> >> >    
>> >> >    Debug.Print Me.TCK_201_Done
>> >> >    Debug.Print Me.TCK_201_Tot
>> >> >    Debug.Print Forms!frmPTS_Edit!SFrm_Date_Used_E!TMS_Actual
>> >> >    Debug.Print Forms!frmPTS_Edit!SFrm_Date_Used_E!TMS_NumDates
>> >> >
>> >> >Debug results
>> >> >Null
>> >> >Null
>> >> > 2 
>> >> > 2 
>> >> 
>> >> 
>> >> That sure appears to be a timing issue where the
>> >> calculations are done after the assignments.  This happens
>> >> frequently because control source expressions are evaluated
>> >> in a lower priority task than executin VBA code.  The way to
>> >> keep things synchonized is to do both the caclulations and
>> >> the assignments the same way.  Either use code or control
>> >> source expressions for both.
>> >> 
>> >> The easiest think to try is to just set text box
>> >> TCK_201_Done to the expression
>> >> =Forms!frmPTS_Edit!SFrm_Date_Used_E!TMS_Actual
>> >> 
>> >> If that doesn't do it, then use code in form frmPTS_Edit to
>> >> calculate the value for SFrm_Date_Used_E!TMS_Actual
>> >> I don't know what the calculations are or where their
>> >> variables come from so I can't say where the code to do the
>> >> calculations should go, probably in some other control's
>> >> AfterUpdate event and/or in the form's Current event.
>> .
>>
0
Reply Marshall 1/25/2010 11:32:04 PM
microsoft.public.access.formscoding 7496 articles. 31 followers.

5 Replies
242 Views

(page loaded in 0.406 seconds)

Similiar Articles:

Pressing Spacebar Opens a Form??? - microsoft.public.access.forms ...
... charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable access 2007 sp2 I can't ... Enters Control's Default Value In ... Accessible Forms in Microsoft Word ...

Table / Form Design for Headcount Report - microsoft.public.access ...
Pass Combo Box values to report - microsoft.public.access.forms ... ... Why can't I see my OLE data in form view ... Reports To person on the Headcount Request ...

Auto populate a form from an open form - microsoft.public.access ...
I managed to transfer the recordID from the form where ... call record form by the following: Default value [Forms ... For example the request I would give is "update the ...

Open then minimize a form before a report opens - microsoft.public ...
As criteria in the query date field write: Between forms ... on the Do cmd to use it to minimize the request ... I can get the second form to open but it always opens ...

data not refreshed until close the form - microsoft.public.access ...
MS Query has data, but does not transfer it to ... access.forms ... the new entry will become the default value) or ... the first form does not display in the second ...

Declaring Public Variables from Another Program (Word 2007 ...
With a FOIA request? Only partly in jest. Don't think this is gonna happen. Unless you can ... of setting the values in an INI file. Word can ... public.access.forms

Matching records in two lists - microsoft.public.excel.misc ...
... which are not in the second table while matching values in ... microsoft.public.access.forms ... I can locate the matching record and determine the line number, but I can't ...

Evaluate problem - microsoft.public.excel.programming
... have actualy two commands, '.activate' being the second ... calculated item versus calculated field ..... can't ... 3 ( 2 ) then multiply 3 by the parantheses value 6 + 6 12

Count the number of times a character appears in a field ...
... charset="us-ascii" Content-Transfer-Encoding: 7bit How can ... you mean to use a minus sign between the first Len(field) and the second ... Sorting Alphanumeric values in a ...

.Net application architecture suggestion... - microsoft.public ...
... simpler GUI functionality => ASP,NET (either web forms ... You should be using Data Transfer Objects (DTO's) passing ... CMFCPropertyGridCtrl - Get the value from the grid ...

Cutting Edge: ASP.NET Forms
... page contains two forms, the second of ... NET pages, you don't need to use Request because you can ... control and values from one page to another: the Server.Transfer method.

Cutting Edge: Form-based Programming in ASP.NET
... mobile forms in which multiple server-side forms can ... posts form data to the server; the default value is POST; can ... remember that the limited size of a GET request can ...

Thrift Savings Plan
If needed you can upgrade your Flash plugin. View text ... Forms & Publications ... Interfund Transfer

Transfer Instructions
... required documentation for your transfer request. ... will be used or the date the transfer is processed. The Value Per ... BNY Mellon at 1-800-649-3593 to request these forms ...

Customer Service - FAQs - Forms and Applications - Help - E*TRADE
Customer Service, Frequently Asked Questions, Forms and ... Transfer an Existing IRA; View All Retirement Accounts ... FDIC Insured | No Bank Guarantee | May Lose Value

7/7/2012 2:04:25 PM


Reply:



Privacy Policy | All Times Are GMT(UTC) | powered by