5 svar · 206 visningar · startad av Mazz
Vill att koden ska visa en msgbox där man kan välja att lägga till en ny post ...fungerar dock ej.
Buggar vid raden Docmd.GotoRecord , ,acNew
ÄR det något som saknas?
Private Sub Form_Close()
Response = MsgBox("posten sparas. Vill du lägga till en till", _ vbQuestion + vbYesNo, "More data")
If Response = vbYes Then
DoCmd.GoToRecord , , acNew
Else
DoCmd.Close
End If
End Sub
Du kan inte avbryta Close-händelsen...
Vad menar du?
I och med att Form_Close() anropas, d.v.s. att eventet sker, så kommer formuläret att stängas.
Det skall fungera om du gör så här
Private Sub Form_Close()
Response = MsgBox("posten sparas. Vill du lägga till en till", _ vbQuestion + vbYesNo, "More data")
If Response = vbYes Then
[I]DoCmd.CancelEvent[/I]
DoCmd.GoToRecord , , acNew
Else
DoCmd.Close
End If
End Sub
Är inte helt säker men prova detta....kan ju fungera..har en liknande funktion i min databas. :e