aynı kayıt varsa uyarsın

[Korhan Ayhan]

Selamlar,

Aşağıdaki linkten Sn. Haluk beyin konunun detaylı anlatımına ulaşabilirsiniz.

http://www.excel.web.tr/showthread.php?t=2309

 

[aydın3838]

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ı

 

[Orion1]

Ş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.

 

[aydın3838]

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

 

[Orion1]

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.

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