+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Excelden Veri Alma -Excel Sayfasını İçe Aktarma (/konu-excelden-veri-alma-excel-sayfasini-ice-aktarma.html)
Cvp: Excelden Veri Alma -Excel Sayfasını İçe Aktarma - berduş - 21/02/2020
Nesne açık mı kodu:
Function IsObjectOpen(strName As String, Optional intObjectType As Integer = acTable) As Boolean
' intObjectType can be:
' acTable (value 0) Default
' acQuery (value 1)
' acForm (value 2)
' acReport (value 3)
' acMacro (value 4)
' acModule (value 5)
#39; Returns True if strName is open, False otherwise.
On Error Resume Next
IsObjectOpen = (SysCmd(acSysCmdGetObjectState, intObjectType, strName) <> 0)
If Err <> 0 Then
IsObjectOpen = False
End If
End FunctionCvp: Excelden Veri Alma -Excel Sayfasını İçe Aktarma - feraz - 21/02/2020
Sağolunuz çok makmule geçti.
Fonksiyoun çağırmasınıda ben ekleyeyim belki yapamayan olur.
MsgBox IsObjectOpen("Tablo1")Cvp: Excelden Veri Alma -Excel Sayfasını İçe Aktarma - berduş - 22/02/2020
Teşekkürler @feraz bey ama hatırlatmakta fayda var sadece tablo değil form, sorgu,rapor, makro ve modul de kontrol edilebilir bu fonksiyonla.
Cvp: Excelden Veri Alma -Excel Sayfasını İçe Aktarma - feraz - 22/02/2020
(22/02/2020, 00:31)berduş yazdı: Teşekkürler @feraz bey ama hatırlatmakta fayda var sadece tablo değil form, sorgu,rapor, makro ve modul de kontrol edilebilir bu fonksiyonla.Evet üstadım zaten adam yazmışta fonsiyonda dediklerinizi.
Aslında alttaki yer kullanışsız gibi geldi bana optional den dolayı.
Çünkü form vs... için yaparkende ayrı bir function yazmak gerek galiba.
Optional intObjectType As Integer = acTable
Yukarıdaki yer yerine en alttaki gibi olsaydı ve functionu çağırırken iki parametreli olarak çağırmak sanki daha kullanışlı olurdu sanki.
MsgBox IsObjectOpen("Tablo1",2)'2 demek form için
Yani birden fazla functionla yapmak yerine tek functionla bu şekilde olabilirdi sanki.Yada ben bilmiyorum optional olayını.
Tabi kırmızı mesajboxlu yazdığım yeri kafadan yazdım olur tahminiyle.
Sayenizde çok şeyler öğreniyoruz Access ustam.
Konuyla alakası yok ama @accesman hocamızıda özledik sorularını konuda açmıyor fazla
İşin açığı bu foruma ikiniz sayenizde alıştım gidemiyorumda şimdi
intObjectType As Integer
Cvp: Excelden Veri Alma -Excel Sayfasını İçe Aktarma - berduş - 22/02/2020
optional siz değer girmeseniz de kendisi varsayılan olarak belli bir değeri giriyor demektir. Yanı fonksiyon aslında tam da sizin istediğiniz gibi çalışıyor. Değer girmezseniz tabloyu kontrol eder ama belli bir değer girerseniz de ona göre form, rapor vs vs onu kontrol ediyor.
MsgBox IsObjectOpen("Tablo1",3) yazarsanız raporu kontrol eder.
Mesajınızı yanlış yorumladıysam uykusuzluğuma verin)
Cvp: Excelden Veri Alma -Excel Sayfasını İçe Aktarma - feraz - 22/02/2020
MsgBox IsObjectOpen("Tablo1",3)
Evet hocam optionali öyle biliyordum.Ve yukardaki gibi bende denemiştim hata gibi bişey olmuştu sanırım fazla uğraşamamıştım daha doğrusu.Diz diyorsanız doğrudur