AccessTr.neT

Merhaba,

Private Sub btnMailGonder_Click()

kodunun altına

on error goto btnMailGonder_hata

kodu ekle,

End Sub

kodunun üstüne de

btnMailGonder_hata:

select case Err.Number

case 4444

msgbox "İşlem İptal Edildi.", vbinformation

case else

msgbox err.number & " " & err.description

end select



exit sub

kodu ekle.

Hayırı tıkladığında çıkan hata kodunu 4444 yerine yaz.

haliliyas bey;
vermiş olduğunuz kod işime yaradı. Desteğiniz için çok teşekkür ederim...

Ozan bey ilginiz ve desteğiniz için teşekkür ederim.
Sizin vermiş olduğunuz kodlamada programın başka bir alanına nasip oldu ve işimi gördü...