Skip to main content

AccessTr.neT


Tablodaki Kayıt Kontrol Vba

Tablodaki Kayıt Kontrol Vba

Çözüldü #1
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

barcins, 29-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
tablonun varlığını kontrol eden kod aşağıdaki gibidir.
x = DCount("*", "MSysObjects", "[Name] = '" & tabloAdı & "'")
Cevapla
#3
(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.
barcins, 29-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#4
ÖD
iyi çalışmalar
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da