Also ich habe da ein Problem.
und zwar bekomme ich bei folgendem Code
den Fehler
Kann mir da vielleicht jemand sagen wieso?
Ich muss gestehen. ich kenne mich kein bisschen mit VBA aus.
und zwar bekomme ich bei folgendem Code
Code:
Sub test()
Dim strText As String
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile("c:\test.txt")
Set dbs = CurrentDb
strText = a.readline
While (a.Line < 3)
If strText.startsWith("hallo") Then
DoCmd.RunSQL ("INSERT INTO test(test) VALUES ('" & strText & "');")
a.readline
End If
Wend
End Sub
den Fehler
Fehler beim Compilieren:
Ungültiger Bezeichner
Kann mir da vielleicht jemand sagen wieso?
Ich muss gestehen. ich kenne mich kein bisschen mit VBA aus.