AccessTr.neT
Tablodaki Kayıt Kontrol Vba - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Tablodaki Kayıt Kontrol Vba (/konu-tablodaki-kayit-kontrol-vba.html)



Tablodaki Kayıt Kontrol Vba - barcins - 08/08/2019

Arkadaşlar merhaba,
yeni bir çalışma ile uğraşıyorum forumda birkaç konu buldum fakat çözemedim.

VBA ile birçok tablo içinde gezip sorgudaki kritere göre bilgileri tabloya atıyorum.
tablolar aşağıda şekilde gidiyor for ile tablo isimlerini bulmak için yaratabiliyorum.

200101_player
200104_player
200201_player
200204_player
200301_player 

sorunum şu;
200102_player tablosunu okutmak isteyince olmadığı için kod hata veriyor. tablonun olmadığında for döngüsü diğer kritere geçmesini istiyorum. kod ektedir.

Kod:
Private Sub Komut10_Click()

Dim SorguTb, SorguTb2 As String
Dim YilCont, AyCont, tblkayit As Integer

DoCmd.SetWarnings (WarningsOn)
DoCmd.OpenQuery "_player_sorgulama_sonuclar_sil"

    For YilCont = 2001 To 2008
        For AyCont = 1 To 12
        SorguTb = YilCont & Format(AyCont, "00") & "_player"
        SorguTb2 = SorguTb2 + SorguTb
        Me.ftbcont = SorguTb
       
            tblkayit = 0
            tblkayit = DCount("*", "SorguTb") 'tablo yokise run time 3078 hatası var

                If tblkayit > 0 Then
                DoCmd.CopyObject , "_player_tbl_temp", acTable, SorguTb
                DoCmd.OpenQuery "player_table_temp_son_bosalt"
                DoCmd.OpenQuery "player_table_temp_son_olustur"
                DoCmd.OpenQuery "player_sonucları_ekle"
                End If
        Next AyCont
    Next YilCont

    DoCmd.OpenTable "_player_sorgulama_sonuclar"
    DoCmd.SetWarnings (WarningsOff)
End Sub




Cvp: Tablodaki Kayıt Kontrol Vba - berduş - 08/08/2019

tablonun varlığını kontrol eden kod aşağıdaki gibidir.
x = DCount("*", "MSysObjects", "[Name] = '" & tabloAdı & "'")



RE: Tablodaki Kayıt Kontrol Vba - barcins - 08/08/2019

(08/08/2019, 17:58)berduş yazdı: tablonun varlığını kontrol eden kod aşağıdaki gibidir.
Kod:
x = DCount("*", "MSysObjects", "[Name] = '" & tabloAdı & "'")

teşekkür ederim benzer kodlarla uğraştım eksiğim varmış ben yapamadım.
sizin kodla sorun çözülmüştür.


Cvp: Tablodaki Kayıt Kontrol Vba - berduş - 08/08/2019

ÖD
iyi çalışmalar