Ανανέωση ιστοσελίδας
ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > Ενημέρωση εγγραφών με VB

Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 19-06-12, 20:36
Όνομα: Μαρία
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 01-04-2011
Μηνύματα: 25
Προεπιλογή Ενημέρωση εγγραφών με VB

Καλησπέρα,

Θέλω να ενημερώσω το πεδίο field1 με τους πρώτους 20 χαρακτήρες του πεδίου field.

Το πεδίο field βρίσκεται στον πίνακα p1. Το πεδίο field1 βρίσκεται σε διαφορετικό πίνακα π.χ. p2.

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

Σας παραθέτω τον κώδικα για να μου πείτε πως να το παραμετροποιήσω.


Κώδικας:
Private Sub Aioie?0_Click()
    With CurrentDb.OpenRecordset("p1", 2)
        .MoveFirst
        Do While Not .EOF
            .Edit

            !field1 = Left(!field, 20)

            .Update
            .MoveNext
        Loop
    End With
End Sub
Σας ευχαριστώ
Απάντηση με παράθεση
  #2  
Παλιά 20-06-12, 11:30
Όνομα: Νικόλας
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 29-11-2011
Μηνύματα: 17
Προεπιλογή

Καλημέρα

Μπορείς να κάνεις ερώτημα στο οποίο τα πεδία που αναφέρεις να ΜΠΟΡΟΥΝ να είναι δίπλα-δίπλα;
Αν ΝΑΙ τότε άνοιξε το ερώτημα αντί για τον P1, και δούλεψε με τον κώδικα που αναφέρεις.
Αν ΟΧΙ τότε θα πας με την εντολή insert ...

Με εκτίμηση
Νικόλας
Απάντηση με παράθεση
  #3  
Παλιά 20-06-12, 13:19
Όνομα: Μαρία
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 01-04-2011
Μηνύματα: 25
Προεπιλογή

Γεια σου Νικόλα,

Ευχαριστώ για την απάντηση.

Πως να δηλώσω ότι το πεδίο field ανήκει στον πίνακα p1( και έχει τα δεδομένα) και το πεδίο field1 είναι στον πίνακα p2;

Μου είπες να χρησιμοποιήσω την εντολή insert. Εννοείς να αντικαταστήσω την εντολή .Update με .Insert;

Ευχαριστώ

Φιλικά,
Μαρία
Απάντηση με παράθεση
  #4  
Παλιά 20-06-12, 16:16
Το avatar του χρήστη Meteora
Συντονιστής
Όνομα: Νίκος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 28-12-2008
Περιοχή: Θεσσαλονίκη
Μηνύματα: 1.033
Προεπιλογή

Καλημέρα
Αγαπητή μας Μαρία,
Οι δυο πίνακες δεν συνδέονται; Δεν μπορείς να κάνεις ερώτημα; Γιατί πας σε δεύτερο πίνακα Ρ2 ; Στον πίνακα Ρ1 αν προσθέσεις ένα ακόμη πεδίο [field2] στο οποίο να τοποθετήσεις τα 20 πρώτα ψηφία του πεδίου field1, δεν είναι αυτό λύση; Αν φίάξεις το πεδίο field2 τότε ο κώδικας που ανέβασες δουλεύει τέλεια αρκεί να τοποθετήσεις την εντολή: !field2 = Left(!field1, 20)
Περιμένουμε να σε διαβάσουμε.

Νίκος Δ.

Υστερολόγιο: Η insert δεν αντικαθιστά την update...
Απάντηση με παράθεση
  #5  
Παλιά 22-06-12, 09:18
Όνομα: Μαρία
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 01-04-2011
Μηνύματα: 25
Προεπιλογή

Καλημέρα,

Ευχαριστώ για την απάντηση.

Δεν είναι μόνο ένα πεδίο που θέλω να μεταφέρω αλλά αρκετά. Θέλω από έναν πίνακα που ήδη έχω να δημιουργήσω ένα δεύτερο πίνακα με κάποια επιλεγμένα στοιχεία που θέλω και τον υπάρχον να τον διαγράψω.

Σ' ευχαριστώ.
Απάντηση με παράθεση
  #6  
Παλιά 22-06-12, 18:28
Το avatar του χρήστη Meteora
Συντονιστής
Όνομα: Νίκος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 28-12-2008
Περιοχή: Θεσσαλονίκη
Μηνύματα: 1.033
Προεπιλογή

Καλησπέρα

Αν διαγράψεις τον υπάρχοντα πίνακα, η φόρμα που "πατά πάνω του" τι θα βλέπει;

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

Με εκτίμηση
Νίκος Δ.
Απάντηση με παράθεση
Απάντηση στο θέμα


Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[VBA] Ενημέρωση εγγραφών μέσω userform gourji Excel - Ερωτήσεις / Απαντήσεις 8 14-04-14 00:35
Προσθήκη και ενημέρωση Εγγραφών από Excel Tasos Access samples - Χρήσιμα αρχεία & παραδείγματα 0 20-03-12 09:21


Η ώρα είναι 00:24.