AccessTr.neT

kodum şu şekilde

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

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.

(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.

Sorun Çözüldü