procedure kald igennem variabel

er der nogen :( ?

?
can you try explaining some more please? What is it exactly you are trying to do?

Jeg mener ikke at du kan laver reference i Access.

Man kan ikke kalde en funktion med en variabel direkte

jeg har en procedure i en af mine moduler.

public sub biler(PersonID)
msgbox " godag"
end sub


når jeg skal kalde den her procedure

så er det normalt sådan her :
Biler(PersonID)    ' også virker det bare


men det er sådan at det ikke altid er sådan at jeg kalder på biler nogle gange andre som er tilsat min variabel.

eks.
a = biler

A(PersonID )  er det samme som  Biler(PersonID)

men jeg kan bare ikke få det til at du, pga. manglende kendskab til syntaks

jeg mener slet ikke, at du kan gøre det på den måde.

hmmm.... man kan  ellers godt bruger variableri sql sætninger

>>hmmm.... man kan  ellers godt bruger variableri sql sætninger<<

Jeg kan ikke se hvad det har i relation til spørgsmålet?

Kan du ikke omskrive din kode - og så kalde den med et parameter mere:

Sub Test(PersonID as long, HvilkenType as long)
Select Case HvilkenType.......

end Sub

Så Kalder du
Test(PersonID, 1)

hvad er test er det en variabel ?

Det er en procedure

Eller endnu nemmere - lave en procedure eller function for hver "ting" du vil kalde..

Jeg kan ikke komme i tanke om hvorfor man skulle bruge variable som kald til procedure eller functioner - kun som parameter ???

Test(PersonID, 1)  hvad nu hvis 1 er en variabel hvordan bliver det så

Jeg mener man gør således:

Sub Test(PersonID as long, HvilkenType as long)
Select Case HvilkenType.......

end Sub


Kald med:

dim var = 1

Test(PersonID, var)

jeg kan ikke bruge det

det skal være "&A&()PersonID

Det tillader syntax i VBA desværre ikke. Du må nok finde en alternativ løsning!

Er der nogen speciel grund til at det skal være på den måde?

Kan vi få at se en større del af koden, så kan det være vi ser lyset? :)

Jeg forstår at du ønsker at kalde en procedure, hvis navn du har i en streng-variabel. Det understøtter VBA ikke direkte.

Funktionen Eval() kan blive din redning, omend løsningen ikke er helt smuk.

Eval() kan evaluere udtryk, herunder funktioner. Den kan ikke køre procedurer (Sub), så du må nok lave din Sub om til en Function. Når du så kalder funktionen direkte (og ikke via Eval()), må du så skrive

    Call Biler(PersonId)

i stedet for som tidligere

    Biler(PersonId)

Til gengæld kan du så skrive

    Eval(a & "(""" & PersonId & """)")

hvor a er en streng med værdien "Biler". Det antages her, at PersonId er en streng, og at den ikke indeholder anførselstegn (").

Du kan også definere følgende

    Sub CallFunction(name as String, stringParameter as String)
          Eval(name & "(""" & stringParameter & """)")
    End Sub

Så kan du skrive

    CallFunction a, PersonId

og få kaldt funktionen Biler(PersonId), hvis altså a indeholder strengen "Biler". Stadig må PersonId ikke indeholde anførselstegn; dette bør bygges ind i CallFunction(), så den erstatter alle anførselstegn (") med dobbelte (""). Så vil kravet om at der ikke må være anførselstegn bortfalde.


Man kan i øvrigt godt kalde en Sub inde fra en Function, så du kan faktisk bevare din Sub som den er, og så i stedet kalde en Function, som kalder Sub'en. Du kan nemlig pakke alle dine Subs, som du vil kunne kalde via navne i strengvariabler, ind i funktioner efter følgende mønster:

    Sub Biler(PersonId)
        ...
    End Sub

    Function Biler_Func(PersonId)
        Biler(PersonId)
    End Function

Så kan du lave en CallSub i stedet for CallFunction:

    Sub CallSub(name as String, stringParameter as String)
          Eval(name & "_Func(""" & stringParameter & """)")
    End Sub

som så kalder den oprindelige Sub, som altså er uændret i forhold til hvordan den er nu. Kaldet er som før:

    CallSub a, PersonId


Ja, en lidt speciel løsning måske, men det kan være den er okay?

Skal spørgsmålet forstås sådan at du har en udregning, som ser sådan ud:
a = biler(PersonID) og nu vil vide hviken PersonID, der svarer til et givet a.

Det kan du kun regne ud, hvis du kender indholdet af funktionen biler.
Sandsynlig skal du gennemløbe listen med alle PersonID og for hvert tilfælde bruge
funtionen og se om et af resultaterne er = a.

yuksel, har du nogen tilbagemelding om du kunne bruge noget af det?

super , jeg trorre jeg kommer til at bruge det, ligenu er det andet faldet lidt til jorden men jeg er sikker på at det dukker op igen
taker :)

Selv tak! :o)