---

Little thinks make us big...........

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

Είναι μάλιστα τόσο συνηθισμένο να μένουν αναπάντητες οι κακογραμμένες ερωτήσεις που κάποιος έγραψε και άρθρο στο Knowledge Base της Microsoft σχετικά. Η μετάφραση του υπάρχει στο "Πως να κάνετε ερωτήσεις". Το θέμα είναι τόσο σοβαρό, που στο αδελφό site www.autoexec.gr το άρθρο έχει καταχωρηθεί μαζί με τους κανόνες του site.

---

Παναγιώτης Καναβός, Freelancer
Twitter: http://www.twitter.com/pkanavos

Ευχαριστώ πολύ και συγγνώμη , ελπίζω τώρα με τις διορθώσεις να είναι η ερώτηση μου πιο ευανάγνωστη και να πάρω μια απάντηση.

Και πάλι συγγνώμη.

---

Little thinks make us big...........

Μάλλον θα χρειαστείς το «TimerInterval Property» και το «SendKeys Statement» (SendKeys "{PGDN}").

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

 

Άλλα θα ήθελα να σου πω και κάτι ακόμα. Εάν θες να κάνεις πιο επαγγελματική την ενασχόληση σου με τον προγραμματισμό, θα σου πρότεινα να «πας» στο Visual Studio .NET 2005 και να ασχοληθείς με την Visual Basic .NET. Πιστεύω ότι δεν απέχεις πολύ σε σχέση με την MS Access. Τα οφέλη που θα έχεις αργότερα θα σου δικαιώσουν το λίγο κόπο της μετάβασης. Τέλος και το θέμα κόστους που είναι πάντα ένα ζήτημα η «μαμά» εταιρεία στο έχει λύσει με τις εκδόσεις Express. Δες το link.

---

while (!dead) learn();

Για το pagedown δεν έχω κάποια καλή ιδέα αλλά αυτό που μπορείς να κάνεις είναι να κάνεις εσύ το ερώτημα, χρησιμοποιώντας π.χ. τη βιβλιοθήκη DAO, και αφού έχεις το recordset φορτωμένο, να γράψεις δικό σου κώδικα για να κάνεις τη δουλειά σου.

Όσο για το θέμα με τις δύο οθόνες, υποθέτω πως στην μία οθόνη θα τρέχεις κάποια παρουσίαση σε Power Point. Αν ναι, τότε μπορείς να βάλεις ένα κουμπί στη διαφάνεια σου και εκεί να γράψεις κώδικα σε VBA όπου θα ανοίγεις το αρχείο Access, και θα εμφανίζεται η φόρμα που θέλεις, όλα αυτά μέσω κώδικα. Αν όχι, πες μας συγκεκριμένα τι έχεις για να σου πούμε κάτι πιο χρήσιμο.

Για να ανοίξεις τη φόρμα της Access μέσα από Power Point έχω κάποιο κώδικα, αν και θα βρεις εύκολα αν ψάξεις. Αν το χρειάζεσαι πες, να τον κάνω post

---

Τάσος Καραγιάννης

Baby debugging steps...

 

Κύριε Μπακογιάννη ευχαριστώ πολύ για το χρόνο που διαθέσατε να μου κάνετε και παράδειγμα κιόλας αλλά δεν μου τρέχει.

Συγκεκριμένα δεν κάνει pagedown δηλαδή δεν αλλάζουν οι εγγραφές ανά δέκα , 
απλά είναι η μια είναι κάτω από την άλλη χωρίς να υπάρχει αυτόματη κίνηση / κύλιση.

Και στην δεύτερη φόρμα εκτός από το κουμπί back (κλείσιμο της φόρμας ) δεν υπάρχει κάτι άλλο.

Επίσης τους ορούς που αναφέρεται «TimerInterval Property» , «SendKeys Statement» (SendKeys "{PGDN}") δεν τους γνωρίζω.

Συγγνώμη αλλά είμαι λίγο άσχετος πάνω σε αυτό έως και πολύ.

 

Τέλος η μετάβαση στη Visual Basic .NET θα γινόταν αργά η γρήγορα .

Και να πω αλήθεια ειδή έχω ξεκινήσει να ασχολούμαι και το παλεύω ,
απλώς αυτή η βάση έχει δημιουργηθεί εδώ και 1,5 περίπου χρόνο σε ACCESS
και τώρα μου ζήτησαν να κάνω αυτή την αναβάθμιση με την παρουσίαση που έχω κολλήσει
και δεν ξέρω πώς να την λύσω.

 

Ευχαριστώ πολύ !

---

Little thinks make us big...........

 

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

Όσο για τις δυο οθόνες αν και δεν είχα στο μυαλό μου κάτι τέτοιο που αναφέρεται τη βρίσκω ωραία ιδέα.

Και ευχαρίστως θα δεχόμουν να κάνετε post  τον παραπάνω κώδικα μιας και

θα με βοηθούσε πολύ ,  αλλά θα βοηθούσε και άλλους που θα ήθελαν να κάνουν κάτι παρόμοιο

 

Ευχαριστώ πολύ !

---

Little thinks make us big...........

Αν θέλεις να επιμείνεις με την Access θα μπορούσες να δοκιμάσεις τα εξής:

Private Sub Form_Timer()
On Error GoTo Err_JumpTen_Click

Dim intCurrentRecord As Integer
intCurrentRecord = Me.CurrentRecord

intCurrentRecord = CInt(Left(CStr(intCurrentRecord), 1) + 1)
intCurrentRecord = intCurrentRecord * 10

DoCmd.GoToRecord , , acGoTo, intCurrentRecord + 9
DoCmd.GoToRecord , , acGoTo, intCurrentRecord

intCurrentRecord = 0

Exit_JumpTen_Click:
    Exit Sub

Err_JumpTen_Click:
    If Err.Number = 2105 Then
        Exit Sub
    Else
        MsgBox Err.Description
    End If
    Resume Exit_JumpTen_Click

End Sub

Χρονικό διάστημα χρονομέτρου=1000 (το κάνεις όσο θέλεις)

Κατόπιν μπορείς να δημιουργήσεις μία άλλη φόρμα (αρκετά μεγάλη) που δεν θα περιέχει κανένα control και να βάλεις τη φόρμα σου ως υποφόρμα στην καινούρια φόρμα.

Να τροποποιήσεις το ύψος της υποφόρμας ώστε να σου δείχνει δέκα εγγραφές μόνο.

Ιδιότητες Νέας Φόρμας

tab 'Άλλα'               tab 'Μορφή'
Αναδυόμενη=Ναι        Γραμμές κύλισης=Κανένα
Αποκλειστική=Ναι       Δείκτες επιλογής εγγραφών=Όχι
                                Κουμπιά μετακίνησης=Όχι
                                Διαχωριστικές γραμμές=Όχι
                                Προεπιλεγμένη προβολή=Μονή φόρμα

Στο συμβάν με το άνοιγμα της καινούριας φόρμας σου να προσθέσεις κώδικα

Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize

Me.ΌνομαΥποφόρμας.Move 0, 0
Me.ΌνομαΥποφόρμας.Move 6000, 3000 (τα νούμερα θα χρειαστεί να τα αλλάξεις δοκιμάζοντας που κεντράρεται η φόρμα σου)

End Sub

Αφού δημιουργήσεις ένα αντίγραφο της βάσης δεδομένων σου, ανοίγεις το αντίγραφο και πηγαίνεις στο menu εργαλεία -----> Εκκίνηση και συμπληρώνεις:
Τίτλος Εφαρμογής=Ότι θέλεις
Γραμμή μενού ξετσεκάρεις Πλήρη μενού, Προεπιλεγμένα μενού, Ειδικά πλήκτρα Access
Εμφάνιση Φόρμας/σελίδας βάζεις το όνομα της καινούριας φόρμας και ξετσεκάρεις παράθυρο βάσης δεδομένων.

Τέλος δημιουργείς μία συντόμευση της βάσης στην επιφάνεια εργασίας που θα σου ανοίγει κατευθείαν τη φόρμα σου.

Φίλε ΚΟΥΚΟΥ ευχαριστώ πολύ για το χρόνο που διάθεσες να μου γράψεις κώδικα είσαι λεπτομερέστατος.
Για το κώδικα του χρονομέτρου θέλει κάποια άλλη ρύθμιση όμως? γιατι δεν μου τρέχει.

---

Little thinks make us big...........

Αν δεν ορίσεις το Χρονικό διάστημα χρονομέτρου=1000 δε δουλεύει (μη βάλεις το =).

Το έχω ορίσει και δεν δουλεύει...........

---

Little thinks make us big...........

Άρα κάποιο πρόβλημα έχει η Access σου.

---

while (!dead) learn();

Ο κώδικας στο timer χρειάζεται κάποια διόρθωση όμως δεν έχει να κάνει με το αν σου δουλεύει ή όχι αλλά με τη μετακίνηση στις εγγραφές.

Private Sub Form_Timer()
On Error GoTo Err_JumpTen_Click

Dim intCurrentRecord As Integer
intCurrentRecord = Me.CurrentRecord

If intCurrentRecord < 10 Then
    DoCmd.GoToRecord , , acGoTo, 21
    DoCmd.GoToRecord , , acGoTo, 11
Else
    intCurrentRecord = CInt(Left(CStr(intCurrentRecord), 1) + 1)
    intCurrentRecord = intCurrentRecord * 10

    DoCmd.GoToRecord , , acGoTo, intCurrentRecord + 10
    DoCmd.GoToRecord , , acGoTo, intCurrentRecord + 1
End If

intCurrentRecord = 0

Exit_JumpTen_Click:
    Exit Sub

Err_JumpTen_Click:
    If Err.Number = 2105 Then
        Exit Sub
    Else
        MsgBox Err.Description
    End If
    Resume Exit_JumpTen_Click

End Sub

Επίσης στο συμβάν Με το κλείσιμο της αδέσμευτης φόρμας μπορείς να προσθέσεις:

Private Sub Form_Close()
DoCmd.Quit
End Sub

Αν θέλεις κατέβασε το συνημμένο αρχείο να το δεις στην πράξη.

ααααμμ το συνημμένο δεν ανεβαίνει..

KoYkoY wrote:

ααααμμ το συνημμένο δεν ανεβαίνει..

Τι κατάληξη έχει το συννημένο; Αν το κάνεις .zip/.rar θα μπορέσεις να το βάλεις...

 

George J.

---

George J. Capnias: Χειροπρακτικός Υπολογιστών, Ύψιστος Γκουράρχης της Κουμπουτερολογίας w: capnias.org, t: @gcapnias, l: gr.linkedin.com/in/gcapnias