Zamknięcie powiązanego formularza bez zapisywania zmian

Question

Szybkie pytanie tutaj, mając nadzieję na zwięzłe i rozsądne rozwiązanie.

Mam formularz związany wyłącznie do wprowadzania danych (nie można przeglądać rekordów, tylko wstaw je). Będę miał wielu użytkowników, którzy zepsują. Aby uniknąć brudnych danych, chcę je potwierdzić przed wysłaniem rekordu.

Problem polega na tym, że zaraz po wpisaniu w formularzu WSZYSTKIEGO, dostęp tworzy i zapisuje rekord.

Chcę, aby rekord był TYLKO zapisywany i zatwierdzany, jeśli użytkownik kliknie przycisk "Prześlij". Jeśli klikną Zamknij lub wyjdą z aplikacji, nie chcę tego częściowo wypełnionego rekordu w bazie danych.

Bez używania formularza niezwiązanego i wywoływania funkcji wstawiania, czy istnieje proste rozwiązanie?

Answer 1

Autonumerowanie ma charakter niepowtarzalny, a nie sekwencyjny. Jeśli potrzebujesz numeru sekwencyjnego, nie używaj automatycznego numerowania. Autonumerowanie nigdy nie powinno być pokazywane użytkownikowi. Nigdy nie można polegać na tym, by być czymś innym niż unikalnym, i jeśli nieźle sobie z tym poradzisz, nawet tego.

Private Sub Form_BeforeUpdate(Cancel As Integer) 
If Me.AText = "Invalid" Then 
    Me.Undo 
    Cancel = True 
End If 
End Sub 

Należy zauważyć, że forma z podformularzu może nie działać z cofania, ponieważ zapis stawia na zmianę z podformularzu do formularza głównego i odwrotnie, a to wszystko jest dość skomplikowane.

Answer 2

metoda Remou jest zdecydowanie najszybszy, tu jest inny oparty na mój komentarz;)

Option Explicit 

Private blnGood As Boolean 

Private Sub cmdSubmit_Click() 
    blnGood = True 
    Call DoCmd.RunCommand(acCmdSaveRecord) 
    blnGood = False 
End Sub 

Private Sub Form_BeforeUpdate(Cancel As Integer) 
    If Not blnGood Then 
     Cancel = True 
     Call MsgBox(Prompt:="click submit to save the record", Title:="Before Update") 
    End If 
End Sub 

Answer 3

Można użyć następującego kodu do stworzenia jasnej przycisk w przypadku, gdy użytkownik dokonał błędy i chce, aby wyczyścić cały formularz i zacznij od nowa.

Private Sub btnClear_Click() 
    If Me.Dirty = True Then 
    DoCmd.RunCommand acCmdUndo 
    Exit Sub 
    End If 
End Sub` 

czasami znaleźć before_update zdarzenie działać dziwne więc generalnie wyłączyć (x) przycisk zbliżony właściwościami i dodać przycisk zamykania mój własny, który pyta użytkownika, czy chce porzucić dane na ekran.

Private Sub close_Click() 
Dim Answer As Integer 
If Me.Dirty = True Then 
    Dim Response As Integer 
    ' Displays a message box with the yes and no options. 
    Response = MsgBox(Prompt:="Do you wish to discard data?", Buttons:=vbYesNo) 
    ' If statement to check if the yes button was selected. 
    If Response = vbYes Then 
     DoCmd.RunCommand acCmdUndo 
     DoCmd.Close 
     Else 
     Me.Clear.SetFocus 
    End If 
Else 
    ' The no button was selected. 
    DoCmd.Close 
    End If 
End Sub