Hente eksterne data

When you "hent eksterne data" you can choose the linke the text file instead of importing it. When you do this the data will be seen as a table and you can then make SQL queries on the data. You can also use functions such as Dlookup which could be used to do what you want. But I would first suggest that you try linking the text file so that you can see what names the table/fields get. Then we can take it from there.

Private Sub Tekst1_AfterUpdate()
  Dim s As String
 
  If Me.Tekst1 = "R1" Then
    Open "F:\DinMappe\DinFil.txt" For Input As #1
    Input #1, s
    Close 1
    Me.Tekst2 = s
  End If
End Sub

Hej.

Tak for input'ene. Jeg kigger lige på det og vender tilbage

Hej Terry og fdata.

Det fungere perfekt.

Det eneste jeg mangler er at værdien i Tekst1 kan være meget andet en R1,
f.eks C5, R2, L3 etc.
Altså: Hvis jeg indtaster C5 i Tekst1, skal den finde den tilhørende tekstfil
og indsætte den i Tekst2.

Mange tak for hjælpen og point til jer begge.

Altså... finde den linie i tekstfilen der indeholder værdien indtastet i tekst1 og indsætte den i tekst2 :)

Thanks for the points

"Det fungere perfekt...."
You doint say which appoach you use but I'm guessing that its fdata's when you later say.

"Altså... finde den linie i tekstfilen der indeholder .."

So I'm going to suggest that you try the idea I suggest which will allow you to use SQL.

Er lidt usikker på, hvad du mener. "... finde den linie i tekstfilen der indeholder værdien". Der er altså kun én linie, der indeholder værdien. Så prøv (ikke testet):

Private Sub Tekst1_AfterUpdate()
  Dim s As String
  Dim Found As Boolean
 
  Found = False
  Open "F:\DinMappe\DinFil.txt" For Input As #1
  Do Until Found Or EOF(1)
    Input #1, s
    If InStr(1, s, Me.Tekst1) > 0 Then
      Me.tekst2 = s
      Found = True
    End If
  Loop
 
  If Found = False Then Me.tekst2 = "???"
 
  Close 1
End Sub

... og tak for point i øvrigt  ;o)

Hej fdata.
Du har da vist aftenarbejde :)

Du har forstået det helt korrekt... der er nemlig kun én linie der indeholder værdien.
Og det virker perfekt :)

Mange tak for hjælpen.
Mvh.
Motek

Det hele skal jo passes  ;o)