Tempvars gebruiken in function

[neilvv]

Ik wil een Function maken maar ik krijg het niet werkend.

d.m.v. een pop-up wordt een bepaald formulier b.v. FRM_A geopend.
de naam van dit formulier wordt in een tempvars opgeslagen (VarFormName)
Op dit formulier is een knop die o.a. een aantal andere knoppen onzichtbaar moet maken.
Dit zou moeten gebeuren via een Module:

Public Function Module_hide_Buttons()
'knoppen verbergen
Dim Frm
Frm = (TempVars!VarFormName)

        Forms!(Frm)!Toevoegen_aan_prijslijst.SetFocus
        Forms!(Frm)!btnSearchPictype.visible = False
        Forms!(Frm)!btnSearchPicEan.visible = False
        Forms!(Frm)!btnSearchType.visible = False
        Forms!(Frm)!btnSearchEan.visible = False
End Function

de foutmelding : de expressie bij fout die u hebt opgegeven als instelling voor de gebeurteniseigenschap, heeft de volgende fout veroorzaakt: Het type-aanduidingsteken komt niet overeen met het type van de gedeclareerde gegevens.


Als ik gewoon de naam van het formulier in vul werken de onderste 4 regels wel?
wat doe ik verkeerd?

 

[OctaFish]

ik zou een paar dingen anders doen. Om te beginnen: je hebt Frm als Variant gedeclareerd en niet als String. Verder ben je gek op haakjes, wellicht omdat je teveel voorbeelden van Microsoft hebt bekeken. Maar die hebben aandelen in de haakjes ( en ) en krijgen daar dus geld voor .
Ik had dus deze declaratie gemaakt:

Dim Frm As String
Frm = TempVars!VarFormName

NIet dat de haakjes hier kwaad kunnen, maar wel in het volgende stuk. Althans: in de combinatie die je hebt gemaakt. Overigens zie ik het gebruik van de variabele hier als redelijk overbodig. Ik zou dus geeneens een variabele declareren. En dan krijg je dus dit:

Public Function Module_hide_Buttons()
'knoppen verbergen
     Forms(TempVars!VarFormName)!Toevoegen_aan_prijslijst.SetFocus
     Forms(TempVars!VarFormName)!btnSearchPictype.visible = False
     Forms(TempVars!VarFormName)!btnSearchPicEan.visible = False
     Forms(TempVars!VarFormName)!btnSearchType.visible = False
     Forms(TempVars!VarFormName)!btnSearchEan.visible = False
End Function

Of, ook een variant die zou kunnen werken:

Public Function Module_hide_Buttons()
     Forms(TempVars!VarFormName).Form!Toevoegen_aan_prijslijst.SetFocus
End Function

 

[neilvv]

OctaFish,

Bedankt voor dit supersnelle antwoord! ja ik ben dol op haakjes :thumb: maar nu ik weet dat ze daar geld voor krijgen ga ik proberen ze minder te gaan gebruiken
Ik heb het gelijk toegevoegd/aangepast en werkt perfect!!

 

[OctaFish]

Mag je de vraag nog op <Opgelost> zetten .