• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

aynı kayıt varsa uyarsın

sayın evren hocam

örnek dosya çalışmadı

Sub Test()
'Yeni Mdb Dosyası Yaratılıyor
Dim DatabasePath As String
Dim Cat As Object
Dim NewTable As Object

DatabasePath = "C:\TestDB2.mdb"
Set Cat = CreateObject("ADOX.Catalog")
Cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabasePath
Set NewTable = CreateObject("ADOX.Table")

With NewTable
.Name = "MyTable2"
.Columns.Append "İsim"
.Columns.Append "Soyad"
.Columns.Append "Tel"
End With

Cat.Tables.Append NewTable
End Sub

kırmızı satır da hata veriyor tolss dan referanslarıda denedim olmadı
 
Şimdi yine denedim .Gayet güzel çalışıyor.Yalnız 2nci defa çalıştırdığımda doğal olarak hata veriyor.Dağa önceden burada doaya zaten var diyor.
Kodları hiç değiştirmeden aynisini çalıştırıp deneyin bir kerede.:cool:
 
ikinci bilgisayarda denedim çalıştı sayın evren bey

son ricam hata olayını bir döngüde nasıl engellerim

şöyle ilgili dosyalar varsa oluşum tamamsa yani hata vermesinde ilgili dosya var uyarısı gelsin

başka sorum yok

ellerine sağlık sayglık saygılar
 
ikinci bilgisayarda denedim çalıştı sayın evren bey

son ricam hata olayını bir döngüde nasıl engellerim

şöyle ilgili dosyalar varsa oluşum tamamsa yani hata vermesinde ilgili dosya var uyarısı gelsin

başka sorum yok

ellerine sağlık sayglık saygılar
Aşağıda verdiğim prosedürün içindeki kodları kullancağınız prosedürün içinde en üstüne yapıştırınız.Dosya ismini ve Yol ismini kendi dosyanıza göre uyarlayınız.:cool:
Kod:
Sub dosya_varmi()
Dim dosya As String, yol As String
yol = "C:\"
dosya = "TestDB2.mdb"
If Dir(yol & dosya) <> "" Then
    MsgBox "[ " & yol & dosya & " ]  Bu dosya var.Bunun üzerine yeni dosya oluşturamazsınız!" _
    , vbCritical, "UYARI"
    Exit Sub
End If

End Sub
 
Geri
Üst