AccessTr.neT

Form üzerinden veri tabanına kayıt işlemi yaptığımda kaydediyor bir sıkıntı yok. Lakin kaydın yapılıp yapılmadığına dair bir uyarı penceresi gelsin istiyorum.

Yani ;

Kaydetmek istiyor musunuz? EVET HAYIR

Hayır'ı tıkladığımda pencere kapansın.

Evet i tıkladığımda -----> Kayıt işlemi başarılıdır desin.

çalışmanzı ekler misiniz?

Accesste kaydedilmediği zaman zaten size uyarı verir.

(13/03/2020, 14:45)berduş yazdı: [ -> ]çalışmanzı ekler misiniz?

Dim db As DAO.Database

Dim rs As DAO.Recordset

 

 

If MsgBox("Kaydetmek istiyor musunuz?", vbCritical + vbYesNo + vbDefaultButton1, "UYARI") = vbYes Then

 

    

    Set db = CurrentDb

    Set rs = db.OpenRecordset("Tablo")

    With rs

        .AddNew

        .Fields("Ad") = Me.Adı

        .Fields("Soyad") = Me.Soyadı

        .Fields("EPostaAdresi") = Me.EPostaAdresi

        .Update

    End With

    

    MsgBox "Kayıt İşlemi Başarılı"



Else



    DoCmd.Close acForm, "KayıtFormu"



End If

Kaydet butonunun tıklandığında olayına üstteki kodu yazarak deneyiniz.

Vermiş olduğunuz kodu çalıştırdım ve başarılı bir sonuç elde ettim teşekkür ederim.

H@K@N

berduş

H@K@N

ozanakkaya

H@K@N