Kört fast lite här .... har namnet på det formulär jag vill öppna Du skapar en procedur som innehåller en Select Case -sats där du har en Case för varje formulär. Hämta formulärets namn från tabellen, och sedan dimensionerar du en variabel f as Form och sätter denna till ditt namn. Alltså: Njae .... nu äre så att det är just detta jag vill undvika, att behöva skriva kod för varje enskilt formulär i denna proceduren vilket blir fallet med Select Case. Skape en Collection där du lägger in alla Forms med strängnyckel:Öppna Form via variabel
i en databas som en sträng, tex. "frmOrder".
Hur får man till det så att man kan öppna det formuläret om man utgår
ifrån att formuläret ej är laddat.
Hittar ingen lösning i litteraturen ... :o(Sv: Öppna Form via variabel
Set f = New frmTest
f.ShowSv: Öppna Form via variabel
Det jag vill uppnå är ....... att när jag skapat ett nytt formulär så behöver jag bara lägga till formulärnamnet i databasen för att få det hela att funka. Databasen kan tex. se ut såhär .....
Ettikett Typ Exempel
Prokod Tal 1,12,45
Pronamn Text "Skruv","Bil","Båt"
Proform Text "frmSkruv","frmBil","frmBåt"
Dvs ... skriver jag 1 så skall frmSkruv visas !Sv: Öppna Form via variabel
Dim allForms as new Collection
allForms.Add FormA, "formA"
allForms.Add FormB, "formB"
o.s.v.
Sen kan du hämta den du behöver:
set actForm = allForms.item("formA")
- Hans