Skip to main content

AccessTr.neT


Docmd.transferspreadsheet Fonksiyon Olarak Çağırma

Docmd.transferspreadsheet Fonksiyon Olarak Çağırma

Çözüldü #1
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
@benbendedeilem
Cevapla
#2
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.
Cevapla
#3
bu şekilde çağıracağım ama geriye string mi dönecek yoksa object mi
Cevapla
#4
ç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)
Cevapla
#5
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
Cevapla
#6
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da