08/08/2019, 16:13
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.
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