Kod:
Private Sub Komut2_Click()
DoCmd.SetWarnings False
Dim sql As String
sql = "INSERT INTO table2(sdfsdf,date2) VALUES('" & Me.sdfsdf.Value & "','" & Format(Me.TARIH.Value, "DD.MM.YYYY") & "')"
DoCmd.RunSQL sql
DoCmd.OpenForm "FORM2"
Forms![FORM2].Requery
DoCmd.RunMacro "Macro1"
End Sub