Annorlunda fråga?? Select Case rs("subnamn") Om du deklarerar det som funktioner. Kan du anropa dem med Eval() funktionen. Exempel:Köra lokala Sub/Functioner i Access(VB)
Jag har en databas (sql2000) med bl.a. en tabell som bl.a. innehåller namnet på en sub/function i en kolumn.
Jag vill i Access(VB) kunna loopa igenom ett recordset.
För varje varv i loopen hämtas namnet på den sub/function som skall köras.
Ex:
set rs=db.openrecordset.......
do until rs.eof
'kör sub som har namnet som ligger i rs!subnamn
rs!subnamn 'denna rad fungerar givetvis inte.
rs.movenext
loop
Jag vill alltså kunna ha namnen på de subbas som skall köras i databasen.
Jag har även testat med call rs!subnamn, men det fungerar inte heller.
Hur ska jag kunna köra den sub som har det namn som ligger i rs!subnamn?
Orsaken till detta är att jag bl.a. vill kunna styra vilka subbar som skall köras genom att styra det i databasen.
Detta kan verka lite overkill, men det har sin klara poäng i det aktuella projektet.
/ MikaelSv: Köra lokala Sub/Functioner i Access(VB)
Case "sub1"
sub1
Case "sub2"
sub2
Case Else
defaultSub
End Select
/IbbeSv: Köra lokala Sub/Functioner i Access(VB)
<code>
Public Function Test()
MsgBox "Test har anropats"
End Function
Public Sub LoopSub()
Eval "Test()"
End Sub
</code>