+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Dış Veri Alı Butona Atamak. (/konu-dis-veri-ali-butona-atamak.html)
Sayfalar:
1
2
Cvp: Dış Veri Alı Butona Atamak. - Güven Ongun - 06/05/2017
Yanıtsız soru kalmasın.
Private Sub Komut3_Click()
Dim DosyaKonumu As String
DosyaKonumu = CurrentProject.Path & "\ToTxt.xlsx"
DoCmd.RunSQL "DELETE Tablo1.* FROM Tablo1;"
DoCmd.TransferSpreadsheet transfertype:=acImport, _
tablename:="Tablo1", _
FileName:=DosyaKonumu, Hasfieldnames:=True, _
Range:="Sayfa2!A:C", SpreadsheetType:=8
End Sub