Ανανέωση ιστοσελίδας

[artchrist73]

Παιδιά καλο φθινόπωρο σε όσους έχουν γυρίσει από άδεια η έχουν μείνει εδώ!
Απλά έχω μια απορία στο κώδικα.
Πως μπορεί να διακόπτεται προσωρινά όσο έχω ανοίξει τι βάση δεδομένων μετά από μια φορα εκτέλεσης του?
Στη φόρμα ο κώδικας βρίσκετε "με το κλείσιμο" στην ιδιότητες φόρμας.
Υπάρχει κάποιος επιπρόσθετος κώδικας που πρέπει να προσθέσω?
Με το που ανοίγω την βάση λειτουργεί κανονικά,δηλαδή με ενημερώνει,μετά όμως φεύγοντας σε άλλη φόρμα και επιστρέφοντας στην αρχική μου το ξανά βγάζει.Αυτό δεν θέλω,υπάρχει τρόπος?



Private Sub Form_Close()
Dim intCount As Integer

intCount = DCount("[ID]", "[qryBirthdays]")

If intCount = 0 Then
Exit Sub
Else
If MsgBox("Ooi a?iiaii Aaea?aie?iani o?an?ioi " & intCount & " ooiaaioa aea o?aieyieoc " & _
vbCrLf & vbCrLf & "?io aai a?aeo aeYaiae. Eaeaeo ia aaeo oe aeiae?", _
vbYesNo, "O?aieyieoc...") = vbYes Then

' DoCmd.Minimize
DoCmd.OpenForm "frmBirthdays", acNormal
Else
Exit Sub
End If
End If
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

End Sub