+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Tabloya Kayıt Ekleme Ve Kayıt Edildiğine Dair Uyarı Alma (/konu-tabloya-kayit-ekleme-ve-kayit-edildigine-dair-uyari-alma.html)
Tabloya Kayıt Ekleme Ve Kayıt Edildiğine Dair Uyarı Alma - H@K@N - 13/03/2020
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.
Cvp: Tabloya Kayıt Ekleme Ve Kayıt Edildiğine Dair Uyarı Alma - berduş - 13/03/2020
çalışmanzı ekler misiniz?
Accesste kaydedilmediği zaman zaten size uyarı verir.
Cvp: Tabloya Kayıt Ekleme Ve Kayıt Edildiğine Dair Uyarı Alma - H@K@N - 13/03/2020
(13/03/2020, 14:45)berduş yazdı: çalışmanzı ekler misiniz?
Cvp: Tabloya Kayıt Ekleme Ve Kayıt Edildiğine Dair Uyarı Alma - ozanakkaya - 13/03/2020
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 IfKaydet butonunun tıklandığında olayına üstteki kodu yazarak deneyiniz.
Cvp: Tabloya Kayıt Ekleme Ve Kayıt Edildiğine Dair Uyarı Alma - H@K@N - 14/03/2020
Vermiş olduğunuz kodu çalıştırdım ve başarılı bir sonuç elde ettim teşekkür ederim.