Πρώτα Βήματα - Βάσεις δεδομένων

Απ: ΠΡΟΒΛΗΜΑΤΑ ΣΤΗ ΔΗΜΙΟΥΡΓΙΑ ΜΙΑ ΒΑΣΗΣ ΣΕ ACCESS..........

Pak — Thu, 30 Nov 2006 18:17:08 GMT

Βεβαιώσου ότι ο timer είναι enabled(Χαζό αλλά το παθαίνω συχνά:-) )!

Απ: ΠΡΟΒΛΗΜΑΤΑ ΣΤΗ ΔΗΜΙΟΥΡΓΙΑ ΜΙΑ ΒΑΣΗΣ ΣΕ ACCESS..........

tasos — Thu, 30 Nov 2006 01:25:53 GMT

Dim MyAccess As Access.Application
Set MyAccess = CreateObject("Access.Application")
MyAccess.OpenCurrentDatabase "C:\Documents\DB\SomeDB.mdb", False
MyAccess.DoCmd.OpenForm "f1"

MsgBox MyAccess.Forms.Item("f1").GetSomeNumber

Υποθέτω πως στο αρχείο "C:\Documents\DB\SomeDB.mdb" υπάρχει μία φόρμα f1 και πως στον κώδικα της έχεις ορίσει μία συνάρτηση GetSomeNumber(). Η φόρμα f1 θα ανοίξει και θα κάνεις ότι θέλεις στη φόρμα. Η κλήση της GetSomeNumber() είναι για να δεις πως μπορείς να πάρεις δεδομένα από την Access.

Ελπίζω να βοήθησα

Απ: ΠΡΟΒΛΗΜΑΤΑ ΣΤΗ ΔΗΜΙΟΥΡΓΙΑ ΜΙΑ ΒΑΣΗΣ ΣΕ ACCESS..........

KoYkoY — Wed, 29 Nov 2006 04:08:02 GMT

Νάτο λοιπόν!

Απ: ΠΡΟΒΛΗΜΑΤΑ ΣΤΗ ΔΗΜΙΟΥΡΓΙΑ ΜΙΑ ΒΑΣΗΣ ΣΕ ACCESS..........

George J. Capnias — Wed, 29 Nov 2006 01:56:34 GMT

KoYkoY wrote:

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

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

George J.

Απ: ΠΡΟΒΛΗΜΑΤΑ ΣΤΗ ΔΗΜΙΟΥΡΓΙΑ ΜΙΑ ΒΑΣΗΣ ΣΕ ACCESS..........

KoYkoY — Tue, 28 Nov 2006 18:05:04 GMT

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

Απ: ΠΡΟΒΛΗΜΑΤΑ ΣΤΗ ΔΗΜΙΟΥΡΓΙΑ ΜΙΑ ΒΑΣΗΣ ΣΕ ACCESS..........

KoYkoY — Tue, 28 Nov 2006 18:01:15 GMT

Ο κώδικας στο 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

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

Απ: ΠΡΟΒΛΗΜΑΤΑ ΣΤΗ ΔΗΜΙΟΥΡΓΙΑ ΜΙΑ ΒΑΣΗΣ ΣΕ ACCESS..........

γιωργος μπακογιαννης — Tue, 28 Nov 2006 17:51:48 GMT

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

Απ: ΠΡΟΒΛΗΜΑΤΑ ΣΤΗ ΔΗΜΙΟΥΡΓΙΑ ΜΙΑ ΒΑΣΗΣ ΣΕ ACCESS..........

Joelkal — Tue, 28 Nov 2006 07:27:45 GMT

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

Απ: ΠΡΟΒΛΗΜΑΤΑ ΣΤΗ ΔΗΜΙΟΥΡΓΙΑ ΜΙΑ ΒΑΣΗΣ ΣΕ ACCESS..........

KoYkoY — Tue, 28 Nov 2006 07:08:32 GMT

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

Απ: ΠΡΟΒΛΗΜΑΤΑ ΣΤΗ ΔΗΜΙΟΥΡΓΙΑ ΜΙΑ ΒΑΣΗΣ ΣΕ ACCESS..........

Joelkal — Tue, 28 Nov 2006 04:48:11 GMT

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

Απ: ΠΡΟΒΛΗΜΑΤΑ ΣΤΗ ΔΗΜΙΟΥΡΓΙΑ ΜΙΑ ΒΑΣΗΣ ΣΕ ACCESS..........

KoYkoY — Tue, 28 Nov 2006 03:24:55 GMT

Αν θέλεις να επιμείνεις με την 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
Εμφάνιση Φόρμας/σελίδας βάζεις το όνομα της καινούριας φόρμας και ξετσεκάρεις παράθυρο βάσης δεδομένων.

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

Απ: ΠΡΟΒΛΗΜΑΤΑ ΣΤΗ ΔΗΜΙΟΥΡΓΙΑ ΜΙΑ ΒΑΣΗΣ ΣΕ ACCESS..........

Joelkal — Tue, 28 Nov 2006 02:27:18 GMT

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

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

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

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

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

Απ: ΠΡΟΒΛΗΜΑΤΑ ΣΤΗ ΔΗΜΙΟΥΡΓΙΑ ΜΙΑ ΒΑΣΗΣ ΣΕ ACCESS..........

Joelkal — Tue, 28 Nov 2006 02:17:59 GMT

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

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

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

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

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

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

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

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

Απ: ΠΡΟΒΛΗΜΑΤΑ ΣΤΗ ΔΗΜΙΟΥΡΓΙΑ ΜΙΑ ΒΑΣΗΣ ΣΕ ACCESS..........

tasos — Tue, 28 Nov 2006 01:03:50 GMT

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

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

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

Απ: ΠΡΟΒΛΗΜΑΤΑ ΣΤΗ ΔΗΜΙΟΥΡΓΙΑ ΜΙΑ ΒΑΣΗΣ ΣΕ ACCESS..........

γιωργος μπακογιαννης — Mon, 27 Nov 2006 15:36:42 GMT

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

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

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