Arrays: indtaste navn få returneret nr.

Private Sub Command3_Click()
  navnID = InputBox("Skriv et navn")
  dim intLoop as integer
  for intLoop=LBound(PersonNavn) To UBound(PersonNavn)
    if PersonNavn(intLoop)=navnID Then Text1.Text=intLoop
  next
End Sub

Kort fortalt: Du indtaster navnet, VB løber gennem alle navne, for at finde et som er identisk, når/hvis det findes skrivet ID'et i Text1...

I svaret fra proaccess skal det måske nævnes, at du kun får returneret det FØRSTE navn/index der passer. Det kunne jo tænkes, at der var flere, der opfyldte søgekriteriet. Bare du tænker over det... /Martin

Jeg får desværre Type mismatch ved din første kodelinie? Har kopieret din formel over..

tilfør:
  Dim navnID As String

som første linie i funktionen...
SORRY ;-(

>martin_moth Jotak, og så er det jo fristende at spørge om, hvordan jeg så koder dette. Så det må blive det næste spørgsmål, som jeg beder om hjælp til besvarelse af. Men jeg er nybegynder, så jeg må hellere tage én ting ad gangen.

>martin: Det er faktisk SIDSTE index, der har et navn, som er lig navnID, som returneres...  Der løbes gennem HELE arrayet...

>slejpnir: Du kunne overveje at returnere svaret i en listboks, i stedet for en tekstboks...

Private Sub Command3_Click()
  Dim navnID As String
  navnID = InputBox("Skriv et navn")
  dim intLoop as integer
  List1.Clear
  for intLoop=LBound(PersonNavn) To UBound(PersonNavn)
    if PersonNavn(intLoop)=navnID Then List1.AddItem intLoop
  next
End Sub

Mange tak proaccess Det hjalp! Jeg kigger også på listen lidt senere og prøver om jeg kan finde ud af, hvad jeg skal gøre, hvis der er flere ens navne.

>proaccess: Ja, naturligvis er det den sidste. Beklager tanketorsken ;o)