Θέσεις Tagged «Παραδείγματα»
Σάββατο 16 Οκτωβρίου 2010 |
Μετά από κάποιο χρονικό διάστημα, χωρίς την ενημέρωση του blog, πήρα επιτέλους λίγο χρόνο για να ενημερώσετε το σύστημα πωλήσεων. Πολλοί αναγνώστες δεν θα μπορούσε να πάρει, λόγω του κωδικού πρόσβασης σύνδεσης του συστήματος ζήτησε. Έτσι, θα αφαιρεθεί το σύστημα σύνδεσης για εύκολη πρόσβαση.
Εκτός από την αλλαγή αυτή έκανε τις ακόλουθες αλλαγές:
V 0.5.0 (2010-08-19)
- Αφαιρέθηκε το όνομα χρήστη και τους χρήστες.
- Προστέθηκε πεδία (οικογένεια, IVA και την ενότητα) στον πίνακα προϊόντων.
- Θα δημιουργήσει ένα πίνακα του ΦΠΑ.
- Τροποποίηση της με τη μορφή προϊόντων. (Νέα πεδία, εμφάνιση, νέο τρόπο για να βρει εγγραφές).
- Θα δημιουργήσει το οικογενειακό τραπέζι (των προϊόντων).
- Άλλαξε τη μορφή των αγορών εισάγεται μόνο ένα προϊόν κάθε φορά. Έβαλα με τη μορφή της αγοράς ενός φόρμα όπου μπορείτε να εισάγετε περισσότερα προϊόντα που αγοράζονται σε συγκεκριμένο προμηθευτή.
Download: 2010 Πωλήσεις
Όλες οι παρατηρήσεις σε μια νέα ενημέρωση για να διορθώσετε ή να προσθέσετε χαρακτηριστικά.
Στο μέλλον σκέφτομαι σχετικά με την αλλαγή της θέσης της, όπου είναι οι λήψεις αρχείων, δεδομένου ότι αν υπάρχει δραστηριότητα σε ένα αρχείο για κάποιο χρονικό διάστημα, το αρχείο έχει αφαιρεθεί. Γι 'αυτό και θα επιδιώξουν μια εναλλακτική λύση για εύκολη μερίδιο για αυτό να μην συμβεί.
Στο επόμενο ποστ θα βάλω μια έκδοση του τρόπου υπολογισμού των ευεργετημάτων παρόμοιων με αυτό που είναι ήδη εδώ σε αυτό το μήνυμα , αλλά αντί να έχουν μηνιαίες πληρωμές μπορούν να επιλέξουν μόνο τον αριθμό των ημερών που μεσολαβεί ανάμεσα σε κάθε δόση. Αυτό το παράδειγμα θα χρησιμεύσει επίσης για να απαντήσει σε μια ερώτηση από έναν αναγνώστη ( Μαρσέλο ).
Καταχωρήθηκε στο Παραδείγματα , Φόρμες , Ολοκληρωμένο Σύστημα | 14 Σχόλια »
Σάββατο, 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 Σχόλια »
Πέμπτη, 19 Ιουνίου 2008 |
Αυτό ήταν σίγουρα ένας παίκτης Elton Rueb και αυτός κατάφερε να λύσει προτού να βοηθήσει. Τι ο αναγνώστης είχε ως σκοπό να μετρήσουν το χρόνο που χρειάζεται ο χρήστης για να εισαγάγετε ένα αρχείο και έχει τρία πεδία: ένα για την ώρα έναρξης, όταν ανοίγει τη φόρμα, για πρώτη φορά στο τέλος, το οποίο εισάγεται όταν κάνετε κλικ καταγράφουν το κουμπί και ένα πεδίο για να υπολογιστεί η διαφορά. Αυτό είναι ένα απλό παράδειγμα, αλλά μπορεί να λείπει σε όσους θέλουν να υπολογίσει διαφορά μεταξύ δύο φορές. Έτσι, ο Elton Rueb (Ρίο ντε Τζανέιρο - RJ - Βραζιλία) προβλέπεται το παράδειγμα που θα μπορούσε να βοηθήσει κάποιος άλλος.
Download: Ώρα δοκιμών
Δημοσιεύτηκε στις Ημερομηνίες , δείγματα , Παραδείγματα μεταφέρονται , Εκφράσεις , Μορφή , χρόνος | 2 Σχόλια »
Την Πέμπτη, 12 Ιουνίου, 2008 |
Ο αναγνώστης Jacinto θέσει μια ερώτηση εδώ για το πώς να αλλάξετε τη μορφή της ημερομηνίας 12/06/2008 για 2 0 0 8 0 6 1 2, η απάντηση, όπως εξηγείται στα σχόλια είναι τόσο απλό όσο ένα πλαίσιο κειμένου με το μετά την έκφραση:
= Format ([όνομα πεδίου ημερομηνίας], "mm dd εεεε")
και τις ιδιότητες του πεδίου θέσει τις ακόλουθες λέξεις στη μάσκα εισαγωγής: 0 \ 0 \ 0 \ 0 \ 0 \ 0 \ 0 \ 0 \ 0
Πολύ απλή και εύκολη. Ακολουθήστε το παράδειγμα για download: Μορφή ημερομηνία
Δημοσιεύτηκε στις Ημερομηνίες , παραδείγματα , εκφράσεις , Έντυπα | 1 Σχόλιο »
Τρίτη, 6 Μαΐου, 2008 |
Αυτό το παράδειγμα δείχνει πώς ένα σύστημα διαχείρισης για την παροχή των πληρωμών.
Το παράδειγμα αυτό δείχνει ότι δεν είναι να δημιουργήσει και αυτόματα με το πάτημα ενός κουμπιού, τα οφέλη μιας σύμβασης πώλησης μέσω των δεδομένων που έχουν εισαχθεί. Δηλαδή, έχουμε εισαγάγει το όνομα του πελάτη στην ημερομηνία έναρξης της σύμβασης και το συνολικό πληρωτέο ποσό. Στη συνέχεια, απλώς κάντε κλικ στο "υπολογίζουν τις πληρωμές» που θα παράγει αυτόματα τον αριθμό των δόσεων και διαιρεί την τιμή που αναφέρεται από το καθένα από αυτά και να υπολογίζει την ημερομηνία της κάθε δόσης (μία ανά μήνα). Αυτό είναι επίσης ένα παράδειγμα που δείχνει πώς μπορείτε να προσθέσετε πολλά αρχεία ταυτόχρονα, γιατί όταν κάνετε κλικ στο κουμπί προσθέτει μια εγγραφή για κάθε όφελος.
Λήψη: Τοποθετήστε πολλαπλές εγγραφές
Δημοσιεύτηκε στις Ημερομηνίες , δείγματα , έντυπα , Modules , Εγγραφές | 17 Σχόλια »
Την Κυριακή, 6 Απριλίου 2008 |
Για όσους θέλουν να δώσουν μια διαφορετική επίδραση στα έντυπα, ειδικότερα όταν μπαίνουμε σε δεδομένα, μπορούμε να αλλάξουμε το χρώμα του τομέα όπου βρίσκεται ο δρομέας. Δηλαδή, όλα τα πεδία εισαγωγής δεδομένων είναι το λευκό από το πεδίο στο οποίο γράφουμε αυτό είναι άλλου χρώματος.
Για να γίνει αυτό είναι πολύ εύκολο, απλά επιλέξτε τα πεδία και επιλέξτε το χρώμα φόντου που θέλετε να εμφανίζεται όταν ο δρομέας βρίσκεται στο πεδίο και στη συνέχεια να αλλάξετε το χρώμα σε διαφανές.
Λήψη: Αλλαγή χρώματος πεδίο δεδομένων
Καταχωρήθηκε σε χρώματα , δείγματα , Έντυπα | 10 Σχόλια »
Την Τρίτη, 18 Μαρτίου, 2008 |
Κατόπιν αιτήματος του παίκτη Joao Cabrita αναπτυχθεί αυτή η μορφή του σημείου ελέγχου που εφαρμόζεται σε ένα πυροσβεστικό σταθμό, ειδικότερα για τις ανάγκες του αναγνώστη.
Πρόκειται για ένα βασικό παράδειγμα, αλλά με κάποιες πιο προχωρημένες λεπτομέρειες για το τι πρόκειται να κάνει τον έλεγχο των εισόδων και εξόδων των υπαλλήλων, βεβαιωθείτε ότι εργάζονταν 12 ώρες βάρδια και να προσθέσετε περισσότερες ώρες εργασίας και τις ώρες εργασίας για να λιγότερο.
Όλα αυτά για μια μηνιαία έκθεση της συμμετοχής του κάθε εργαζομένου.
Download: Σημείο
Γραπτές διαβουλεύσεις , τις ημερομηνίες , παραδείγματα , εκφράσεις , τις μορφές , ώρα , εκθέσεις | 9 Σχόλια »
Τετάρτη 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: Τοποθετήστε Ανεξάρτητη
Καταχωρήθηκε στο Παραδείγματα , Φόρμες , μονάδες , αρχεία , πίνακες | Δεν Σχόλια »
