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.

Visual Basic Code
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


Visual Basic Code
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ı: 7)
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ş Adlı Kullanıcıdan Alıntı: 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.
Son Düzenleme: 22/02/2020, 12:47, Düzenleyen: feraz.
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