Avatar billede tigerdyr2007 Praktikant
14. september 2010 - 18:11 Der er 7 kommentarer og
1 løsning

Fortryde lukning

I en formular har jeg noget kode liggende i OnClose, hvis nu en bestemt betingelse opfyldes kan jeg så fortryde lukke kommandaoen, ala:

Private Sub Form_Close()
  If 10 = 10 then
    "fortyd lukning"
  End If
End Sub
Avatar billede neoman Novice
14. september 2010 - 18:18 #1
Avatar billede tigerdyr2007 Praktikant
14. september 2010 - 19:04 #2
OK, men de er ikke lige behjælpelige med en linie kode til at gøre det med, så er kun kommet lidt videre.
Avatar billede neoman Novice
14. september 2010 - 19:11 #3
Private Sub Form_Unload(Cancel As Integer)
    If MsgBox("Close form?", vbYesNo) = vbYes Then
        Exit Sub
    Else
        Cancel = True
    End If
End Sub
Avatar billede neoman Novice
14. september 2010 - 19:20 #4
Ovenstående er angivet i Access hjælp og kommer frem ved at søge på Unload.  Dokumentationen for Access er faktisk ikke helt tosset.
Avatar billede tigerdyr2007 Praktikant
14. september 2010 - 20:39 #5
SUper, det virker. Smid et svar
Avatar billede neoman Novice
14. september 2010 - 20:42 #6
oki
Avatar billede mugs Novice
14. september 2010 - 22:12 #7
Kan man ikke bruge exit sub:

Private Sub Form_Close()
  If 10 = 10 then
  Me.undo
  exit sub
  End If
End Sub

Ikke afprøvet, blot en strøtanke.
Avatar billede tigerdyr2007 Praktikant
15. september 2010 - 09:12 #8
@Mugs god ide, virker bare ikke...
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester