[Meteora]

Καλησπέρα κοινότητα...
Αγαπητέ Αλέξανδρε, δεν ξέρω γιατί το μήνυμά σου με ώρα αποστολής 10:26 δεν είναι ορατό όταν είμαι σε περιβάλλον ανάγνωσης. Εμφανίζεται και μπορώ να το διαβάσω απο το περιβάλλον μέσα από το οποίο μπορώ να απαντήσω! ( Το μήνυμα φαίνεται πλέον. Τάσο ευχαριστώ...)
Το ζήτημα του Backup έχει ως εξής:

 
Private Sub btnCloseApli_Click()
Dim intCount As Integer
intCount = DCount("[ID1]", "QryOla")
If intCount <> 0 Then 
If MsgBox("Θέλεις backup;", vbYesNo, "ΕΛΕΓΧΟΣ.") = vbYes Then
Dim ThePath$
 ThePath = Replace(CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Backup.xls", "\\", "\")
 DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "QryOla", ThePath, True
End  if
end if
DoCmd.Quit
 
End Sub

Τα περιεχόμενα του ερωτήματος QryOla -εφόσον υπάρχει τουλάχιστον ένα- εξέρχονται σε μορφή excel στην επιφάνεια εργασίας με το όνομα backup.xls Το πεδίο [ID1] είναι ένα απο τα πεδία που περιέχονται στο ερώτημα.
Το παραπάνω κώδικα τοποθετείς στο κουμπί με όνομα btnCloseApli, το οποίο όταν πατάς κλείνεις την εφαρμογή.
Αυτά ...
Νίκος Δ.