[ Φόρμες ] Εισαγωγή τίτλου στην κεφαλίδα από χρήστη

[gaz_manos]

Καλημέρα!!!!
Επισυνάπτω μία βάση η οποία αποτελείται απο έναν πίνακα και μία φόρμα.
Αυτό που θέλω να μάθω είναι το εξής:
Υπάρχει η δυνατότητα ο χρήστης της βάσεις να συμπληρώνει στην Κεφαλίδα της φόρμας έναν τίτλο, πχ. Όνομα τμήματος και αυτό να εμφανίζεται στο πίνακα δίπλα απο κάθε εγγραφή;
Δεν ξέρω αν έχω αποτυπώσει το ζητούμενο με σαφήνεια, γι' αυτό θα προσπαθήσω να δώσω ένα παράδειγμα.
Μία εταιρία έχει 15 τμήματα. Μοιράζω την βάση μου στα 15 τμήματα για να συμπληρώσουν τα στοιχεία των εργαζομένων του τμήματος. Αυτό που θέλω είναι να μην χρειάζεται σε κάθε εγγραφή να πληκτρολογείτε το τμήμα αλλά να πληκτρολογείται μια φορά και στην συνέχεια να μπαίνει αυτόματα στις υπόλοιπες εγγραφές.

[kapetang]

Καλημέρα

Μάνο, ένας απλός τρόπος για τη συμπλήρωση του τμήματος στους πίνακες είναι ο εξής:

1) Σε κάθε πίνακα προσθέτεις ένα πεδίο (πχ Tmima) για την καταχώρηση του τμήματος.
Ανάλογα με την οργάνωση της τελικής ΒΔ το πεδίο θα είναι αριθμητικό ή κειμένου.

2)Αφού πάρεις τους πίνακες συμπληρωμένους με τα στοιχεία των υπαλλήλων, για να συμπληρώσεις το τμήμα θα πρέπει να τρέξεις ένα ερώτημα ενημέρωσης της μορφής:

• Για αριθμητικό πεδίο: UPDATE Πίνακας1 SET Πίνακας1.Tmima = 1;
• Για πεδίο κειμένου: UPDATE Πίνακας1 SET Πίνακας1.Tmima ="ΌνομαΤμήματος1";

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

[gaz_manos]

Γιώργο καλή ιδέα.
Απλά το "ΟνομαΤμήματος1" με αυτό το τρόπο θα πρέπει να το εισάγω εγώ.
Δεν υπάρχει τρόπος να εισάγεται αυτόματα απο τον χρήστη;

[ασχετος]

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

Μάνο, κοίτα αν σου κάνει

[gaz_manos]

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

Βέβαια δεν μου έτρεξε αυτό που μου έστειλες. Έβγαλε ένα σφάλμα "Η τιμή που δώσατε δεν είναι κατάλληλη για την μάσκα εισόδου "99;;_" που καθορίσατε γι' αυτό το πεδίο

[ασχετος]

Μάνο,
Μοίρασες 15 Β.Δ., μία σε κάθε τμήμα, για τα στοιχεία των εργαζομένων
υποθέτω ότι θα κάνεις import τα στοιχεία αυτά σε μία άλλη Β.Δ.

Στην άλλη Β.Δ., που θα κάνεις import τα πεδία, θα έχεις ένα πίνακα με τα τμήματα.
Με βάση αυτό που έγραψε ο Γιώργος για την τιμή του πεδίου, αντικατέστησε
στο Combo15 στην ιδιότητα VALUE LIST, αναλογα με τις τιμές που έχεις στον πίνακα
τμήματα.

Έχεις δίκιο για το σφάλμα, σου ξαναστέλνω διορθωμένη την Β.Δ.

[kapetang]

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

Μάνο, στην επισυναπτόμενη ΒΔ πρόσθεσα μία φόρμα (Form1) με την οποία θα μπορούσαμε να έχουμε κάπως πιο αυτόματα την επιθυμητή ενημέρωση.

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

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

[gaz_manos]

Γιώργο καλημέρα.
Ο τρόπος σου μου αρέσει αρκετά.
Θέλω όμως τα φώτα σου.
Που μπορώ να βρω με ποιό τρόπο υλοποιείται αυτό που έκανες;
Για να μπορέσω να το προσαρμόσω στα δικά μου δεδομένα.

[kapetang]

Μάνο καλημέρα

Αφού φορτώσεις τη ΒΔ που ανέβασα πάτησε Alt+F11 για να δεις τον κώδικα.

[gaz_manos]

Private Sub cmdUpdate_Click()
Dim strSQL As String
On Error GoTo Err_Hadle
If Not (IsNull(Me.txtTable) Or IsNull(Me.txtTmima)) Then
strSQL = "UPDate " & Me.txtTable & " SET Tmima='" & Me.txtTmima & "';"
CurrentDb.Execute strSQL
MsgBox "Ç åíçìÝñùóç ïëïêëçñþèçêå"
End If

Exit Sub
Err_Hadle:
MsgBox "Error " & Err.Number & vbCrLf & Err.Description
End Sub
Αυτός είναι ο κώδικάς;
Που φαίνεται οτι το όνομα του πίνακα και το όνομα του πεδίου;