veritabanının klasörde bulunup bulunmadığının kontrolü
Tarih
20/12/2011 02:57
Konu Sahibi
vetaltan
Yorumlar
5
Okunma
1433
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



vetaltan
Aktif Üye
Kullanici Avatari
Aktif Üye
A.... A....
100
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.
Cevapla


mcmaho
Aktif Üye
Kullanici Avatari
Aktif Üye
M.... Ö....
196
09/12/2011
34
Muğla
Ofis 2003
20/09/2016,22:03
Çözüldü 
access kodlarıyla mı olması gerekiyor.
<<< 10-HAGİ-10 >>>
Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.041
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,07:45
Çö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

Cevapla


alpeki99
Yeniden başlayabilmek...
Kullanici Avatari
Uzman
O....
5.988
29/10/2008
Ordu
Ofis 2013 32 Bit
Bugün,09:49
Çö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.
Cevapla


vetaltan
Aktif Üye
Kullanici Avatari
Aktif Üye
A.... A....
100
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.
Cevapla


accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
sadece klasör kontrolü için nasıl yapabiliriz
@benbendedeilem
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Metin Kutusuna Yazarken Satır Kontrolü musteri53 7 116 Dün, 16:40 musteri53
  Alt formda boş alan kontrolü raburabu 5 114 28/10/2016, 23:37 raburabu
  yeni girilen verinin mevcut kayıtlar içinde kontrolü mehmetb84 7 409 20/06/2016, 00:34 mehmetb84
Çözüldü Kaydetme öncesi boş denetim kontrolü uyarısı verdirme beyşehir2004 2 387 28/01/2016, 23:17 beyşehir2004
Çözüldü Formda Timer Kontrolü ve Bildirim Süresini Tablodan Verme salim.ekiz 1 385 22/12/2015, 22:07 ozanakkaya


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya