access te kayıt tekrarını engelleme hatası

[aliyaman]

acces te tekrar aynı bilgi girişini engelledim fakat hatayi nasıl anlamlandırabiliriz

aşağıdaki kodlar son mesaj ekranı bilgi girişi yaptıktan sonra son girileri ekranda gösteriyor buraya aynı bilgi daha önce girilmiş mesajı nasıl yazabiliriz
<%
Set Tech = Server.CreateObject("ADODB.Connection")
Tech.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("efestech.mdb")

id= Request("id")
Set Rs = Server.CreateObject("ADODB.Recordset")
StrSql = "Select * from efestech "
Rs.Open StrSql, Tech, 1, 3
%>

Kayıt : <%=Rs("efestech")%>

 

[programer]

Kodun en üst satırına;

On Error GoTo Hatalar

ekleyiniz.

kodun en sonuna

Exit Sub
'################################################
Hatalar:
HataMesajları
'################################################

ekleyiniz.


Sonra bir modülün içine

Public Sub HataMesajları()
Select Case Err
Case 3022
MsgBox "Bu Kayıt Daha Önce Kaydedilmiş. Tekrar Kayıt Edilemez.", 16, "HATA KODU-3022"
Case Else
MsgBox "Tanımlanamayan Hata Hata Kodu-'" & Err.Description & "' ", 16, "HATA KODU-" & Err & ""
End Select
End Sub

kodunu ekleyiniz.


ben bu şekilde çözüyorum umarım işinize yarar. İyi Çalışmalar.

 

[aliyaman]

hocam bu kodlar klasik asp için değil mi ayrıca bir modül içine demişsiniz anlayamadım

Not: Alttaki sözünüz güzelmiş..

 

[aliyaman]

hocam bu kodlar klasik asp için değil mi ayrıca bir modül içine demişsiniz anlayamadım

Not: Alttaki sözünüz güzelmiş..

hocam dediklerinizi tam anlayamadım dosyalar ekte yardımcı olursanız çok makbule geçecek

http://s5.dosya.tc/server/jq0j3m/KAYIT.rar.html

 

[aliyaman]

yok mu bi yardım

 

[akd]

Arkadaşlar bu sayfa access sorular sayfası, siz asp veya php sorularını buraya soramazsınız,
ilgili sayfalara yazınız soruları, daha doğru cevaplar almak için...