Skip to main content

AccessTr.neT


Bir Tablonun Var Olup Olmadığını Sorgulama

Yunus Bozkurt
Yunus Bozkurt
3
1048

Bir Tablonun Var Olup Olmadığını Sorgulama

#3
(03/06/2019, 16:27)Yunus Bozkurt yazdı: sorunu çözdüm şimdiden teşekkürler.

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

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Bir Tablonun Var Olup Olmadığını Sorgulama - Yazar: mehmetdemiral - 03/06/2019, 22:08
Task