Overførelse fra Form til Form

Du kan lægge dinen data i globale variabler, som er defineret i et modul, så kan de bruges i alle dine forme.

Du kan også bruge de data der er i dine forme ved at referere til formens navn og objekter på den pågældende form.

Form1.text1.text er således indholdet af en textbox på form1.

Jeg ved ikke om det er noget i den stil du ønsker.

Hmm.. forstår ikke rigtig din forklaring.
Jeg prøver lige at uddybe det lidt...:

Altså jeg har dette array:
    Dim arrData(3) As String
   
        arrData(1) = \"Rune Nielsen\"
        arrData(2) = \"Afdeling\"
        arrData(3) = \"Beskrivelse\"
I formen \"Form1\" og jeg har nogle felter på formen \"frmAdvanceret\" som jeg gerne vil have udfyldt med tekstne fra mit array.
tekstfeltet til \"arrData(1)\" hedder \"txtNavn\"
tekstfeltet til \"arrData(2)\" hedder \"txtAfd\"
tekstfeltet til \"arrData(3)\" hedder \"txtDecs\"

Du kan tilføje et modul til dit projekt hvor du opretter arrData som en global variabel:
Global arrData(3) as string

I form1 tildeles varablerne forskellige værdier:

        arrData(1) = \"Rune Nielsen\"
        arrData(2) = \"Afdeling\"
        arrData(3) = \"Beskrivelse\"



I formen frmAdvanceret kan du så bruge de globale variabler fx i forbindelse med at du loader formen:

Private Sub Form_Load()
\'overførsel af værdier fra form1
txtNavn.text=arrData(1)
txtAfd.text=arrData(2)
txtDecs.text=arrData(3)

End Sub

Du kan også direkte tildele værdien fra form1 til formen frmAdvanceret ved at skrive følgende i en procedure i form1:

frmAdvanceret.txtNavn=arrData(1)
frmAdvanceret.txtAfd.text=arrData(2)
frmAdvanceret.txtDecs.text=arrData(3)

\'---------------------- Module1 ----------------------
\'i topen af et Module
Public Type MyInfo
  Navn(100) As String    \'Plads til 101 (Tekst)
  Adresse(100) As String \'Plads til 101 (Tekst)
  Telefon(100) As Long  \'Plads til 101 (Nummer)
End Type
\'---------------------- Module1 ----------------------

\'---------------------- Form1 ----------------------
Private Sub Command1_Click() \'Læser
Dim MyData As MyInfo
  txtNavn.Text = MyData.Navn(0)
  txtAdresse.Text = MyData.Adresse(0)
  txtTelefon.Text = MyData.Telefon(0)
End Sub

Private Sub Form_Load() \'Tilføje
Dim MyData As MyInfo
  MyData.Adresse(0) = \"Nielsenvej\"
  MyData.Navn(0) = \"Rune Nielsen\"
  MyData.Telefon(0) = \"12345678\"
End Sub
\'---------------------- Form1 ----------------------


\'---------------------- Form2 ----------------------
Private Sub Command1_Click() \'Læser
Dim MyData As MyInfo
  txtNavn.Text = MyData.Navn(0)
  txtAdresse.Text = MyData.Adresse(0)
  txtTelefon.Text = MyData.Telefon(0)
End Sub
\'---------------------- Form2 ----------------------

Kære Medions synes du ikke snart det er på tide at du lader høre fra dig ??

he... sorry.. -havde glemt alt om spørgsmålet.. -ea_data... du skal ha\' mange tak for hjælpen... Jeg fik dit til at virke... THX!