Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Office > Visual Basic for Applications (VBA) > [Access - VBA] ΑΝΤΙΓΡΑΦΟ ΑΣΦΑΛΕΙΑΣ ΜΕ VBA

Visual Basic for Applications (VBA) Ερωτήσεις / Απαντήσεις σε σχέση με τη χρήση της VBA.

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 14-03-10, 21:38
Όνομα: Δήμος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 05-01-2009
Περιοχή: ΛΑΡΙΣΑ
Μηνύματα: 82
Προεπιλογή ΑΝΤΙΓΡΑΦΟ ΑΣΦΑΛΕΙΑΣ ΜΕ VBA

Μετα την καλησπερα μου σε ολους θα ηθελα να ρωτησω εαν γινεται με κωδικα να γινεται ανα διαστηματα αντιγραφο ασφαλειας της βασης (οπως το κανει χειροκινητα και βαζει και την ημερομηνια στην αρχη ).
ευχαριστω. Η εαν υπαρχει αλλο προγραμα να το κανει.
__________________
Δήμος
Απάντηση με παράθεση
  #2  
Παλιά 15-03-10, 19:15
Το avatar του χρήστη Meteora
Συντονιστής
Όνομα: Νίκος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 28-12-2008
Περιοχή: Θεσσαλονίκη
Μηνύματα: 1.085
Προεπιλογή

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

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

ΥΣ Η Στρατιά με τα Λ.Υ.Σ.Ε. και τα πολυδιαυλικά είναι ακόμη εκεί ;
Συνημμένα Αρχεία
Τύπος Αρχείου: zip BackUp Utility.zip (53,4 KB, 154 εμφανίσεις)
Απάντηση με παράθεση
  #3  
Παλιά 15-03-10, 21:28
Όνομα: Δήμος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 05-01-2009
Περιοχή: ΛΑΡΙΣΑ
Μηνύματα: 82
Προεπιλογή

Νίκο πολύ καλό το πρόγραμα που εδωσες το δοκιμασα και βαζει την ημερομηνια αναμεσα.Δηλαδη απο δημος.accdb το κανει δημος.a_ημερομηνια_ccdb που πιστευω οτι διορθωνεται. Εαν κανεις την καλη πραξη (πασχα ερχεται) να γινεται αυτοματα βαλτο στο forum.
Παντα υποχρεος Π. δημος Σε ευχαριστω.
ΥΣ. Μηπως ησουνα στα Λ.Υ.Σ.Ε. η στην 1 στρατια ?
__________________
Δήμος
Απάντηση με παράθεση
  #4  
Παλιά 16-03-10, 00:21
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.139
Προεπιλογή

Καλημέρα!

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

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

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

Φιλικά

Τάσος
Συνημμένα Αρχεία
Τύπος Αρχείου: mdb AccBakSchedule.mdb (280,0 KB, 292 εμφανίσεις)
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών σε VB.Net, Access, Excel, Outlook, Word

Τελευταία επεξεργασία από το χρήστη Tasos : 16-03-10 στις 10:00.
Απάντηση με παράθεση
  #5  
Παλιά 21-03-10, 21:12
Όνομα: Δήμος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 05-01-2009
Περιοχή: ΛΑΡΙΣΑ
Μηνύματα: 82
Προεπιλογή

Αγαπητε τασο τα ελληνικα παντα ειναι τα καλυτερα αυτο που εστειλες ειναι παρα πολυ καλο και θα το
χρησιμοποιησω σε ευχαριστω καιθωσ και τα αλλα παιδια του forum
__________________
Δήμος
Απάντηση με παράθεση
  #6  
Παλιά 28-03-10, 11:38
Το avatar του χρήστη Meteora
Συντονιστής
Όνομα: Νίκος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 28-12-2008
Περιοχή: Θεσσαλονίκη
Μηνύματα: 1.085
Προεπιλογή

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

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

ΒΗΜΑ (Ι)
Φτιάχνω ένα πίνακα με όνομα ΑΝΤΙΓΡΑΦΟ και πεδία [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

Αυτά έγραψα! Τα παραπάνω δουλεύουν... εως ότου να βρεθεί μια ιδιαίτερη κατάσταση στην οποία ο κώδικας να φανεί ανεπαρκής.
Με χαρά θα δεχτώ οποιες βελτιώσεις. Φυσικά και την πλήρη αντικατάστασή του !
(Με αρκεί η ικανοποίηση οτι έφτιαξα αυτό που σκέφτηκα)
Νάμαστε όλοι καλά
Με εκτίμηση / Νίκος Δ.
Απάντηση με παράθεση
  #7  
Παλιά 20-03-11, 22:40
Όνομα: βασίλης
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 18-06-2010
Μηνύματα: 8
Προεπιλογή Γεια σου κοινότητα!!!!!!!!!!!!!!!

Παράθεση:
Αρχική Δημοσίευση από Tasos Εμφάνιση μηνυμάτων
Καλημέρα!

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

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

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

Φιλικά

Τάσος
Τάσο η εφαρμογή σου είναι τουλάχιστον καταπληκτική.
Μήπως μπορούμε να την προσαρμόσουμε για λειτουργικό 64bit;
Απάντηση με παράθεση
  #8  
Παλιά 22-03-11, 08:18
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.139
Προεπιλογή

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

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

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

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

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

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

Φιλικά

Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών σε VB.Net, Access, Excel, Outlook, Word
Απάντηση με παράθεση
  #9  
Παλιά 23-03-11, 20:49
Όνομα: βασίλης
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 18-06-2010
Μηνύματα: 8
Προεπιλογή λειτουργία Backup

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

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
Απάντηση με παράθεση
  #10  
Παλιά 23-03-11, 22:05
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.139
Προεπιλογή

Καλησπέρα Βασίλη.
Με ποια έκδοση Access έκανες τις δοκιμές σου; 2010;
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών σε VB.Net, Access, Excel, Outlook, Word
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[Εκτύπωση] Αυτόματη εκτύπωση το πρώτο αντίγραφο έγχρωμο τα υπόλοιπα ασπρόμαυρα rmaria Excel - Ερωτήσεις / Απαντήσεις 5 27-06-14 14:21
Προειδοποίηση ασφάλειας gaz_manos Access - Ερωτήσεις / Απαντήσεις 2 23-03-14 15:46
Access 2007 - ρυθμίσεις ασφαλείας Tasos Τα Νέα του Ms-Office.gr 0 29-12-10 22:17
Access 2010 - ρυθμίσεις ασφαλείας Tasos Τα Νέα του Ms-Office.gr 0 29-12-10 22:06
Access 2003 - ρυθμίσεις ασφαλείας Tasos Τα Νέα του Ms-Office.gr 0 29-12-10 21:58


Η ώρα είναι 16:55.