[ Φόρμες ] Άνοιγμα φόρμας και άμεση μετάβαση σε συγκεκριμένη εγγραφή.

[dimmag]

Σάκη καλισπέρα
Για δοκίμασε
στο cmdOpenEdit_pelates_Click()
αντι για
DoCmd.Close
Form_pelates.Visible = False

και για την επιστροφή στο cmdPisoStousPelates_Click() της φόρμας Edit_pelates

DoCmd.Close (τη φόρμα Edit_pelates)
Form_pelates.Visible = True

Φιλικά
Δημήτρης

[dimmag]

Αρχική Δημοσίευση από dimmag

Σάκη καλισπέρα
Για δοκίμασε
στο cmdOpenEdit_pelates_Click()
αντι για
DoCmd.Close
Form_pelates.Visible = False

και για την επιστροφή στο cmdPisoStousPelates_Click() της φόρμας Edit_pelates

DoCmd.Close (τη φόρμα Edit_pelates)
Form_pelates.Visible = True

Φιλικά
Δημήτρης

Για αποφυγή παρανόησης
για την επιστροφή στο cmdPisoStousPelates_Click() της φόρμας Edit_pelates
μετά το
DoCmd.Close (τη φόρμα Edit_pelates)
βάλε
Form_pelates.Visible = True

[sakis297]

Χαχά!!! Δημήτρη όταν διάβασα τη σκέψη σου είπα "αποκλείεται να υπάρχει τόσο απλή λύση"...
Και όντως!!! Αυτό που μου πρότεινες κάνει τη δουλειά που θέλω!!! Εναλλακτικός ο τρόπος σκέψης σου!!! Σ' ευχαριστώ πάρα πολύ!!!
Πάντως, αν μάθαινα πως μπορώ βρισκόμενος σε μία φόρμα, να πάω αμέσως στην τελευταία εγγραφή μιας άλλης φόρμας, τότε θα ήμουν 100% καλυμμένος.

[kapetang]

Καλησπέρα/Καλημέρα στην παρέα

Πράγματι η λύση που πρότεινε ο Δημήτρης είναι έξυπνη και απλή.

Πιστεύω όμως ότι, αν κάνουμε αλλαγές δεδομένων στη φόρμα Edit_pelates, δε θα εμφανίζονται στη φόρμα pelates, όταν την κάνουμε ορατή.

Για να πάμε στην τελευταία εγγραφή, στο κουμπί που εμφανίζει τη φόρμα pelates, μπορούμε να βάλουμε τον κώδικα: Forms("pelates").Recordset.MoveLast

Φιλικά/Γιώργος

[sakis297]

Αρχική Δημοσίευση από kapetang

Καλησπέρα/Καλημέρα στην παρέα

Πράγματι η λύση που πρότεινε ο Δημήτρης είναι έξυπνη και απλή.

Πιστεύω όμως ότι, αν κάνουμε αλλαγές δεδομένων στη φόρμα Edit_pelates, δε θα εμφανίζονται στη φόρμα pelates, όταν την κάνουμε ορατή.

Για να πάμε στην τελευταία εγγραφή, στο κουμπί που εμφανίζει τη φόρμα pelates, μπορούμε να βάλουμε τον κώδικα: Forms("pelates").Recordset.MoveLast

Φιλικά/Γιώργος

Γιώργο, ακόμα κι αν κάνω αλλαγές στην Edit_pelates, αυτές θα εμφανιστούν στη φόρμα Pelates όταν την εμφανίσω.
Σ' ευχαριστώ για την τελευταία εγγραφή.

[sakis297]

Τάσο ήσουν αναλυτικότατος.
Μόλις βρω χρόνο θα μελετήσω όλα αυτά που μου έγραψες. Νομίζω ότι θα μου φανούν χρήσιμα και σε άλλα πράγματα που θέλω να φτιάξω.
Σ'ευχαριστώ πολύ!!!

[Tasos]

Καλησπέρα σε όλους!

Σάκη ο κώδικας που υπάρχει στο μήνυμα σου:
Κλείνει την αρχική φόρμα "Pelates".
Ανοίγει τη φόρμα "Edit_Pelates" με κριτήριο το ID της τρέχουσας εγγραφής της αρχικής
("Pelates") που το έχεις βάλει προηγουμένως στη μεταβλητή stLinkCriteria.

Ο δικός μου κώδικας δεν κάνει ακριβώς τα ίδια με τον δικό σου.

Τι κάνει ο κώδικας αυτός :

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

Αποθηκεύει τυχόν μη αποθηκευμένη εγγραφή για να μπορέσει να την εμφανίσει στη φόρμα "Edit_Pelates".

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

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

Στη συνέχεια της εκτέλεσης του κώδικα θα γίνει ανανέωση των δεδομένων της φόρμας "Pelates" και αν έχει δημιουργηθεί νέα εγγραφή θα την επιλέξει.

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

Με γνώμονα τα παραπάνω και μην γνωρίζοντας τον τρόπο που περιορίζεις την επεξεργασία της αρχικής φόρμας, αλλά και τη δόμηση της βάσης,
σου έστειλα όπως είπα αυτόν τον "γενικευμένο κώδικα".

Όσο για το φίλτρο που δεν θέλεις να εφαρμόζεται στη φόρμα "Edit_Pelates" θα πρέπει να
τροποποιηθεί ο κώδικας στη φόρμα "Pelates" αλλά και να προστεθεί ο παρακάτω κώδιικας στη φόρμα "Edit_Pelates":

Private Sub Form_Load()
    Dim rs As Object, CurrentID As Long
    CurrentID = Nz(Me.OpenArgs)
    If CurrentID = 0 Then
        DoCmd.GoToRecord , , acNewRec
    Else
        Set rs = Me.Recordset.Clone
        rs.FindFirst "[kwdikos_pelati] = " & CurrentID
        If Not rs.EOF Then Me.Bookmark = rs.Bookmark
        rs.Close
    End If
End Sub

Στο συνημμένο μπορείς να δεις ένα παράδειγμα.


Καλή συνέχεια!

Τάσος