Skip to main content

AccessTr.neT M.


Bir Tablonun Var Olup Olmadığını Sorgulama

Bir Tablonun Var Olup Olmadığını Sorgulama

Çözüldü #1
Son Düzenleme: 03/06/2019, 15:58, Düzenleyen: Yunus Bozkurt.
kodum şu şekilde

Visual Basic Code
Private Sub Komut12_Click()
DoCmd.SetWarnings False
DoCmd.OpenQuery "s_mkn_AylikDataTemizle"
DoCmd.OpenQuery "s_mkn_AylikDataYap"
End Sub


 s_mkn_AylikDataYap sorgum t_aylikgeciciDatalar diye bir tablo oluşturuyor.
fakat t_aylikgeciciDatalar tablosu daha önceden oluşturulmamışsa komut çalışmıyor. istediğim veri tabanımda t_aylikgeciciDatalar tablosu yoksa direk DoCmd.OpenQuery "s_mkn_AylikDataYap komutunu çalıştırmak

  • En tehlikeli kelime ama’dır. Önceden söylenen her söylemi veya kelimeyi öldürür! Mesela, seni seviyorum ama gibi…
Cevapla
#2
sorunu çözdüm şimdiden teşekkürler.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Function IsTableExists(ByVal strTableName As String) As Boolean
On Error Resume Next
IsTableExists = IsObject(CurrentDb.TableDefs(strTableName))
End Function

Private Sub Komut12_Click()

 If IsTableExists("t_mkn_aylikGecici") Then
   DoCmd.OpenQuery "s_mkn_AylikDataTemizle"
   DoCmd.OpenQuery "s_mkn_AylikDataYap"
    Else
    DoCmd.OpenQuery "s_mkn_AylikDataYap"
End If
DoCmd.OpenReport "r_mkn_aylikharcamalar", acViewPreview

End Sub


bu fonksiyonu forma koymak yada modul olarak kullanmak arasında bir fark var mıdır? başka bir yerde kullanmayacağım.

  • En tehlikeli kelime ama’dır. Önceden söylenen her söylemi veya kelimeyi öldürür! Mesela, seni seviyorum ama gibi…
Cevapla
...........
#3
(03/06/2019 16:27)Yunus Bozkurt Adlı Kullanıcıdan Alıntı: sorunu çözdüm şimdiden teşekkürler.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Function IsTableExists(ByVal strTableName As String) As Boolean
On Error Resume Next
IsTableExists = IsObject(CurrentDb.TableDefs(strTableName))
End Function

Private Sub Komut12_Click()

 If IsTableExists("t_mkn_aylikGecici") Then
   DoCmd.OpenQuery "s_mkn_AylikDataTemizle"
   DoCmd.OpenQuery "s_mkn_AylikDataYap"
    Else
    DoCmd.OpenQuery "s_mkn_AylikDataYap"
End If
DoCmd.OpenReport "r_mkn_aylikharcamalar", acViewPreview

End Sub


bu fonksiyonu forma koymak yada modul olarak kullanmak arasında bir fark var mıdır? başka bir yerde kullanmayacağım.

Başka yerde kullanmayacaksanız kod olarak yazmak daha mantıklı tabii ki. Eğer global olarak her yerde kullanacaksanız modül yapılır.

İnadına, ille de Accesstr.net...
Cevapla
#4
Sorun Çözüldü

  • En tehlikeli kelime ama’dır. Önceden söylenen her söylemi veya kelimeyi öldürür! Mesela, seni seviyorum ama gibi…
Cevapla
...........

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task