Hata Mesajı Değiştirme

[trueness]

Selamlar,

Arkadaşlar, bir tablodaki bir alan, Unique yapıldığında buraya mükerrer kayıt yazılınca access bir hata mesajı veriyor. Bu mesaj değiştirilebilir mi?
veya bu mesaj değilde, istediğimiz bir ileti kutusu verilebilir mi ?

Teşekkürler,

 

[modalı]

Sayın truenes,

Private Sub Form_Error(DataErr As Integer, Response As Integer)

'Hata oluştuğunda özel ileti oluşturma Aşağıda sabit olarak belirtilen hata mesajını
'değiştirin.

    Const conErrRequiredData = 3314

    If DataErr = conErrRequiredData Then
        MsgBox ("İstediğiniz İleti metni")
        Response = acDataErrContinue
    Else
        'Başka hata oluşmuş ise normal ileti
        Response = acDataErrDisplay
    End If
End Sub

İyi çalışmalar

 

[trueness]

Sayın Modalı,

İlginize çok teşekkürler,
Dediğiniz kodları yapıştırdım ama çalışmıyor,
bir şeyleri gözden mi kaçırıyorum,
deneme dosyası ektedir.

Teşekkürler,

 

[modalı]

Sayın trueness,


Bende Access 2007 yok. Uygulamayı mdb formatında da ekleyebilirmisiniz.

İyi çalışmalar

 

[trueness]

Çok Pardon,

 

[modalı]

Ekleyeceğiniz uygulamanın uzantısı mdb olacak. Tekrar aynı uygulamayı eklediniz.

 

[trueness]

Doğru söze nedenir?

 

[modalı]

Kodları şu şekilde değiştirirseniz problem hal olacak.

Private Sub Form_Error(DataErr As Integer, Response As Integer)
'Hata oluştuğunda özel ileti oluşturma Aşağıda sabit olarak belirtilen hata mesajını
'değiştirin.
  
        MsgBox "İstediğiniz İleti metni"
        Response = acDataErrContinue
   
End Sub

İyi çalışmalar