Import af en "linje 2"i et noatfelt til et andet felt

hvordan der linier defineret i dit notatfelt, normalt er det en lang tekststreng.

Forudsat du er i Access2000+ kan du opdele med Split funktionen, f.eks.:

Sub OpdelNotatfelt()
  Dim a As Variant
  Dim n As Variant
  Dim i As Integer
  Dim Rst As Recordset
 
  Debug.Print "-------------"
  Set Rst = CurrentDb.OpenRecordset("DinTabel")
  With Rst
    n = .Fields("Note")
    a = Split(n, vbCrLf)
    .Close
  End With
  Set Rst = Nothing
  For i = 0 To UBound(a)
    Debug.Print "Linie " & i + 1 & ": ", a(i)
  Next i
  Debug.Print "-------------"
End Sub