[alex]

Nίκο αύτό το κώδικα έβαλα
Private Sub ÅíôïëÞ137_Click()
Dim intCount As Integer

intCount = DCount("[..................]", "[........................]")

If intCount = 0 Then
Exit Sub
Else
If MsgBox("Θέλεις για λόγους ασφαλείας" & intCount & " να αποθηκεύσεις " & _
vbCrLf & vbCrLf & "την εφαρμογή σου . ", _
vbYesNo, "Θέλεις να γίνει...") = vbYes Then
DoCmd.Quit
End Sub

Θα στείλω ενα back up που δημοσιεύθηκε πιο παλιά στο forum.Aυτο το κώδικα να περάσω στο κουμπί της εφαρμογής.Αλλά θα πρέπει να συμπληρώσω και κωδικα που να ενεργοποιεί το κουμπί Back up Now της φόρμας που έστειλα σε συνημένο