Kod:
Dim i As Long
Dim rowcount As Integer
Dim buffer As String
Dim strSQL As String
Open "C:\......................\DoyanızınAdı.txt" For Input As #1
rowcount = DCount("[tabloid]", "tablonuzunadı")
Line Input #1, buffer
i = 1
While Not EOF(1)
If i > rowcount Then
DoCmd.SetWarnings False
strSQL = "INSERT INTO [tablo adı] ([alan adı]) VALUES ('" & buffer & "')"
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
End If
Line Input #1, buffer
i = i + 1
Wend
Close #1kodu ile tablonuzdaki kayıt sayısını belirleyerek text dosyanızdaki bir sonraki satırdan itibaren veriyi tablonuza ekleyebilirsiniz.
