Κώδικας χρήσιμος για κάθε Access στην εκκίνηση της εφαρμογής

Συζητήσεις για την τοπική βάση δεδομένων Access της Microsoft

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
Άβαταρ μέλους
kon73
Script Master
Δημοσιεύσεις: 224
Εγγραφή: 13 Απρ 2008 23:47
Επικοινωνία:

Κώδικας χρήσιμος για κάθε Access στην εκκίνηση της εφαρμογής

Δημοσίευση από kon73 » 19 Ιούλ 2008 03:04

Η Access Προσφέρει 2 τρόπους με τους οποίους μπορούμε να εκτελέσουμε κώδικα όταν ανοίγει η βάση.

1. Χρησιμοποιούμε την μακροεντολή Autoexec η οποία και τρέχει μόλις ανοίξει η Βάση. Όμως σε κάποιες εκδόσεις της Access ( 2003, 2007) εμφανίζεται προειδοποιητικό μήνυμα το οποίο παροτρύνει των χρήστη να ακυρώσει την εκτέλεση των μακροεντολών. Επομένως καλύτερα είναι να μεταβούμε στην 2η επιλογή που είναι πιο κομψή.

2. Χρησιμοποιούμε μία Φόρμα να ανοίγει με την εκκίνηση της βάσης. Αυτό γίνεται στο Tools - Startup και επιλέγοντας την φόρμα στο Display Form/Page. Έτσι στο Event της φόρμα αυτής στο Open ή στο Load γράφουμε την συνάρτηση ή την ρουτίνα που θέλουμε να εκτελείται μόλις φορτωθεί η φόρμα.

ΚΩΔΙΚΑΣ ΠΟΥ ΕΙΝΑΙ ΧΡΗΣΙΜΟΣ
Ο κώδικας που καλά είναι να υπάρχει σε κάθε βάση και να εκτελείται κατά την διάρκεια φόρτωσης της βάσης είναι ο παρακάτω με επεξηγηματικά σχόλια. Υπάρχει στην αρχή ο ορισμός των επιλογών και παρακάτω για Access Xp και νεότερη η απόκρυψη της μπάρας ερώτησης και ο οδηγός βοήθειας

' Όταν διενεργούνται Ερωτήματα Διαγραφής, ενημέρωσης κλπ να μην γίνεται 'επιβεβαίωση

Κώδικας: Επιλογή όλων

Application.SetOption "Confirm Action Queries", False
'Απόκρυψη των κρυφών αντικειμένων

Κώδικας: Επιλογή όλων

Application.SetOption "Show Hidden Objects", False
'Συμπεριφορά κατά την εισαγώγη σε πεδίο (Επιλογή όλο το πεδίο)

Κώδικας: Επιλογή όλων

Application.SetOption "Behavior entering field", 0
Επιλογή για να σταματά ο κώδικας σε μη διαχειρίσημο λάθος '

Κώδικας: Επιλογή όλων

enable Module option Break on Unhandled Errors
Application.SetOption "Error trapping", 2
    'where
    'Case 0
    '= "Break on All Errors"
    'Case 1
    '= "Break in Class Modules"
    'Case 2
    '= "Break on Unhandled Errors"
'Απόκρυψη της μπάρας ερώτησης και ο οδηγός βοήθειας

Κώδικας: Επιλογή όλων

Dim o As Object
     '   Remove the "Ask a Question" dropdown from the
If SysCmd(acSysCmdAccessVer) >= 10 Then
    Set o = Access.Application
    With o
        .DisableAskAQuestionDropdown = True
    End With
        With Application.Assistant
            If .Visible Then
                .Visible = False
            End If
        End With
    Set o = Nothing
My New Site http://www.MsAccess.gr
Free Access (VBA Code,Tutorials, Mdbs, Eclass, Eshop)
Εικόνα


Άβαταρ μέλους
kon73
Script Master
Δημοσιεύσεις: 224
Εγγραφή: 13 Απρ 2008 23:47
Επικοινωνία:

Κώδικας χρήσιμος για κάθε Access στην εκκίνηση της εφαρμογής

Δημοσίευση από kon73 » 19 Ιούλ 2008 12:29

Σ'ευχαριστώ πολύ Eneme. Αν είναι να πέρασω και άλλα βοήθηματα που ίσως βοηθήσουν και άλλους χρήστες όπως πχ την αντικατατάσταση του AutoNumber της Access από δικό μας σε κώδικα VBA. Φυσικά όπου έχει κώδικα θα βάλω Code tag.
My New Site http://www.MsAccess.gr
Free Access (VBA Code,Tutorials, Mdbs, Eclass, Eshop)
Εικόνα

Απάντηση

Επιστροφή στο “MS Access”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες