Hvordan oprette en dynamisk control (dropdown) vises som msgbox

En kontrol skal placeres på en form for at blive vist.

Hej

Du skal som martin skriver, placere din listebox på en formular. Dog kan du sagtens lave den dynamisk jvf. nedenstående eksempel.

Private Sub UserForm_Initialize()
    Dim ls As ListBox
    Set ls = Me.Controls.Add("Forms.ListBox.1")
    ls.AddItem "Christian"
    ls.AddItem "Claus"
End Sub

VH CK

Og så kan du vælge at få vist din formular som en "msgbox" ved at have eksempelvis 2 formularer. Userform1 og Userform2. Userform1 er den formular der starter og userform2 er den der indeholder din dynamiske listebox.

Sæt en knap på userform1 og indsæt følgende kode.

Private Sub CommandButton1_Click()
    UserForm2.Show 1
End Sub

Så starter userform2 op og man kan ikke fortsætte med userform1 før man har lukket userform2.

Håber det hjalp, ellers spørg igen :-)

VH C

JEg har placeret det i Access under rapporter:
Private Sub Report_Open(Cancel As Integer)

    Dim ls As ListBox
    Set ls = Me.Controls.Add("Forms.ListBox.1")
    ls.AddItem "Christian"
    ls.AddItem "Claus"

End Sub

Men jeg får følgende fejl i "Set ls = Me.Controls.Add("Forms.ListBox.1")" ved Add:

  Compile error:
  Method or data member not found.

Den kender ikke Add.

De eneste den kender er:
  Me.controls.Application
  Me.controls.Count
  Me.controls.Items
  Me.controls.Parent