Доступ к VBA для сохранения данных, введенных с помощью

Question

Когда пользователь закрывает форму, автоматически открывается. Сохраняет данные, введенные в базу данных. Таким образом, нет необходимости иметь кнопку «Сохранить».

Но, поскольку большинство пользователей настолько привычны при нажатии кнопки Save, они все равно будут настаивать на том, что должна быть кнопка Save.

Какой код должен быть записан для кнопки Save для сохранения всех данных, введенных в форму.

Следует также обратить внимание на то, были ли данные изменены или нет. Иногда пользователи открывают форму для просмотра данных, но даже если они не внесли никаких изменений, они нажмут кнопку Save.

Answer 1

Код Нажмите кнопку события Save Баттона

Private Sub cmdSave_Click() 
    If Me.Dirty Then 'to check if any data has changed. 
     DoCmd.RunCommand acCmdSaveRecord 
    End If 
End Sub 

Answer 2

Вы также можете использовать Dirty только:

Private Sub cmdSave_Click() 
    If Me.Dirty = True Then 
     Me.Dirty = False 
    End If 
End Sub 

Answer 3

Я имею в виду, это то, что вы хотите, на основании тех же комментарии, которые я получил от мои коллеги ... Я всегда начинаю с вопроса о том, хотят ли они экономить или нет, иногда пользователи просто играют в игры и общаются с записями.

If me.dirty = true then 
      If MsgBox("Are you sure you want to save as " & TempVars!gbl_username & "? 
         After saving you will be moved to a new record", _ 
         vbYesNo + vbQuestion, "Save Changes") = vbNo Then 
       'If answer is no 
        'Do nothing 
      Else 
       DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70      
      End If 
    End If