undlod automatisk gemning af en post

Hej. Via en vba kode der sperre det. Hov er dit dataark en direkte tabel.
VH Henrik

Hej. Via en vba kode der sperre det. Hov er dit dataark en direkte tabel. Det vil jeg gerne vide inden jeg går videra.
VH Henrik

In the forms BEFORE UPDATE event place code like this

If Msgbox("Save ? ", vbYesNo) = vbNo Then Cancel = True

If it is an a sub form then you place this in the sub forms BEFORE UPDATE EVENT

Hej. Koden ser sådan ud:
' *  I formular
Private Sub Form_BeforeUpdate(Cancel As Integer)

    Cancel = PromptForOpdatering(Me)

End Sub

' * *Lav et modul:

Function PromptForOpdatering(frmFormular As Form) As Integer

    Dim intSvar As Integer
   
      intSvar = MsgBox("Du har foretaget ændringer til denne post." + vbLf _
    + "Ønsker du at gemme disse ændringer?", vbYesNo + vbQuestion, "Gem ændringer?")
   
      If intSvar = vbYes Then
   
              PromptForOpdatering = False
       
      Else
   
            PromptForOpdatering = True
       
            frmFormular.Undo
       
    End If

End Function

aqua6666>hows it going?

aqua6666>have you come back from your holiday?

Ved større projekter bruger jeg altid selv en særlig
inddaterings-formular, hvor data først overføres til ny post i
hovedformularen hvis den ønskes gemt.

Ellers et simpelt trick, som består af 3 trin:
1.gå til forrige post
2.gå til næste post
3.slet post som er gemt efter 1 og 2.

Dataark

agga66>PLease comment the ansers given or we have NO IDEA how it is going!
In the forms BEFORE UPDATE event place code like this

If Msgbox("Save ? ", vbYesNo) = vbNo Then Cancel = True


Hvis ikke du svare snart bliver du anmeldt!