How to Set Temporary Value

[tihmir]

Can you not save in a different format?

https://support.office.com/en-gb/art...6-ee5bb637717b

Oh, sorry. Here is the DB in Access 2002 - 2003 Database

 

[Gasman]

Right, from what I can see

Your tbl_hm has no record?, so you can never filter to a record of any type.
Your tbl_mb has records, not all match.

The only reason you see the value selected from the subformnonstandard form is that you assign the current LcontrolsID to TempVars]![temVarLControl] and then LControlsID has a default value of =[TempVars]![temVarLControl], and as no record exists with the selected value, you are on anew record and see the default value. If you remove that, it behaves the same as Form_hm.

 

[tihmir]

Right, from what I can see

Your tbl_hm has no record?, so you can never filter to a record of any type.
Your tbl_mb has records, not all match.

The only reason you see the value selected from the subformnonstandard form is that you assign the current LcontrolsID to TempVars]![temVarLControl] and then LControlsID has a default value of =[TempVars]![temVarLControl], and as no record exists with the selected value, you are on anew record and see the default value. If you remove that, it behaves the same as Form_hm.

Is there a way when I press the button cmdHM to open the form "Form_hm" to the same LControlsID as on the form "subformNonStandard" and to add in the form "Form_hm"?

 

[Gasman]

Is there a way when I press the button cmdHM to open the form "Form_hm" to the same LControlsID as on the form "subformNonStandard" and to add in the form "Form_hm"?

Yes, you could do the same as you are doing with the _mb form.
Assign the Tempvar to Me.LControlsID, and put the same default value for that control on the _hm form.?

As there is no record to match, all you are doing is setting a new record's value to that of the TempVar. if a record existed with that value then you would be shown those records.

I am not saying this is the best way, but it is one way, which you are comfortable with using, especially as you are setting the default value on the destination form.

HTH

 

[tihmir]

Yes, you could do the same as you are doing with the _mb form.
Assign the Tempvar to Me.LControlsID, and put the same default value for that control on the _hm form.?
As there is no record to match, all you are doing is setting a new record's value to that of the TempVar. if a record existed with that value then you would be shown those records.
I am not saying this is the best way, but it is one way, which you are comfortable with using, especially as you are setting the default value on the destination form.
HTH

What should the code look like on click on the button cmdHM?
I'm trying with this, but nothing

     Dim tvLControlsID As TempVars
    Me.LControlsID = TempVars!tvLControlsID
    DoCmd.OpenForm "Form_hm"

On the form "Form_hm" in the field LControlsID I set Default Value =[TempVars]![tvLControlsID]

 

[Gasman]

Well, I think you would still want the Where clause in case a record with that ID exists?
I would expect it would be along the lines of

[TempVars]![temVarLControl]= Me.LControlsID
DoCmd.OpenForm "Form_hm", , , "[LControlsID]=" & Me.LControlsID

and set the default value for LControlsID as you have done for form_mb ?

FWIW, the one variable I have never dimmed has been a TempVar. Only just realised this.

 

[tihmir]

Yes, I need the same result as in cmdMB and Form_mb
When I add this code on my Access 2019:

[TempVars]![temVarLControl]= Me.LControlsID

DoCmd.OpenForm "Form_hm", , , "[LControlsID]=" & Me.LControlsID

it shows my Run time error: 32538: TemVar can only stor data :banghead:

 

[Gasman]

Well, the DoCmd needs to be on a new line

Try adding the .Value to the tempvar

As I mentioned before I just use the format below

tempvars("tt")=123
? tempvars("tt")
123

 

[tihmir]

The code finally works!

 TempVars("temVarLControl") = LControlsID.[COLOR=Red]Value[/COLOR]
    DoCmd.OpenForm "Form_hm", , , "[LControlsID]=" & Me.LControlsID

Thanks, Gasman

 

[Gasman]

I would stay consistent and use Me.LControlsID in both places.?

 

[tihmir]

I would stay consistent and use Me.LControlsID in both places.?

In this case I get Run-time error 32538

TempVars("temVarLControl") = Me.LControlsID

 

[Gasman]

In this case I get Run-time error 32538

OK, my apologies. Access thinks you are trying to assign an object not it's value.
One of the few times you need to specify the value property I believe.?