freestuff.gr αρχική σελίδα
 FAQFAQ    ΑναζήτησηΑναζήτηση   Λίστα ΜελώνΛίστα Μελών   Ομάδες ΜελώνΟμάδες Μελών   <b>Εγγραφή Μέλους</b>Εγγραφή Μέλους 
 ΠροφίλΠροφίλ   Επιλογές μέλους Επιλογές   Τα bookmarks μου Τα bookmarks μου   Προσωπικά μηνύματαΠροσωπικά μηνύματα 
  διαφήμιση  

Καλώς ήρθατε στο forum μας! Για να συμμετάσχετε στις συζητήσεις θα πρέπει να είσαστε μέλος. Γίνετε μέλος τώρα!.

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


 Forum index » Δημιουργία Web Sites, Γραφικών & Προγραμματισμός » SQL και SQL Servers (RDBMS) » MS Access
Moderators:  Super-Moderators, WebDev Moderators
Εισαγωγή νέου Θέματος   Απάντηση στο Θέμα Σελίδα 1 από 1 [3 Μηνύματα]      Bookmarks Tags: accessκώδικας Mark the topic unread :: Προηγούμενο θέμα :: Επόμενο θέμα
ΑποστολέαςΜήνυμα
kon73
Script Master

Μέλος από: 13 Απρ 2008
Βοηθήματα: 3
Μηνύματα: 224


View users profile Visit posters website
ΜήνυμαΣτις: 19 Ιουλ 2008 02:04    Θέμα: Κώδικας χρήσιμος για κάθε Access στην εκκίνηση της εφαρμογής Απάντηση με παράθεση  Mark this post and the followings unread

Η 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)
EneMe
Super Moderator

Μέλος από: 09 Ιουλ 2002
Βοηθήματα: 10
Νέα: 11
Μηνύματα: 256+

Περιοχή: Στα όρη, στα άγρια βουνά, μέσα στα κοσμικά χιόνια!
View users profile Visit posters website
blog deviantART twitter deviantART 
ΜήνυμαΣτις: 19 Ιουλ 2008 11:10    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

Το έκανα βοήθημα και πρόσθεσα [code] tags!

_________________
AmfissaPress.gr - Ειδήσεις από Φωκίδα - Δήμο Δελφών - Δήμο Δωρίδας
Εκτιμήσεις ακινήτων - Ενεργειακές επιθεωρήσεις - Τοπογραφικά - Οικοδομικές άδειες - Άδειες καταστημάτων
kon73
Script Master

Μέλος από: 13 Απρ 2008
Βοηθήματα: 3
Μηνύματα: 224


View users profile Visit posters website
ΜήνυμαΣτις: 19 Ιουλ 2008 11:29    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

Σ'ευχαριστώ πολύ Eneme. Αν είναι να πέρασω και άλλα βοήθηματα που ίσως βοηθήσουν και άλλους χρήστες όπως πχ την αντικατατάσταση του AutoNumber της Access από δικό μας σε κώδικα VBA. Φυσικά όπου έχει κώδικα θα βάλω Code tag.

_________________
My New Site http://www.MsAccess.gr
Free Access (VBA Code,Tutorials, Mdbs, Eclass, Eshop)
Εμφάνιση Μηνυμάτων:   
Εισαγωγή νέου Θέματος   Απάντηση στο Θέμα Σελίδα 1 από 1 [3 Μηνύματα] Mark the topic unread :: Προηγούμενο θέμα :: Επόμενο θέμα
 Forum index » Δημιουργία Web Sites, Γραφικών & Προγραμματισμός » SQL και SQL Servers (RDBMS) » MS Access


Σχετικά θέματα
 Θέματα   Απ/σεις   Αποστολέας   Τελευταίο μήνυμα 
Δημιουργία Βάσης Δεδομένων MS Access με αντιστοιχιση σε γραφικό στοιχείο 1 Charalampos77 22 Ιουλ 2016 13:22
cordis Εμφάνιση τελευταίου μηνύματος
 
Τώρα είναι 09 Δεκ 2016 09:40 | All times are UTC + 2


Email This Page to Someone! add to Favorites

     Powered by p h p B B © 2001,2005 p h p B B Group
Για άμεση επικοινωνία με τον διαχειριστή του freestuff.gr στο email: freestuff.gr(παπάκι)gmail.com


Copyright © 1999-2013 Freestuff.gr All Rights Reserved  
Version Aegean, designed by N. Tsaganos