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

[pdhmos]

Μετα την καλησπερα μου σε ολους θα ηθελα να ρωτησω εαν γινεται με κωδικα να γινεται ανα διαστηματα αντιγραφο ασφαλειας της βασης (οπως το κανει χειροκινητα και βαζει και την ημερομηνια στην αρχη ).
ευχαριστω. Η εαν υπαρχει αλλο προγραμα να το κανει.

[Meteora]

Καλησπέρα !
Δήμο, έψαξα στο internet και βρήκα ...αυτό ! Προσωπικά δεν με ενδιαφέρει μια τέτοια διαχείριση και θα ήθελα να αναπτύξω ένα κώδικα που:

• Να ενσωματώνεται στην τρέχουσα εφαρμογή
• Να ενεργοποιείται αυτόματα.

Θα δούμε...

Φιλικά / Νίκος Δ.

ΥΣ Η Στρατιά με τα Λ.Υ.Σ.Ε. και τα πολυδιαυλικά είναι ακόμη εκεί ;

[pdhmos]

Νίκο πολύ καλό το πρόγραμα που εδωσες το δοκιμασα και βαζει την ημερομηνια αναμεσα.Δηλαδη απο δημος.accdb το κανει δημος.a_ημερομηνια_ccdb που πιστευω οτι διορθωνεται. Εαν κανεις την καλη πραξη (πασχα ερχεται) να γινεται αυτοματα βαλτο στο forum.
Παντα υποχρεος Π. δημος Σε ευχαριστω.
ΥΣ. Μηπως ησουνα στα Λ.Υ.Σ.Ε. η στην 1 στρατια ?

[Tasos]

Καλημέρα!

Προτιμάτε τα ελληνικά προϊόντα:

Δείτε το συνημμένο παρακάτω.

Για να ενσωματώσετε τη λειτουργία Backup στην εφαρμογή σας, αρκεί να εισάγετε τον πίνακα και τη φόρμα
που περιέχονται στο συνημμένο.

Φιλικά

Τάσος

[pdhmos]

Αγαπητε τασο τα ελληνικα παντα ειναι τα καλυτερα αυτο που εστειλες ειναι παρα πολυ καλο και θα το
χρησιμοποιησω σε ευχαριστω καιθωσ και τα αλλα παιδια του forum

[Meteora]

Καλημέρα στη κοινότητα !

Να προτείνω μια διαχείριση που στόχο έχει να ικανοποιηθεί το αίτημα του φίλου μας ΔΗΜΟΥ απο Λάρισα και ...όχι μόνο για αυτόν.

ΒΗΜΑ (Ι)
Φτιάχνω ένα πίνακα με όνομα ΑΝΤΙΓΡΑΦΟ και πεδία [ID6]/αυτόματης αρίθμησης και [Hmera] /Ημερομηνίας. Εισάγω μια ημερομηνία !

ΒΗΜΑ (ΙΙ)
Φτιάχνω μια Public μεταβλητή στη module ‘ΡΟΥΤΙΝΕΣ’ της εφαρμογής μου και κατόπιν εισάγω την παρακάτω function :

Public  MiProblima As Boolean

και

Public Function copyMyFiles()
 On Error GoTo sfalma
 
 MiProblima = False
 Dim fs As Object
 Dim strPigi As String                  'Διαδρομή για το αρχείο-πηγή
 Dim strStoxos As String             'Διαδρομή για το αρχείο-backup
 strPigi = "C:\Users\Νίκος\Desktop\ΜΑΘΗΤΕΣ.accdb"
 strStoxos = "C:\Dimi\Backup_ΜΑΘΗΤΕΣ_" & CStr(Format(Date, "dd_mm_yy")) & ".accdb"
 Set fs = CreateObject("Scripting.FileSystemObject")
 If Dir(strPigi) > "" Then                  'Ελεγχος αν το αρχείο-πηγή υπάρχει
     fs.CopyFile strPigi, strStoxos   'Η αντιγραφή ...
 Else
     MsgBox "Δεν βρίσκω το αρχείο / πηγή ! "
     Exit Function
 End If
sfalma:
 Dim minima$
 Select Case Err.Number
     Case 76
         MsgBox "Δεν βρίσκω τον φάκελλο προορισμού!", vbInformation, "ΕΛΕΓΧΟΣ"
     Case 0
         MiProblima = True
         minima = "Πραγματοποιήθηκε Backup !"
         MsgBox minima, vbInformation, "ΕΛΕΓΧΟΣ"
     Case Else
         minima = "Error # " & Str(Err.Number) & ".  προκλήθηκε  λόγω :" _
                  & Chr(13) & Err.Description
         MsgBox minima, , "ΕΛΕΓΧΟΣ"
 End Select
 'Exit Function
End Function
 
 
 

BHMA (III)
Στην κεντρική φόρμα της εφαρμογής μου υπάρχει το κουμπί ‘κλείσιμο εφαρμογής’. Στο συμβάν «Με το κλικ» υπάρχει το εξής -σχετικό με το θέμα μας – τμήμα κώδικα :

 
Private Sub Εντολή8_Click()
    Dim hmenia As Variant
    hmenia = DLookup("[Hmera]", "ΑΝΤΙΓΡΑΦΟ", "[ID6] = 1")
    If DateAdd("m", 1, hmenia) < Date Then
        Dim Response As String
        Response = MsgBox("Θα κρατήσεις αντίγραφο ;", vbInformation + vbYesNo, "ΕΛΕΓΧΟΣ")
        If Response = vbYes Then
            copyMyFiles
            If MiProblima Then
                Dim SQL As String
                SQL = "UPDATE ΑΝΤΙΓΡΑΦΟ " & _
                      "SET ΑΝΤΙΓΡΑΦΟ.Hmera = Date() " & _
                      "WHERE ΑΝΤΙΓΡΑΦΟ.ID6 = 1"
                DoCmd.RunSQL SQL
            Else
                Exit Sub
            End If
        Else
            MsgBox "Θυμίζω !" & Chr(13) & "Τελευταίο αντίγραφο στις : " & hmenia, vbInformation, "ΕΛΕΓΧΟΣ"
        End If
    End If
    DoCmd.Close acForm, "ΣΧΟΛΕΙΑΦΟΡΜΑ"
End Sub

Αυτά έγραψα! Τα παραπάνω δουλεύουν... εως ότου να βρεθεί μια ιδιαίτερη κατάσταση στην οποία ο κώδικας να φανεί ανεπαρκής.
Με χαρά θα δεχτώ οποιες βελτιώσεις. Φυσικά και την πλήρη αντικατάστασή του !
(Με αρκεί η ικανοποίηση οτι έφτιαξα αυτό που σκέφτηκα)
Νάμαστε όλοι καλά
Με εκτίμηση / Νίκος Δ.

[triton21]

Αρχική Δημοσίευση από Tasos

Καλημέρα!

Προτιμάτε τα ελληνικά προϊόντα:

Δείτε το συνημμένο παρακάτω.

Για να ενσωματώσετε τη λειτουργία Backup στην εφαρμογή σας, αρκεί να εισάγετε τον πίνακα και τη φόρμα
που περιέχονται στο συνημμένο.

Φιλικά

Τάσος

Τάσο η εφαρμογή σου είναι τουλάχιστον καταπληκτική.
Μήπως μπορούμε να την προσαρμόσουμε για λειτουργικό 64bit;

[Tasos]

Καλημέρα Βασίλη!

Σε ξεχάσαμε τελείως εσένα εκεί χαμηλά (στη λίστα του φόρουμ)!

Προς πληροφόρηση, λέω ότι δοκιμάσει την εφαρμογή σε Windows 7 64 bit με Acces 2003, 2007 και 2010 και δε διαπίστωσα κάποιο πρόβλημα.

Έχεις δοκιμάσει την εφαρμογή σε 64 bit;

Υπάρχει κάποιο μήνυμα σφάλματος;

Περιμένουμε νέα σου

Φιλικά

Τάσος

[triton21]

Τάσο καλησπέρα,
όταν ανοίγω την εφαρμογή μου βγάζει το παρακάτω μήνυμα

The code in this project must be updated for use on 64-bit systems.Please review and update Declare statements an then mark them with the Ptrsafe attribute

[Tasos]

Καλησπέρα Βασίλη.
Με ποια έκδοση Access έκανες τις δοκιμές σου; 2010;