Avatar billede -anders- Juniormester
02. juni 2005 - 21:31 Der er 9 kommentarer og
1 løsning

Gemme værdi i global variable når en form er aktuel/åben

Hej eksperter
Jeg har brug at en funktion der kan gemme en værdi i en global variable når en form åbnes eller ved aktuel, formålet er så at spørge på værdien, og derefter udføre en handling et eks.når form1 åbnes kunne den globale variable feks. sættes til "a" når form2 åbnes sættes variable til "b" o.s.v.

På min menulinje har jeg så en knap til at udskriv en eller flere rapporter meningen er så at udskrive en bestemt rapport alt efter hvilken form der er åbnet. Man kunne spørge på om formen IsLoaded, men det er ikke optimalt her da der er flere forms der kan være åbne samtidig, forms er ikke popup eller modale, nogen ideer :o)
Avatar billede terry Ekspert
03. juni 2005 - 09:01 #1
Do you mean someting like this? But I think you need explain a little more about more than one form being open. That would mean that you would overwrite the value of MyVar for each form which gets opended.


Public MyVar as text


Public SetMyVar ( v as Text)

  MyVar = v

End Function

Public Function GetMyVar() as text

  GetMyVar = MyVar

End Function
Avatar billede -anders- Juniormester
03. juni 2005 - 10:35 #2
Hej terry, nedenstående en lidt mere udførlig forklaring:
På min brugerdefineret menulinje har jeg et menupunkt "Udskriv", jeg har et x antal forms form1,form2,form3.

Hvis jeg feks. åbner form1 skal variable sættes til en værdi, det samme for de andre forms.
Så kunne man have en funktion mere:

Funtion Udskrivraport()
If "Variable" = "a" Then
"Udskriv Rapport1"
End if

If "Variable" = "b" Then
"Udskriv Rapport2"
End IF

o.s.v.

Jeg har forsøgt med:
If Screen,ActiveForm = "form1" Then
Men det fejler
Avatar billede terry Ekspert
03. juni 2005 - 11:07 #3
So you want to set the variable depending on the active form?
Avatar billede terry Ekspert
03. juni 2005 - 11:10 #4
screen.ActiveForm.Name
Avatar billede -anders- Juniormester
03. juni 2005 - 11:14 #5
He terry, ja lige præcis, det er dette jeg søger hjælp til
Avatar billede -anders- Juniormester
03. juni 2005 - 11:21 #6
Okay dette virker

If Screen.ActiveForm.Name = "form1"
Then
End if

If Screen.ActiveForm.Name = "form2"
Then
End if

Så jeg behøver sådan set ikke en global variable, terry smid et svar, du ledet mig på rettet vej, tak for det
Avatar billede -anders- Juniormester
03. juni 2005 - 11:22 #7
Nogen gange er løsning lige om hjørnet, det bare lige det med at set det :o)
Avatar billede terry Ekspert
03. juni 2005 - 11:23 #8
:o)
Avatar billede -anders- Juniormester
03. juni 2005 - 11:29 #9
Mange tak for hjælpen, og god weekend
Avatar billede terry Ekspert
03. juni 2005 - 11:59 #10
tak og god weekend til dig også
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester