AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Tabloya Kayıt Ekleme Ve Kayıt Edildiğine Dair Uyarı Alma

13/03/2020, 14:37

H@K@N

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.
13/03/2020, 14:45

berduş

çalışmanzı ekler misiniz?
Accesste kaydedilmediği zaman zaten size uyarı verir.
13/03/2020, 14:53

H@K@N

(13/03/2020, 14:45)berduş yazdı: çalışmanzı ekler misiniz?
13/03/2020, 16:04

ozanakkaya

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.
14/03/2020, 12:49

H@K@N

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