У меня есть макрос Access в форме, которую я хочу использовать только для пустой записи.Как проверить, была ли сохранена запись?Свойство Me.dirty не работает для меня, потому что оно проверяет, была ли сохраненная запись изменена или изменена.
Private Sub FIND_MEMBER_AfterUpdate()
Me.FIRST_NAME = DLookup("[FIRST_NAME]", "CM_ROSTER", "[SOC_SEC_NUM] = '" & Me.SOC_SEC_NUM & "'")
Me.MID_INIT = DLookup("[MID_INIT]", "CM_ROSTER", "[SOC_SEC_NUM] = '" & Me.SOC_SEC_NUM & "'")
Me.LAST_NAME = DLookup("[LAST_NAME]", "CM_ROSTER", "[SOC_SEC_NUM] = '" & Me.SOC_SEC_NUM & "'")
End Sub
У меня может быть решение:
Private Sub FIND_MEMBER_AfterUpdate()
If Me.NewRecord = True Then
Me.FIRST_NAME = DLookup("[FIRST_NAME]", "CM_ROSTER", "[SOC_SEC_NUM] = '" & Me.SOC_SEC_NUM & "'")
Me.MID_INIT = DLookup("[MID_INIT]", "CM_ROSTER", "[SOC_SEC_NUM] = '" & Me.SOC_SEC_NUM & "'")
Me.LAST_NAME = DLookup("[LAST_NAME]", "CM_ROSTER", "[SOC_SEC_NUM] = '" & Me.SOC_SEC_NUM & "'")
Else
GoTo exit_sub
End If
exit_sub:
End Sub