Παραδείγματα Πρόσβασης

Πώς να αποτρέψει μια ανοιχτή φόρμα, εάν υπάρχουν αρχεία που αποδεικνύουν;

Σάββατο, 2 Μαΐου του 2009 |

Μερικές φορές είναι απαραίτητο για να αποφευχθεί η φόρμα ανοιχτή, εάν υπάρχουν αρχεία που αποδεικνύουν, για παράδειγμα, όταν κάνει ένα ερώτημα και δεν υπάρχει εγγραφή δεν απαιτείται, δεν πρέπει να είναι ανοικτή μορφή αφού δεν έχουμε στοιχεία για την εμφάνιση. Αυτό λοιπόν που πρέπει να ελέγξετε αν υπάρχουν αρχεία που αποδεικνύουν και αν δεν υπάρχει δείχνουν ένα μήνυμα και να εμποδίζουν τη μορφή ανοικτού. Πώς;

Είναι εύκολο να βάλετε μόνο τον κώδικα κάτω από τις ιδιότητες φόρμας σε περίπτωση «να ανοίξει»:

= 0, τότε Εάν Form.RecordsetClone.RecordCount
MsgBox "Δεν βρέθηκαν καταχωρήσεις.", VbExclamation, "Σφάλμα!"
DoCmd.Close acForm, "βρείτε τα δεδομένα"
Έξοδος Υπο
End If

Για να δείτε ένα παράδειγμα κατεβάσετε: Αποτροπή Έντυπο Ανοικτή

Καταχωρήθηκε στο Παραδείγματα , Έντυπα , Ενότητες | 2 Σχόλια »

Πώς να εκχωρήσετε δράσεις κλειδιά;

Την Πέμπτη 11 Δεκεμβρίου 2008 |

1 - Δημιουργία μιας φόρμας για τη δομή και την εκδήλωση «Πατώντας» σχετικά με τις ιδιότητες της φόρμας εισάγετε τα ακόλουθα: me.keypreview = αλήθεια
Ή είναι αυτή η μετάβαση να είναι τα γεγονότα που έλαβαν πληκτρολόγιο στην πρώτη μορφή.

2 - Στις ιδιότητες φόρμας, «παρακάτω κουμπί για να« του γεγονότος θέσει τον παρακάτω κώδικα:

Private Sub Form_KeyDown (keycode As Integer, Shift As Integer)
Επιλέξτε keycode υπόθεση
Υπόθεση vbKeyF2
DoCmd.OpenForm "Φόρμα1"
Υπόθεση vbKeyF3
DoCmd.OpenForm "Form2"
Υπόθεση vbKeyF4
DoCmd.OpenForm "formulario3"
Υπόθεση vbKeyF5
Όπως διπλό Δημ. Υπολογιστής
Υπολογιστής = Shell ("calc.exe", vbNormalFocus)
Υπόθεση vbKeyF6
DoCmd.Close
Υπόθεση Else
Επιλέξτε Τερματισμός
Sub End

Αυτό που κάνει είναι η εξής:
- Πατώντας το πλήκτρο F2 ανοίγει το Φόρμα1
- Πατώντας το πλήκτρο F3 ανοίγει Form2
- Πατώντας το πλήκτρο F4 ανοίγει το formulário3
- Πατώντας το πλήκτρο F5 ανοίγει το Windows Υπολογιστής
- Πατώντας το πλήκτρο F6 κλείνει τη φόρμα

Εκτός από το πλήκτρο F1 λειτουργία, F2, ... κλπ, μπορούμε επίσης να χρησιμοποιήσετε οποιοδήποτε άλλο κουμπί για να εκτελούν λειτουργίες, αλλά έχοντας κατά νου ότι, αν θέλουμε να εισάγετε δεδομένα σε μια φόρμα δεν είναι κατάλληλο να χρησιμοποιήσει τα κλειδιά που χρησιμοποιούνται για την εγγραφή δεδομένων σε πεδία.
Ένα άλλο πράγμα είναι ότι λειτουργεί μόνο με τη μορφή που θα τοποθετηθούν τα παραπάνω κωδικούς.

Λήψη: Κλειδιά

Καταχωρήθηκε στο Παραδείγματα , Έντυπα , μονάδες | 1 Σχόλιο »

Προσαρμοσμένα Μενού

Το Σάββατο 20 Σεπτεμβρίου, 2008 |

Αυτό είναι ένα είδος μενού που μας επιτρέπει να εξοικονομήσετε χρόνο, γραμμές κώδικα και μια καλύτερη ρύθμιση όσον αφορά ανοιχτές φόρμες, αφού με αυτό το μενού χρειάζεται μόνο μια ανοικτή μορφή. Εκτός από τη μείωση του αριθμού των ανοικτών μορφών μειώνει επίσης τον αριθμό των πλήκτρων σε ένα μενού για να ανοίξετε κάθε φόρμα.
Αυτός ο τύπος μενού, είναι βέβαιο ότι υπάρχει εδώ και αρκετό καιρό και ήδη χρησιμοποιείται από πολλούς χρήστες της Access.
Λοιπόν, πού είναι αυτό το μενού;
Ας δημιουργήσουμε το μενού χρησιμοποιώντας ένα σύνθετο πλαίσιο που περιέχει όλες τις μορφές που σχεδιάζουμε να ανοίξει μέσα από αυτό. Όταν επιλέγετε μια επιλογή από το σύνθετο πλαίσιο το έντυπο της αίτησης εμφανίζεται μέσα στη δευτερεύουσα φόρμα. Τότε αρχίζουμε να κάνουν το βήμα προς βήμα μενού.

1 - Ας δημιουργήσουμε έναν πίνακα στον οποίο θα αποθηκεύονται το όνομα που θέλετε να δώσετε σε κάθε μορφή και το όνομα της φόρμας που θα ανοίξει. Στο παράδειγμα που δημιουργήθηκε «tblmenu» του πίνακα με τους ακόλουθους τομείς:
Τύπος πεδίου
Nomedomenu κείμενο -> Όνομα που θα δούμε στο μενού (σύνθετο πλαίσιο)
με τη μορφή κειμένου - Όνομα> από τη μορφή που θα ανοίξει

Μετά είναι τα στοιχεία που εισάγονται στο παράδειγμα:

Φόρμα NomedoMenu

Λογαριασμοί Φόρμα1
Καταθέσεις Form2
Κινήσεις formulario3
Λογαριασμός-Box formulario4
Λογαριασμός-Λογαριασμός formulario5
Απόσπασμα formulario6

2 - Στη συνέχεια θα δημιουργήσετε ένα ερώτημα από τον προηγούμενο πίνακα:
Tblmenu επέλεξε τον πίνακα και στη συνέχεια επιλέξτε τα δύο πεδία στα οποία επιλέξαμε για την αύξουσα nomedomenu είδος να είναι πιο εύκολο να βρείτε στο μενού αρκετές φορές όταν θέλουμε να ανοίξουμε τις μορφές. Γι 'αυτό το ερώτημα θα ονομάζεται «CsMenu».

3 - Ας δημιουργήσουμε «μενού» του μορφή, δηλαδή να επιλέξουν νέα φόρμα σε προβολή σχεδίασης. Στη συνέχεια θα δημιουργήσουμε ένα σύνθετο πλαίσιο και να αλλάξετε τις παρακάτω ιδιότητες:
- Ο αριθμός των στηλών: 2
- Πλάτη στηλών: 1 εκατοστό, μηδέν εκατοστά?
- Προέλευση της γραμμής: csmenu (το οποίο είναι το όνομα του ερωτήματος δημιουργήσατε στην προηγούμενη παράγραφο)

4 - Με τον ίδιο τρόπο θα δημιουργήσουμε φόρμα ενός δεσμευμένου κύρια μορφή του (Στο παράδειγμα που κάλεσα menuquadro). Είναι αυτή η μορφή που θα ανοίξει κάθε μία από τις μορφές για να επιλέξετε από το μενού (σύνθετο πλαίσιο).

5 - Τώρα δημιουργούν μια ενότητα που θα μας επιτρέψει να ανοίξετε το μενού που είναι επιλεγμένο στο σύνθετο πλαίσιο στη φόρμα.
Έχουμε δημιουργήσει μια μονάδα (το οποίο ονομάζεται «abrirmenu») και η επικόλληση τον παρακάτω κώδικα:

Δημόσια AtivarMenu Λειτουργία (Combmenu Το σύνθετο πλαίσιο, subabrir Η δευτερεύουσα φόρμα)
Abrirform As String Dim
= Abrirform Combmenu.Column (1)
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
Τέλος Λειτουργία

Μετά θα τις ιδιότητες του σύνθετου πλαισίου στο μενού φόρμας και του Μετά την περίπτωση η ενημέρωση που έχουν δημιουργηθεί: ativarmenu = ([Μενού], [menuquadro]) ότι «μενού» είναι το όνομα του σύνθετου πλαισίου και «menuquadro» του όνομα της δευτερεύουσας φόρμας.

Και τέλος, το μενού είναι έτοιμο για χρήση. Απλά προσπαθώ και να χρησιμοποιήσετε. Ελπίζω ότι απολαύσατε αυτήν την άκρη.
Download: Μενού

Παρακάτω μια εικόνα του μενού.

Καταχωρήθηκε στο Παραδείγματα , Έντυπα , Ενότητες | 12 Σχόλια »

Παράδειγμα των ωφελειών από τη διαχείριση

Τρίτη, 6 Μαΐου, 2008 |

Αυτό το παράδειγμα δείχνει πώς ένα σύστημα διαχείρισης για την παροχή των πληρωμών.

Το παράδειγμα αυτό δείχνει ότι δεν είναι να δημιουργήσει και αυτόματα με το πάτημα ενός κουμπιού, τα οφέλη μιας σύμβασης πώλησης μέσω των δεδομένων που έχουν εισαχθεί. Δηλαδή, έχουμε εισαγάγει το όνομα του πελάτη στην ημερομηνία έναρξης της σύμβασης και το συνολικό πληρωτέο ποσό. Στη συνέχεια, απλώς κάντε κλικ στο "υπολογίζουν τις πληρωμές» που θα παράγει αυτόματα τον αριθμό των δόσεων και διαιρεί την τιμή που αναφέρεται από το καθένα από αυτά και να υπολογίζει την ημερομηνία της κάθε δόσης (μία ανά μήνα). Αυτό είναι επίσης ένα παράδειγμα που δείχνει πώς μπορείτε να προσθέσετε πολλά αρχεία ταυτόχρονα, γιατί όταν κάνετε κλικ στο κουμπί προσθέτει μια εγγραφή για κάθε όφελος.

Λήψη: Τοποθετήστε πολλαπλές εγγραφές

Δημοσιεύτηκε στις Ημερομηνίες , δείγματα , έντυπα , Modules , Εγγραφές | 17 Σχόλια »

Μάρκες σε ένα καταφύγιο ζώων

Σάββατο, 29 Μάρτη 2008 |

Αυτό είναι ένα παράδειγμα των πεδίων εφαρμογής Σόνια αναγνώστη ότι προορίζονται για τα δεδομένα της βάσης δεδομένων καταγραφής των ζώων. Είναι μια απλή βάση δεδομένων με ένα μόνο έντυπο εισαγωγής δεδομένων με μια φωτογραφία του ζώου.

Λήψη: Σταθμός Μέριμνας Ζώων

Οποιαδήποτε αλλαγή μόνο σχόλιο εδώ.

Γραπτές Έντυπα , Φωτογραφίες , Modules , αρχεία , πίνακες | 11 Σχόλια »

Μπαίνοντας ένα ρεκόρ πεδία μέσω ανεξάρτητων

Τετάρτη 20 του Φεβρουαρίου του 2008 |

Υπάρχουν διάφοροι τρόποι για να εισαγάγετε ένα αρχείο, και το πιο συνηθισμένο είναι να πάρετε μέσα από μια φόρμα που είναι δεσμευμένη σε έναν πίνακα. Ένας άλλος τρόπος να γίνει αυτό είναι μέσω μη συνδεδεμένων πεδίων, δηλαδή χρησιμοποιώντας μια φόρμα με πεδία ανεξάρτητη σχέση με τον πίνακα. Να
εισάγετε τα δεδομένα που χρησιμοποιούν το «εγγραφών», δηλαδή με έναν κωδικό, ο οποίος στην περίπτωση του παραδείγματος αυτού είναι ως εξής:

Dim db ως Βάση Δεδομένων
Dim rs Όπως εγγραφών

Αν MsgBox ("Θα ήθελα να γράψω;" vbYesNoCancel, "Επιλογές") = vbYes συνέχεια
"Πατώντας το ερωτηθείτε αν θέλετε να αποθηκεύσετε το αρχείο ή όχι, εάν ναι ο κώδικας συνεχίζει μέχρι το τέλος
Set db = CurrentDb ()
Set rs = db.OpenRecordset («Δεδομένα», dbOpenTable)
«Ανοίξτε τον πίνακα για να εισάγετε τα δεδομένα που έχουν καταχωρηθεί

rs.AddNew
rs ("name") = Me! INome
rs ("διεύθυνση") = Me! Imorada
rs ("ηλικία") = Me! Iidade
«rs.Update στέλνει τα δεδομένα στον πίνακα
«Διαγραφή rs.Close τα δεδομένα και κλείνει το σύνολο εγγραφών
Ορισμός rs = Τίποτα
Ορισμός db = Τίποτα

Me.INome = Null 'καθαρίζει τα πεδία της φόρμας
Me.Imorada = Null
Me.Iidade = Null
MsgBox "Εγγραφή σωθεί", vbInformation, "Έγινε" Εμφάνιση μηνύματος "επιβεβαίωση
«Me.INome.SetFocus Μετακινήστε το δρομέα στο πρώτο πεδίο
Αλλιώς: Υπο Έξοδος
End If

Download: Τοποθετήστε Ανεξάρτητη

Καταχωρήθηκε στο Παραδείγματα , Φόρμες , μονάδες , αρχεία , πίνακες | Δεν Σχόλια »

Υπολογισμοί με ώρες

Τρίτη, 19 Φεβρουαρίου 2008 |

Αυτό το παράδειγμα δείχνει πώς να εκτελούν υπολογισμούς σε ώρα. Είναι χρήσιμο για εκείνους που χρειάζονται να γνωρίζουν πόσος χρόνος μεσολάβησε μεταξύ του χρόνου έναρξης και λήξης. Δεν είναι αρκετό για να κάνει την αφαίρεση του χρόνου λήξης για την ώρα έναρξης, γιατί αν την ώρα λήξης κινείται από τη μια μέρα στην επόμενη λογαριασμών δεν θα είναι πλέον σωστή, για παράδειγμα:

Ώρα έναρξης: 23:00:00

Ώρα λήξης: 2:00:00

Ώρα λήξης - Ώρα έναρξης = 2:00:00 - 23:00:00 = -21:00:00

Προφανώς δεν είναι τόσο απλό να κάνει με το χρόνο, γιατί τότε αντί τρεις ώρες για να σωστό αποτέλεσμα θα ήταν λάθος -21 ώρες.

Για να πάρετε γύρω από αυτό το χρονικό διάστημα που πηγαίνει από μέρα σε μέρα θα πρέπει να ελέγξετε πρώτα αν η ώρα λήξης είναι μεγαλύτερος από το χρόνο έναρξης, ανάλογα με το ποια είναι μεγαλύτερη, τότε ο υπολογισμός είναι: Ώρα λήξης - Ώρα έναρξης.

Αν είστε κάτω από τότε που έχουμε να κάνουμε τον υπολογισμό άλλο τρόπο, και συγκεκριμένα:

Ώρα έναρξης: 23:00:00

Ώρα λήξης: 2:00:00

Σύνολο Ώρα: 23:59:59

Hit: 00:00:01

Βασικά αυτό που κάνετε είναι να προσθέσετε την αξία των 24:00:00 αφαίρεση για να μας δώσει τις σωστές τρεις ώρες. Αυτό είναι:

Ώρα λήξης - Ώρα έναρξης + + Σύνολο Ώρες Πατήστε = to 02:00:00 23:00:00 + 23:59:59 + 00:00:01 = 24:00:00 = 03 + -21:00:00 : 00:00

Download: Λογισμός με το χρόνο

Καταχωρήθηκε στο Παραδείγματα , Έντυπα , Ωράριο , Ενότητες | 21 σχόλια »

PopUp Ημερολόγιο

Τετάρτη, 6 Φεβρουαρίου, 2008 |

Αυτό το παράδειγμα δείχνει πώς να επιλέξετε μια ημερομηνία μέσα από ένα αναδυόμενο Ημερολόγιο. Δηλαδή, ως μια ενότητα και μπορούν να αποτελέσουν μια επίλεκτη μια ημερομηνία που αυτό είναι ένα ημερολόγιο. Στο παράδειγμα που μπορούμε να επιλέξουμε την ημερομηνία κάνοντας κλικ στο κουμπί δίπλα στο πεδίο ημερομηνίας ή πατώντας το δεξί πλήκτρο του ποντικιού στο πεδίο ημερομηνίας. Με αυτό τον τρόπο να καταχωρίσετε τις ημερομηνίες είναι πολύ πρακτικό, δεδομένου ότι μας επιτρέπει να δούμε ένα ημερολόγιο και να επιλέξει την καλύτερη ημερομηνία που θέλετε.

Λήψη: PopUp Ημερολόγιο

Δημοσιεύτηκε στις Ημερομηνίες , δείγματα , έντυπα , μονάδες | 1 Σχόλιο »

Απενεργοποιήστε τον τροχό του ποντικιού (μεσαίο κουμπί)

Κυριακή 27 του Ιανουαρίου του 2008 |

Συνήθως, όταν τρέξουμε το κεντρικό πλήκτρο του ποντικιού σε μια φόρμα, αλλάξτε το αρχείο καταγραφής πρόσβασης. Σε ορισμένες περιπτώσεις μπορεί να είναι χρήσιμο αυτό δεν θα συμβεί.
Το παράδειγμα αυτό χρησιμοποιεί μια μονάδα σε περίπτωση που το έντυπο για να φορτώσει, να αποτραπεί ο χρήστης πλοηγηθείτε στα αρχεία χρησιμοποιώντας το ποντίκι κύλισης. Για να ελέγξετε μπορούμε να χρησιμοποιήσουμε τον τροχό του ποντικιού (το μεσαίο πλήκτρο) για να δείτε αυτό δεν αλλάζει την εγγραφή.

Κατεβάστε εδώ: ποντίκι Wheel

Καταχωρήθηκε στο Παραδείγματα , Φόρμες , Modules , ποντίκι , Εγγραφές | Δεν Σχόλια »

Χειριστείτε το παράθυρο της Access

Τη Δευτέρα, 21 Ιανουαρίου 2008 |

Το παράδειγμα αυτό χρησιμοποιεί μια μονάδα που κρύβει την Microsoft Access κύριο παράθυρο, αφήνοντας μόνο το παράθυρο της φόρμας ορατό.
Για να χρησιμοποιήσετε αυτή την ενότητα θα πρέπει να χρησιμοποιήσετε την ακόλουθη εντολή στην εναρκτήρια εκδήλωση της μορφής: fsetAccessWindow κλήση (SW_HIDE).

Για να ελέγξετε, ως παράδειγμα, κάνουν το downloa: Χειριστείτε Acces Παράθυρο

Καταχωρήθηκε στο Παραδείγματα , Έντυπα , Ενότητες | 8 Σχόλια »