Usta cevabi vermis, ARAMA bolumune TransferSpreadsheet ile konulari listelenirdi.

Private Sub Komut200_Click()
Dim Yer As String
Yer = CurrentProject.Path & "\KBS.xls"
If Len(Dir(Yer, vbNormal)) > 0 Then
DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel9, "Gecici", Yer, True
End If
End Sub

Projenin yaninda ki xls dosyasini baglayabilirsiniz, VT 2003 olarak gelistirildigi icin excel dosyasi da xls formatinda olmalidir.

(08-12-2017, 01:22)dsezgin demiş ki: Usta cevabi vermis, ARAMA bolumune TransferSpreadsheet ile konulari listelenirdi.

Private Sub Komut200_Click()
Dim Yer As String
Yer = CurrentProject.Path & "\KBS.xls"
If Len(Dir(Yer, vbNormal)) > 0 Then
DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel9, "Gecici", Yer, True
End If
End Sub

Projenin yaninda ki xls dosyasini baglayabilirsiniz, VT 2003 olarak gelistirildigi icin excel dosyasi da xls formatinda olmalidir.

Hocam kod çalışıyor ancak ayrı bir tablo açıyor. Ben direk ana tabloya DEFTER_KAYIT tablosuna aktarmasını istiyorum.

(08-12-2017, 09:15)prestij06 demiş ki: Hocam kod çalışıyor ancak ayrı bir tablo açıyor. Ben direk ana tabloya DEFTER_KAYIT tablosuna aktarmasını istiyorum.

baglanma sonrasi Insert Into .... SQL'i ile hangi alan tablonuza karsilik geliyorsa Currentdb.execute ..... ile islem yaptirabilirsiniz.
Excel dosyasi ile DEFTER_KAYIT tablosu alanlarina hangisinin karsilik gelecegini siz biliyorsunuz.