Variablers levetid

øverst i ET kode modul uden for en sub eller function

Public xxx as xxx - lever sålænge koden kører
Private xxx as xxx - lever sålænge koden kører i DET kodemodul

Det vil sige at Public lever til jeg lukker den..?

Du kan se på prosedyrer som "bokser" med vinduer som man KUN KAN SE UT AV. Hvis du er inne i en "boks", kan du se alle variabler som er definert utenfor "boksene" (funksjonene). Da må du som flemming sier, declarere variablene øvererst i en modul, før (utenfor) alle prosedyrer. (i declarasjonsdlen ) Når programmet går ut av en prosedyre, dør alle variabler som ikke er declarert slik: Static Variabelnavn as datatype. ( bytter ut Dim med static ) Static variablene vil beholde sin verdi til neste gang programmet går inn i samme prosedyre. Men heller ikke de kan nås utenfor prosedyren.

Hmmmm... er ikke helt sikker på at jeg forstå... måske skulle jeg forklare hvad jeg ønsker:

Jeg henter en masse variabler hele tiden så længe min application kører - jeg har nu lagt disse over i en access database - men det bliver tungt at kører når man hele tiden åbner og kontakter databasen - så var det jeg tænkte om ikke man kunne ligge alle posterne fra databasen ind i et array som levede så længe den pågældende Workbook var åben... alternativt kunne man åbne forbindelsen til databasen så det kun var selv data.open ...... som skulle kørers igen og igen - men jeg ved ikke om det også er tungt?

Nogen forslag til dette?

cddk - klik på mit navn og vis brugerinfo for at få min email. Send mig en mail så skal du få et lille eksempel.

Jeg kan også ha bruk for dette eksempel,
Så jeg sender også en mail:-)

:-) sender til alle der mailer mig.

Mail sendt

>>Flemming...

Tak for din mail -men...

Globale konstanter kender jeg - men dem kan jeg ikke tildele en værdi eller?

Jeg ønsker at indlæse tabellen i en variable når Workbooken indlæses og først slå den ned når workbooken lukkes... er det muligt...?

se om ikke
Public Sub DemoTwo_02()
giver mening... samme princip

Eller kan jeg kører min opkobling til sql og så tildele denne til min globale variabel... hmmm... tester

PS. er det slemt, hukommelsesmæssigt, at have et array med 300 poster liggende mens app. kører?

Ja det var også den jeg lige faldt over - tester - det burde jo virke...

Hmmm... jeg behøver vist lidt mere hjælp...

Her er lige mit forsøg - men den brokker sig over at den variabel jeg tildeler til glbINI skal være en konstant?

Du får lige koden - der er nok et eller andet jeg har misset:

Option Explicit
Dim IniTmpList As Variant


Public Const glbINI As Variant = IniTmpList
Private Function INI()


'****************************************************************************************
'*          Function created on 1. October 2003 by Morten Frederiksen                                                                                      *
'*          Function changed on
'*
'****************************************************************************************
'*    Værdier der skal bruges til at hente oplysning fra settings arket              *
'****************************************************************************************

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim intColIndex As Integer
Dim DBPath, DBBase, i, tmpList
DBPath = Workbooks("Best-Skema 00.xls").Sheets("status").Range("C2")
'DBBase = GetName("strMainDB")


    ' open the database
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
        DBPath & ";"
    Set rs = New ADODB.Recordset
    ' open the recordset
    rs.Open "INI", cn, adOpenStatic, adLockOptimistic, adCmdTable
   
    INI = TransposeDim(rs.GetRows)

End Function

der mangler selvfølelig også et kald til funktionen i ovenstående...

Men jeg kan heller ikke skrive:

Public Const glbINI as Variant=ini

Så vil den stadig have en konstant - hvilket jo er logisk nok da denne ikke kan ændre sig under kørslen... men kan jeg så det jeg vil?

en konstant skal have et fast defineret udtryk f.eks. - Public Const glbINI As Variant = "ini" - eller Public Const glbINI As Variant = 12

Hvis du f.eks. vil tildele - Public IniTmpList As Variant - en værdi, så gøres det via en sub.

Public Sub Tildel()
    IniTempList = INI
End Sub

Giver det meninig for dig ?

ja - og nej....

Den lever jo ikke gennem hele workbookens levetid.....

Er det ikke muligt at tildele en variabel en værdi ved start som slå den ned til slut.... ??????????????????????????????????

Start = Åbne Workbook (regneark)
Slut = Lukke Workbook (regneark)

og undervejs skal jeg ikke ændre - så den er faktisk konstant gennem hele forløbet - bare ikke ved opstarten....

Er det noget rod jeg er ude i?

Variablerne kører så længde der kører kode.
du har husket at deklarere variablen med PUBLIC og ikke DIM....?

Ja variablen kører - men indholde forsvinder da når subben forlades (Public Sub tildel())

Eller ???

Indholdet skulle forsvinde, når du ikke længere kører noget kode....!
Altså kan den sagtens holde en værdi imens en userform bliver vist og udfyldt, men når du vender tilbage til "almindeligt" regneark igen, så skulle den "dø"

cddk, hvis du øverst i modulet under declaration skriver skriver
Public glbINI()

og i workbook-Open

Sub Workbook_open
glbINI=INI()
End Sub

Okay - kan vi tage den i Jørgen Clevin versionen (for dummies) ;O)

Altså jeg har min userform (UF1)

Når den loades vil jeg indlæse 300 rækker fra en MSACCESS database til et array (Ar1) via min funktion HentData

Jeg vil så igennem hele UF1´s levetid have adgang til (Ar1) (uden kald til funktionen HentData)

Hvor ligger jeg mit kald til HentData?

Undskyld min uforstålighed... den fiser bare ikke lige rent ind her ;O)

bak>> den dø alligevel, når koden stopper

Prøv selv dette lille eks.

Public gsTemp As String

Private Sub Workbook_Open()
    gsTemp = "bak"
End Sub

Når regnearket er åben, så gå ind i VBA's debugger og skriv ?gsTemp  (den er tom!)

cddk>> smid data i din Public variable via Userform_Initialize - så holder den under hele userformen's levetid.

nix, ikke her.
Husk at din Public gsTemp As String  skal ligge i et alm. modul og ikke ThisWorkbook.

sorry - my mistake ;-)

no, my mistake :-)
Ja svarede cddk, ikke flemming, det kunne misforståes

cddk, jeg bruger selv nøjagtig samme system, fordi jeg ikke ønsker at genindlæse databasen. Det skal virke.
Variablen dør ikke før regnearket lukkes eller du piller ved koden i vba.
Hvis du ønsker at den skal dø sammen med formen, stiller sagen sig lidt anderledes.

og du har bare så evig ret... først kunne jeg ikke lige få det til at virke kiggede på variablen i Watches vinduet - men der er den tom... så lavede jeg en lille testfunktion og en knap så jeg kunne hente en given post - og det virker SQ...!! ;O) tak for hjælpen... jeg vil gerne smide nogle point efter dig som tak for hjælpen så jeg opretter lige et spørgsmål mere...

http://www.eksperten.dk/spm/410311 - Point til Bak....!!!!

PS. Skal man passe på hukkomelsen ??? Altså er det nogle max-grænser mht. tabellens størrelse... osv?

PSS. og ved at kalde INI() igen så får jeg vel opdateret når jeg ønsker det...?!

Det ender med at det bliver ikke kun en god app. men en suveræn god (om et par altså når jeg er blevet Bak-HAJ til det her) *LOL* ;O)

Bak - Gennemløber du så variablen med en For...Next løkke ?

PS1:
Nej, det er så små datamængder at det ikke skulle betyde noget.
Hvis du henter en 400-500 records over taler vi måske om 50-100 kb.
Hvis du henter 10000 over skal vi måske til at regne på det :-)

PS2:
Ja, det skal gerne blive opdateret.

PS3:
Nej, jeg assigner direkte til comboboxens LIST.
Combobox1.List = gsTemp

Okay - men jeg skal ikke vise dataerne nogen steder blot bruge den i koden... så jeg bruger min for I = 0 to Ubound(Variabel)...

Men tak for hjælpen det var perfekt...