AccessTr.neT

Tam Versiyon: Docmd.transferspreadsheet Fonksiyon Olarak Çağırma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5 6 7 8 9 10 11 12 13
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
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.
bu şekilde çağıracağım ama geriye string mi dönecek yoksa object mi
ç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)
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
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
Sayfalar: 1 2 3 4 5 6 7 8 9 10 11 12 13