Docmd.transferspreadsheet Fonksiyon Olarak Çağırma

1 2 3 4 5 6 7 8 9 10 11 12 13
16/02/2020, 13:06

accessman

transferFromExcel("TmpTablo",yol,"Sayfa1","A1","E")  

cümlesi ile 

Function transferFromExcel(accessTableName As String, _
                            excelFullName As String, _
                            sheetName As String, _
                            startCell As String, _
                            finishCell As String)
                           
    DoCmd.TransferSpreadsheet TransferType:=acLink, _
                          TableName:=accessTableName, _
                          SpreadsheetType:=10, _
                          FileName:=excelFullName, _
                          HasfieldNames:=True, _
                          Range:=sheetName & "$" & startCell & ":" & finishCell
End Function


fonksiyonunu çağırsam geriye ne dönmesi lazım
16/02/2020, 13:47

berduş

belirttiğiniz adresteki dosyanın sayfa1A1:E alanının TmpTablo bağlı tablosunu oluşturması gerekmez mi?
sorun nerede?
transferFromExcel "TmpTablo",yol,"Sayfa1","A1","E"
şeklinde kullanmayı deneyin.
16/02/2020, 14:08

accessman

bu şekilde çağıracağım ama geriye string mi dönecek yoksa object mi
16/02/2020, 14:11

berduş

çalışmanızda deneyip görebileceğiniz gibi -bir önceki mesajımda belirttiğim- bağlı tablo oluşturacak.
Ve bağlı tablo yanılmıyorsam bir nesne sayılıyor)
16/02/2020, 14:14

accessman

o zaman geriye bir değer dönmüyor sadece tablo oluşturuluyor bunu boolean ile mi kontrol edeceğiz mesela söyle mi olacak 

function tablobağla() as as string

tablobağla = bağlıtabloadı
end function
16/02/2020, 14:22

berduş

dlookup/dcount ile kontrol edebilirsiniz, yanılmıyorsam her nesnenin ismi MSysObjects tablosunda yer alıyor. Dlookup /dcount ile orada var mı yok mu anlayabilirsiniz
1 2 3 4 5 6 7 8 9 10 11 12 13