---

Hei gruppe.

Jeg ønsker og laste et skjema basert på en verdi.

f.eks
Dim FormName as string
formName="Forside"
FormName.show


Noen enkel måte?
Planen min er og finne tilbake til forrige viste skjema. Enkete av
skjemaene mine kan nemelig nås ifra flere og ved og lagre fra vilken den kom
ifra kan jeg vise dette. Mulig andre bedre løsninger på problemet ?



Hilsen Hans

---

"Hans Einar Rudnes" <hans@nodlys.no> wrote in message
news:iK%nd.67493$Vf.3344188@news000.worldonline.dk...
> Hei gruppe.
>
> Jeg ønsker og laste et skjema basert på en verdi.
>
> f.eks
> Dim FormName as string
> formName="Forside"
> FormName.show
>
>
> Noen enkel måte?
> Planen min er og finne tilbake til forrige viste skjema. Enkete av
> skjemaene mine kan nemelig nås ifra flere og ved og lagre fra vilken den
> kom ifra kan jeg vise dette. Mulig andre bedre løsninger på problemet ?
>
>

Du kan bruge egenskaben Tag og gøre følgende:

Private Sub CommandButton1_Click()
Dim frm As New UserForm2
With frm
.Caption = "Hallo"
.Tag = "UserForm1"
.Show
End With
End Sub

---

Hans Einar Rudnes skrev:
> Dim FormName as string
> formName="Forside"
> FormName.show

Dette kan måske løse dit problem:

Dim n As String
Dim f As Form
n = "Forside"
Select Case n
Case "Forside": Set f = frmForside
Case "Bagside": Set f = frmBagside
Case Else 'FEJL!
End Select
If Not f Is Nothing Then
f.Show
End If

-------
Tomas

---

Der satt den!
Takker!
Hans

"Tomas Christiansen" <toc-01-nospam@blikroer.dk> skrev i melding
news:cnqu3a$1q6l$1@news.cybercity.dk...
> Hans Einar Rudnes skrev:
>> Dim FormName as string
>> formName="Forside"
>> FormName.show
>
> Dette kan måske løse dit problem:
>
> Dim n As String
> Dim f As Form
> n = "Forside"
> Select Case n
> Case "Forside": Set f = frmForside
> Case "Bagside": Set f = frmBagside
> Case Else 'FEJL!
> End Select
> If Not f Is Nothing Then
> f.Show
> End If
>
> -------
> Tomas
>