Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
20/12/2011 02:57
Konu Sahibi
vetaltan
Yorumlar
5
Okunma
2076
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

vetaltan

Aktif Üye
AL.... AK....
 56
 100
 20
 16/11/2009
10
 İstanbul
 
 Ofis 2000
 12/01/2016,19:49
Çözüldü 
Çalışmakta olan bir veritabanı içersinden(bilgi.mdb),başka bir veritabanının (web.mdb)c:\veritabanları\web.mdb klasöründe bulunup bulunmadığını vb kodu ile nasıl tanımlayabilirim.


vetaltan 16-11-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

mcmaho

Aktif Üye
MU.... ÖZ....
 198
 20
 09/12/2011
34
 Muğla
 
 Ofis 2003
 06/12/2018,22:24
Çözüldü 
access kodlarıyla mı olması gerekiyor.


<<< 10-HAGİ-10 >>>

Kullanici Avatari

ozanakkaya

Kurucu
OZ.... AK....
 39
 11.602
 469
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,00:17
Çözüldü 
aşağıdaki kodu modüle kaydet

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function FileExists(ByVal strFile As String, Optional bFindFolders As Boolean) As Boolean
 Dim lngAttributes As Long
 lngAttributes = (vbReadOnly Or vbHidden Or vbSystem)

 If bFindFolders Then
 lngAttributes = (lngAttributes Or vbDirectory)
 Else
 Do While Right$(strFile, 1) = "\"
 strFile = Left$(strFile, Len(strFile) - 1)
 Loop
 End If
 On Error Resume Next
 FileExists = (Len(Dir(strFile, lngAttributes)) > 0)
End Function


Bunuda dosya kontrolünün yapılacağı yere yaz.

Visual Basic Code
 If FileExists("c:\veritabanları\web.mdb") = True Then
 MsgBox ("veritabanı var") 'c:\veritabanları\web.mdb dosyası var ise çalışacak kod buraya
 Else
 MsgBox ("veritabanı yok") 'c:\veritabanları\web.mdb dosyası yok ise çalışacak kod buraya
 End If


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

alpeki99

Uzman
OL....
 38
 6.138
 162
 29/10/2008
 Bursa
 Yazılım Geliştirici
 Ofis 2010 32 Bit
 24/11/2018,10:13
Çözüldü 

Visual Basic Code
1
2
3
4
5
6
7
8
dosya = "c:\veritabanları\web.mdb"
durum = Dir(dosya) ' Dir komutu ile bakıyorum o dosya var mı yok mu?
        
   If (durum = "") Then
     msgbox "Dosya yok"
   Else
      ' Dosya var
   End If


Sitede çok defa işlenilmiş bir konu olsa da tekrar etmekte yarar var.


AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.

Kullanici Avatari

vetaltan

Aktif Üye
AL.... AK....
 56
 100
 20
 16/11/2009
10
 İstanbul
 
 Ofis 2000
 12/01/2016,19:49
Çözüldü 
Yanıtlarınız çok işime yaradı ,teşekkürler.Vba kodunun son halini aşağı ekledim.

Visual Basic Code
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
30
31
32
33
34
Dim DOSYA, DURUM, ad, yol, ara, MESAJ
Dim ADOXtable As New Table
Dim ADOXindex As New ADOX.Index
Dim ADOXcatalog As New ADOX.Catalog

ad = CurrentProject.Name
  yol = "c:\Vt\toplu\" & ad
    ara = Dir(yol)
   
   If (ara = "") Then
     MsgBox "Web Güncelle komutunu sadece  Programın " & Chr(13) & "Kurulu olduğu" _
     & "bilgisayarda kullanabilirsiniz", vbOKOnly + vbInformation, "Bilgilendirme"
          
   Else
DOSYA = CurrentProject.Path & "\web.mdb"
  DURUM = Dir(DOSYA)
        
   If (DURUM = "") Then
   MESAJ = MsgBox("Güncelleştirmek istediğiniz veritabanı silinmiş" _
   & Chr(13) & "Tekrar oluşturmak ister misiniz?", vbYesNo + vbQuestion, " Yardım")
   
   If MESAJ = vbYes Then
 ADOXcatalog.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurrentProject.Path & "\web.mdb"
   DoCmd.SetWarnings False
    DoCmd.OpenQuery "webb"
     DoCmd.SetWarnings True
End If

   Else
  DoCmd.SetWarnings False
    DoCmd.OpenQuery "webb"
      DoCmd.SetWarnings True
 End If
 End If


vetaltan 16-11-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

accessman

Aktif Üye
 Belirtilmemiş
 2.367
 561
 31/10/2008
425
 Denizli
 
 Ofis 2003
 20/09/2016,00:20
Çözüldü 
sadece klasör kontrolü için nasıl yapabiliriz


@benbendedeilem


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Networkte çalışan veritabanının sıkıştırılması hakkında aliyuzen 5 1.048 07/12/2018, 11:12
Son Yorum: oosmaner
Çözüldü Klasörde Bulunan Tüm Docx Dosyalarını Orientation Landscape Olarak Dönüştürme burhanb 7 319 19/10/2018, 15:31
Son Yorum: burhanb
Çözüldü Dosya Kontrolü turalsitkituralvolkan 2 469 19/04/2017, 09:30
Son Yorum: turalsitkituralvolkan
Çözüldü Pc Açılış Kullanıcı İle Veritabanı Kull Kontrolu burhanb 3 627 12/04/2017, 09:36
Son Yorum: burhanb
Çözüldü Vb tarafında textbox içerik kontrolü yapamıyorum pelitt 3 530 08/04/2017, 11:57
Son Yorum: atoz112

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