+- 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ığı: Docmd.transferspreadsheet Fonksiyon Olarak Çağırma (/konu-docmd-transferspreadsheet-fonksiyon-olarak-cagirma.html)
Docmd.transferspreadsheet Fonksiyon Olarak Çağırma - accessman - 16/02/2020
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
Cvp: Docmd.transferspreadsheet Fonksiyon Olarak Çağırma - berduş - 16/02/2020
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"Cvp: Docmd.transferspreadsheet Fonksiyon Olarak Çağırma - accessman - 16/02/2020
bu şekilde çağıracağım ama geriye string mi dönecek yoksa object mi
Cvp: Docmd.transferspreadsheet Fonksiyon Olarak Çağırma - berduş - 16/02/2020
ç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)
Cvp: Docmd.transferspreadsheet Fonksiyon Olarak Çağırma - accessman - 16/02/2020
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
Cvp: Docmd.transferspreadsheet Fonksiyon Olarak Çağırma - berduş - 16/02/2020
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