[artchrist73]

Αγαπητε Γιωργο κατι κανω λαθος ?

Private Sub Form_Unload(Cancel As Integer)
Dim intCount As Integer
If blnExit exit sub
blnExit = True
intCount = DCount("[ID]", "[qryBirthdays]")

If intCount = 0 Then
Exit Sub
Else
If MsgBox("Óôï åðïìåíï ÄåêáðåíèÞìåñï õðáñ÷ïõí " & intCount & " óõìâáíôá ãéá õðåíèýìéóç " & _
vbCrLf & vbCrLf & "ðïõ äåí å÷åéò åëÝãîåé. Èåëåéò íá äåéò ôé åéíáé?", _
vbYesNo, "Õðåíèýìéóç...") = vbYes Then

' DoCmd.Minimize
DoCmd.OpenForm "frmBirthdays", acNormal
Else
Exit Sub
End If

End If

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

End Sub