(02/09/2009, 06:07)benremix yazdı: Katkı ve paylaşımlarınız için emeği geçenlere teşekürler.
Sn Maytas örneğinizi inceledim. Tabloya aktardığımda öncekiler gidiyor. Bunun yerine ekleme yapmak için ne yapabiliriz?
Saygılar...
Aslında yanılmıyorsam istenen o şekildi.
Sizin isteğinize göre ise Tablo_Olustur prosedürünü revize etmek lazım.
Burada tabloyu silen kodlar var, bunları devre dışı bırakmak lazım.
Bu şekil deneyin:
Kod:
Private Sub Tablo_Olustur()
Tablo_Adi = "YeniTablo"
' On Error Resume Next
' CurrentDb.TableDefs.Delete Tablo_Adi 'tablo varsa siliyor
' On Error GoTo 0
' Set Tablo = CurrentDb.CreateTableDef(Tablo_Adi)
' With Tablo
' .Fields.Append .CreateField("DosyaAdi", dbText)
' .Fields.Append .CreateField("DosyaYolu", dbText)
' End With
'CurrentDb.TableDefs.Append Tablo
End Sub