Ανανέωση ιστοσελίδας

[nasos23]

Παναγιώτη
Στη φόρμα σε προβολή σχεδίασης διέγραψε την εντολή Me.Requery.

[octapus]

ευχαριστώ πολύ νάσο

φιλικά παναγιώτης

[octapus]

Καλησπερίζω και πάλι.
προσπαθώ να σώσω τα πεδία και σε έναν άλλο πίνακα με κώδικα
αλλά κάπου κάνω λάθος

CurrentDb.Execute "INSERT INTO ERGA2 (AA, KAEK, Titlos, ArMel, DateMeletis) " _
& " VALUES (" & Me.AA & "', '" & Me.KAEK & "', '" & Me.Titlos & "', '" & Me.ArMel & "', '" & Me.DateMeletis & ")"

[kapetang]

Καλησπέρα

Παναγιώτη δοκίμασε τον κώδικα:

Private Sub RunSaveParap2_Click()
    'Υπέθεσα ότι μόνο τα πεδία ArMel και DateMeletis μπορούν να είναι Null.
    'Αν μπορεί και άλλα πεδία να είναι Null θα πρέπει να προσαρμοστεί ο κώδικας
    
    Dim strV As String
    
    strV = " VALUES ('" & Me.AA & "', '" & Me.KAEK & "', '" & Replace(Me.Titlos, "", """") & "'"
   
    If IsNull(Me.ArMel) Then
        strV = strV & ", Null"
    Else
        strV = strV & ", '" & Me.ArMel & "'"
    End If

    If IsNull(Me.DateMeletis) Then
        strV = strV & ", Null )"
    Else
        strV = strV & ", #" & Format(Me.DateMeletis, "mm/d/yyyy") & "#)"
    End If

    CurrentDb.Execute "INSERT INTO ERGA2 (AA, KAEK, Titlos, ArMel, DateMeletis) " & strV
End Sub

[octapus]

ευχαριστώ πολύ γιώργο
το πέρασα και δουλεύει, αλλά υπάρχουν δυο προβληματάκια
ο πίνακας ERGA2 ενημερώνεται κανονικά, ενώ ο πίνακας ERGA ενημερώνεται
αφού αλλάξω εγγραφή ή κλείσω την φόρμα
και αν διορθώσω ένα πεδίο στην φόρμα δεν ενημερώνεται το πεδίο στον Πίνακα ERGA2

Στην κανονική μου βάση είναι περισσότερα τα πεδία που θέλω να ενημερώνω και είναι ένα το πεδίο που μπορεί να μην έχει καθόλου τιμή.
θα κάνω τις αλλαγές, πιστεύω να τα καταφέρω.
και μια χάρη
μπορείς να μου εξηγήσεις τον λόγο που έβαλες την εντολή replace στο πεδίο τίτλος
και την format στην ημερομηνία;
ευχαριστώ.
φιλικά παναγιώτης

[kapetang]

Καλησπέρα

1) Στην Access δεν απαιτείται κώδικας για να ενημερωθεί ο υποκείμενος πίνακας.

Αρκεί να μετακινηθούμε σε άλλη εγγραφή, να πατήσουμε το κουμπί, της κορδέλας, Save (ομάδα Records), ή να κλείσουμε τη φόρμα.

2) Δεν υπάρχει λόγος να έχεις δύο όμοιους πίνακες ERGA και ERGA2.

Πάντως αν θέλεις να περνάς τις εγγραφές του ERGA και στον ERGA2, ο απλούστερος τρόπος είναι:

• Να δημιουργήσεις ένα ερώτημα που θα διαγράφει τις εγγραφές του ERG2 και .
• Ένα ερώτημα προσθήκης που θα προσαρτά τις εγγραφές του ERGA στον ERG2.

Μπορείς να τρέχεις τα ερωτήματα με απλό κώδικα στο κλείσιμο της φόρμας.

3) Τα εισαγωγικά στην VBA έχουν ειδικό ρόλο. Ορίζουν την αρχή και το τέλος μιας κυριολεκτικής συμβολοσειράς.

Όταν μέσα σε κάποιο κείμενο περιέχονται εισαγωγικά (όπως στο πεδίο titlos), για να υποδείξουμε στον διερμηνέα ότι δεν οριοθετούν κείμενο, τα διπλασιάζουμε.

Αυτό γίνεται με τη συνάρτηση Replace.

4) Η ημερομηνία σε μια πρόταση SQL, στον κώδικα, πρέπει να περιέχεται σε # και να έχει μορφή USA (m/d/yyyy).

[octapus]

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

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

[kapetang]

Η Αccess ας δίνει τη δυνατότητα, αν έχουμε μια φόρμα που βασίζεται σε κάποιο πίνακα, εύκολα και χωρίς κώδικα:

1) Να προσθέτουμε εγγραφές.

2) Να διαγράφουμε εγγραφές.

3) Να τροποποιούμε εγγραφές

4) Να ταξινομούμε και να φιλτράρουμε τις εγγραφές όπως επιθυμούμε, κλπ.

Επίσης από το βασικό πίνακα, μπορούμε εύκολα να δημιουργήσουμε ερωτήματα και εκθέσεις, που να εμφανίζουν μόνο τα πεδία και τις γραμμές που θέλουμε.

Συμπέρασμα: Δε χρειάζεται κανένας βοηθητικός πίνακας για την επεξεργασία κάποιας εγγραφής.

[octapus]

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

http://www.ms-office.gr/forum/access...me-filtro.html
__________________________________________________ _____________________________
octapus Ο χρήστης octapus είναι συνδεδεμένος
Όνομα: Παναγιώτης
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική

13-08-15, 16:26
Μηνύματα: 59
Προεπιλογή Φόρμα περιήγησης με φίλτρο
χαιρετώ

ερώτηση 1
θα ανοίγω την form1 και θα κάνω διπλό κλικ στο Αναγνωριστικό και θα ανοίγει
μια φόρμα περιήγησης η basicform.
Αυτό που θέλω είναι να ανοίγει η φόρμα περιήγησης και σε κάθε φύλλο που θα ανοίγω σε αυτήν
να παρουσιάζει τα στοιχεία της εγγραφής που έκανα διπλό κλικ
έχω βάλει ένα πρόχειρο υπόδειγμα
δηλαδή θα κάνω διπλό κλικ στο αναγνωριστικό 3 και στην φόρμα περιήγισης να μου φέρνει
στο πρώτο φύλλο την φόρμα με τα πεδία που έχουν Αναγνωριστικό 3 στο δεύτερο φύλλο
την έκθεση με τα πεδία που έχουν Αναγνωριστικό 3 και πάει λέγοντας
__________________________________________________ __________________________

θα δοκιμάσω να το λύσω το θέμα με ερώτημα

το δεύτερο ερώτημα το έχουμε λύσει.

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