benzersiz alan yerine önce tablodan o günün kayıtları silinip sonra tüm günlük veriler eklenebilir
örnek olması için accessteki tabloya .t li dosyalardan veri eklemenizi istemiştim ama eklenmemiş o veriler
dilerim işinize yarar
Sub VeriAl()
folderPath = "d:\Desktop\txt2Access\rs" & Format(Date, "ddmmyy") & ".T"
Dim MyArray As Variant
Dim fso As Variant
Dim objStream As Variant
Dim objFile As Variant
Dim sSQL As String
Dim rs As ADODB.Recordset '(or some other method)
Dim i As Integer
i = 0
sSQL = "SELECT * FROM tbl_ilk"
Set rs = New ADODB.Recordset
rs.Open sSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
CurrentDb.Execute "delete * from tbl_ilk where [tarih]=date();"
Set fso = CreateObject("Scripting.FileSystemObject")
For xF = 1 To 4
If fso.FileExists(folderPath & xF) Then
Set objStream = fso.OpenTextFile(folderPath & xF, 1, -2)
x = 0
Do While Not objStream.AtEndOfStream
strLine = objStream.ReadLine
ReDim MyArray(0)
MyArray = Split(strLine, "---")
rs.AddNew
Dim item As Variant
x = 0
For Each item In MyArray
' If x = 0 Then t = DateValue(item)
rs(x + 1) = Trim(item)
x = x + 1
Next item
Loop
End If
Next
rs.Update
End Sub
sayın berduş hocam, elleriniz sağlık süper olmuş gerçekten kalan kısmını ben uyarlarım inşallah
Rica ederim
İyi çalışmalar