DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO rehber ([ADI SOYADI]) VALUES('" & Me.ADI_SOYADI & "')"
DoCmd.SetWarnings True
MsgBox "Kayıt işlemi tamamlandı", vbInformation, "AccessTR.Net"
DoCmd.GoToRecord , , acNext
Yeni bir buton ekleyip kodları o kodun tıklanma olayına yapıştırın.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.