+- 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)
Cvp: Docmd.transferspreadsheet Fonksiyon Olarak Çağırma - accessman - 16/02/2020
eklediğim sizin örneğe bu dediğiniz Dlookup kısmını nasıl ekleriz
Cvp: Docmd.transferspreadsheet Fonksiyon Olarak Çağırma - berduş - 16/02/2020
iyi de orada zaten kullanılmış
If Not IsNull(DLookup("Name", "MSysObjects", "Name='TmpTablo'")) Then DoCmd.DeleteObject acTable, "TmpTablo"Cvp: Docmd.transferspreadsheet Fonksiyon Olarak Çağırma - accessman - 16/02/2020
teşekkürler şöyle yazdım
If Not IsNull(DLookup("Name", "MSysObjects", "Name='" & accessTableName & "'")) Then
transferFromExcel = True
Else
transferFromExcel = False
End If
Cvp: Docmd.transferspreadsheet Fonksiyon Olarak Çağırma - feraz - 16/02/2020
Alttaki kod ile tablo adlarını bulup koşul ile karşılaştırabilirsiniz.
Dim adoRecSet As New ADODB.Recordset
Set adoRecSet = CurrentProject.Connection.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))
Do While Not adoRecSet.EOF
Debug.Print adoRecSet.Fields("TABLE_NAME").Value
adoRecSet.MoveNext
Loop
adoRecSet.Close
Set adoRecSet = NothingCvp: Docmd.transferspreadsheet Fonksiyon Olarak Çağırma - feraz - 16/02/2020
Dao ile kısa kıd vardı bulamadım.
Cvp: Docmd.transferspreadsheet Fonksiyon Olarak Çağırma - berduş - 16/02/2020
yazdığınız kod çoklu tablo yada sorgu alırken işe yarayabilir ama burada tek tablonun daha doğrusu adı bilinen bir nesnenin varlığı kontrol edileceği için en kısası Dlookup yada DCount bence