Code:
Private Sub CommandAddNew_Click() If Me.NewRecord Then DoCmd.RunCommand (acCmdSaveRecord) Else DoCmd.RunCommand (acCmdRecordsGoToNew) End If End Sub
Private Sub CommandAddNew_Click() If Me.NewRecord Then DoCmd.RunCommand (acCmdSaveRecord) Else DoCmd.RunCommand (acCmdRecordsGoToNew) End If End Sub
Option Compare Database Option Explicit Private Sub btnClear_Click() Dim intIndex As Integer ' Clear all search items Me.txtID = ""
Sub update() Dim cn As Object Dim rs As Object Dim a As String strFile = "D:\temp excel\EIM.mdb" strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data