Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   Αντιγραφή επιλεγμένων πεδίων με checkbox (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/4967-antigrafi-epilegmenon-pedion-me-checkbox.html)

smasak 03-08-18 17:56

Αντιγραφή επιλεγμένων πεδίων με checkbox
 
Καλησπέρα σας,
χρησιμοποιώ τον παρακάτω κώδικα για αντιγραφή στοιχείων για ΕΝΑ μόνο μαθητή.
"Dim Field1, Field2, Field3, Field4

Field1 = Me!κωδΜαθητή
Field2 = Me!IDclass
Field3 = Me!Περίοδος
Field4 = Me!ΠΕΡΙΟΔΟΣ_ΠΛΗΡΩΜΗΣ


DoCmd.GoToRecord , , acNewRec

Me!κωδΜαθητή = Field1
Me!IDclass = Field2 + 1
Me!Περίοδος = Field3 + 1
Me!ΠΕΡΙΟΔΟΣ_ΠΛΗΡΩΜΗΣ = Field4

Θα ήθελα με checkbox να επιλέξω περισσότερους για αντιγραφή.
Το checkbox ήδη το έχω δημιουργήσει(ΕπιλογήΣ).

nasos23 05-08-18 18:25

1 Συνημμένο(α)
Καλησπέρα σε όλους.
Σάκη δες μια απλή προσομοίωση σ' αυτο που ζητας

smasak 05-08-18 20:55

Ευχαριστώ Νάσο, θα το μελετήσω και θα προσπαθήσω να το προσαρμόσω στη βάση μου.
Καλή συνέχεια.

smasak 07-08-18 08:54

1 Συνημμένο(α)
Καλημέρα, εκτός της επιλογής να δημιουργηθεί ερώτημα(όπως στη ωραία λύση σου Νάσο) μπορεί να υλοποιηθεί με κώδικα στον button "Επανεγγραφή επιλεγμένων" της φόρμας ΕΠΑΝΕΓΓΡΑΦΗ του δείγματος;

nasos23 08-08-18 09:55

1 Συνημμένο(α)
Καλημέρα σέ όλους
Σάκη
Ας μου επιτραπεί να χρησιμοποιήσω τη έκφραση του forum
Εδώ δεν υπάρχουν όρια!

Στο συνημμένο δές μια προσομοίωση
βασισμένη σε παλαιότερη ανάρτηση του φίλου
και ΔΑΣΚΑΛΟΥ των περισσοτέρων ημών, Γιώργου Καπετανόπουλου.

http://www.ms-office.gr/forum/access...io-pinaka.html

Υ.Γ. Καλή συνέχεια

smasak 08-08-18 12:10

1 Συνημμένο(α)
Nάσο τι να πούμε για τον Γιώργο....άψογος.Προσωπικά με έχει βοηθήσει αρκετές φορές, όπως και εσύ βέβαια.
Σας ευχαριστώ και τους δύο όπως και εν γένει το forum.

Προσπάθησα να το προσαρμόσω στο sample και μου βγάζει μήνυμα λάθους.Κάτι δεν κάνω σωστά για άλλη μια φορά.

nasos23 08-08-18 18:46

Κάνε αντικατάσταση το
![IDclass] = rsFrom![IDclass] + 1
σε
![ΤΑΞΗ] = rsFrom![ΤΑΞΗ] + 1

smasak 09-08-18 07:36

Καλημέρα, δουλεύει μια χαρά.
Ευχαριστώ Νάσο.


Η ώρα είναι 18:09.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2