Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
08/08/2019 16:13
Konu Sahibi
barcins
Yorumlar
3
Okunma
486
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
barcins

barcins

Aktif Üye*
7330
Ba.... Se....
 44
 19
 67
 29/05/2009
0
 İzmir
 
 Ofis 2007
 18/08/2019,20:05
Çözüldü 
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:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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.

berduş

berduş

Uzman
65596
ha....
 29
 1.411
 30/07/2014
218
 -
 
 Ofis 2019 64 Bit
tablonun varlığını kontrol eden kod aşağıdaki gibidir.

Visual Basic Code
x = DCount("*", "MSysObjects", "[Name] = '" & tabloAdı & "'")



...........
barcins

barcins

Aktif Üye*
7330
Ba.... Se....
 44
 19
 67
 29/05/2009
0
 İzmir
 
 Ofis 2007
 18/08/2019,20:05
(08/08/2019 17:58)berduş Adlı Kullanıcıdan Alıntı: 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.

berduş

berduş

Uzman
65596
ha....
 29
 1.411
 30/07/2014
218
 -
 
 Ofis 2019 64 Bit
ÖD
iyi çalışmalar




...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Forma Bağlı Form Kayıt Sorunu dioxi 7 234 16/08/2019, 06:55
Son Yorum: dioxi
Çözüldü Mükerrer Kayıt Hk. serkan1985 11 361 02/08/2019, 12:18
Son Yorum: cozum
Çözüldü Alt Formdan Başka Tabloya Kayıt Yapmak aydint33 9 269 31/07/2019, 20:07
Son Yorum: aydint33
Çözüldü Alt Form Kayıt most 6 359 31/05/2019, 09:12
Son Yorum: most
Çözüldü Access İle Basit Kayıt Programı musti35 4 324 27/05/2019, 17:07
Son Yorum: musti35

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.