Skip to main content

AccessTr.neT


Form,tablo Vs... Açık/kapalı Durum Kontrolü

Form,tablo Vs... Açık/kapalı Durum Kontrolü

#1
Merhaba.

Sayın @berduş hocamızın kodlarından esinlenerek örnek dosyya yaptım.

Tablo,Form gibilerin açık olup olmadığını kontrol edilir.
Lazım olabilir diye paylaştım.

Option Compare Database

Function IsObjectOpen(strName As String, Optional intObjectType As Integer = acTable) As Boolean
' intObjectType can be:
' acTable (value 0)
' acQuery (value 1)
' acForm (value 2) Default
' acReport (value 3)
' acMacro (value 4)
' acModule (value 5)
On Error Resume Next
    IsObjectOpen = (SysCmd(acSysCmdGetObjectState, intObjectType, strName) <> 0)
   
    If Err <> 0 Then
        IsObjectOpen = False
    End If
End Function


Private Sub Komut0_Click()

  Dim tabload As String
 
    If IsNull(Me.cmbox1) Or Me.cmbox1 = "" Then
        MsgBox "Tablo Adi bos olamaz..", vbCritical
        Me.cmbox1.SetFocus
        Exit Sub
    End If
   
  tabload = Me.cmbox1.Value
 
  If IsObjectOpen(tabload, 0) = False Then 'O demek tablo icin functionda yazili
      MsgBox tabload & " :Kapali", vbInformation, "Bilgi"
  Else
      MsgBox tabload & " :Acik", vbInformation, "Bilgi"
  End If
 
End Sub


Private Sub Komut5_Click()

  Dim formad As String
 
    If IsNull(Me.cmbox2) Or Me.cmbox2 = "" Then
        MsgBox "Form Adi bos olamaz..", vbCritical
        Me.cmbox2.SetFocus
        Exit Sub
    End Ifb
   
    formad = Me.cmbox2.Value
 
  If IsObjectOpen(formad, 2) = False Then '2 demek Form icin functionda yazili
      MsgBox formad & " :Kapali", vbInformation, "Bilgi"
  Else
      MsgBox formad & " :Acik", vbInformation, "Bilgi"
  End If
 
End Sub
.rar Tablo yada Formm gibiler acikmi kontrol.rar (Dosya Boyutu: 31,75 KB | İndirme Sayısı: 11)
Cevapla
#2
Paylasim için @feraz bey
Konunuz Access örnekleri bölümüne taşınmıştır.
Cevapla
#3
Rica ederim abey.
Kodlar zaten sizin biraz süsledim sadece Img-grin
Cevapla
#4
kodlarlar da benim değil hocam)
Cevapla
#5
(22/02/2020, 12:38)berduş yazdı: kodlarlar da benim değil hocam)
Anlaşılıyor zaten yabancı insanın yazdığı Img-grin

Sizin vesile ile tanlştığım için kodla artık sizin olmuştur bu saatten sonra abey.
Zaten ben dahil hemen herkes yabancı forumlardan buluyor zor kodları.
Örneğin Api kim oturup yazabilir api abey.
Yaz googleye bul kodları Img-grin

Tabii burdaki yada başka Türkçe forumlarda anlayan uzmanlar vesile oluyor.
Cevapla
#6
Teşekkürler
@benbendedeilem
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task