[ Πίνακες ] Προσάρτηση σε Πίνακα

[mdragon]

Καλημέρα σε όλους,

ανεβάζω την βάση με το επιθυμητό αποτέλεσμα το οποίο προκύπτει μετά από 1 ερώτημα προσάρτησης και 1 ερώτημα ενημέρωσης.
Φοβάμαι βέβαια ότι έχω πάει μέσω "Τρικάλων" .
Οποιαδήποτε διόρθωση θεμιτή.

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




Ευχαριστώ,
Μάρω

[tsgiannis]

Υποθέτω ότι ψάχνεις για κάτι σαν και αυτό
Σε κάθε ΕΡΓΟ του κάθε πελάτη δημιουργούνται βήματα αποκλειστικά για το κάθε έργο
Απο εκεί και πέρα το παραμετροποιείς όπως θες.

[mdragon]

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




Φιλικά,
Μάρω

[mdragon]

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

Private Sub TaskID_AfterUpdate()
Dim strSQL As String
strSQL = vbNullString
strSQL = "INSERT INTO ClientTaskSteps ( ClientTaskID, TaskID )" _
& "SELECT " & Me.ID & " as ClientTaskID,[1 ΕΡΓΟ ΛΙΣΤΑ ΕΝΕΡΓΕΙΩΝ].idaepo " _
& " FROM [1 ΕΡΓΟ ΛΙΣΤΑ ΕΝΕΡΓΕΙΩΝ] " _
& " WHERE ((([1 ΕΡΓΟ ΛΙΣΤΑ ΕΝΕΡΓΕΙΩΝ].IdErgon)=" & Me.TaskID & "));"

DoCmd.RunSQL (strSQL)
End Sub

ώστε να μου εμφανίζει στον πίνακα
ClientTaskSteps και τον ClientID
για να μου είναι εύκολο να βλέπω τα βήματα εργασιών με βάση τον πελάτη.


Ευχαριστώ,
Μάρω

[tsgiannis]

Κανονικά δεν το χρειάζεται καθώς παραβιάζεις τους κανόνες της κανονικοποίησης.

[mdragon]

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

Κανονικά δεν το χρειάζεται καθώς παραβιάζεις τους κανόνες της κανονικοποίησης.

Private Sub TaskID_AfterUpdate()
Dim strSQL As String
strSQL = vbNullString
strSQL = "INSERT INTO ClientTaskSteps ( ClientTaskID, TaskID,idaep,Project,ClientID )" _
& "SELECT " & Me.ID & " as ClientTaskID,[1 ΕΡΓΟ ΛΙΣΤΑ ΕΝΕΡΓΕΙΩΝ].idaepo,[1 ΕΡΓΟ ΛΙΣΤΑ ΕΝΕΡΓΕΙΩΝ].idaep,[1 ΕΡΓΟ ΛΙΣΤΑ ΕΝΕΡΓΕΙΩΝ].Project,[ClientTasks].ClientID " _
& " FROM [1 ΕΡΓΟ ΛΙΣΤΑ ΕΝΕΡΓΕΙΩΝ] " _
& " WHERE ((([1 ΕΡΓΟ ΛΙΣΤΑ ΕΝΕΡΓΕΙΩΝ].IdErgon)=" & Me.TaskID & "));"

DoCmd.RunSQL (strSQL)
End Sub

Το έκανα έτσι και δουλεύει ... είναι σωστό όμως????


Ευχαριστώ,
Μάρω

[tsgiannis]

"Σωστό" ας πούμε ότι είναι αλλά είναι "πλεονεξία"
Το ClientID είναι συνδεδεμένο με το το ClientTaskID οπότε απλώς δεν χρειάζεται.
Φυσικά θα δουλέψει αλλά ουσιαστικά "παρακάμπτεις" την φιλοσοφία ότι το έργο σου είναι "κλειδωμένο" στον Πελάτη και τα βήματα είναι κλειδωμένα στο έργο
Το ClientID Μπορείς να το πάρεις απο Query
TaskStep <--> ClientTask <--> Client
Δες πως έχω κάνει το Linking των Subforms

[mdragon]

Να 'σαι καλά

[mdragon]

Καλησπέρα,
μία τελευταία ερώτηση !!!
Έστω ότι στην φόρμα ClientTasks έχω προσθέσει το πεδίο StepTransfer
γίνεται μετά το μήνυμα της προσάρτησης με το ΝΑΙ και αφού μου μεταφέρει τα βήματα στην ClientTaskSteps το StepTransfer να παίρνει την τιμή ok αλλιώς να παραμένει κενό???

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

Private Sub TaskID_AfterUpdate()
Dim strSQL As String
strSQL = vbNullString
strSQL = "INSERT INTO ClientTaskSteps ( ClientTaskID, TaskID )" _
& "SELECT " & Me.ID & " as ClientTaskID,[1 ΕΡΓΟ ΛΙΣΤΑ ΕΝΕΡΓΕΙΩΝ].idaepo " _
& " FROM [1 ΕΡΓΟ ΛΙΣΤΑ ΕΝΕΡΓΕΙΩΝ] " _
& " WHERE ((([1 ΕΡΓΟ ΛΙΣΤΑ ΕΝΕΡΓΕΙΩΝ].IdErgon)=" & Me.TaskID & "));"

DoCmd.RunSQL (strSQL)
End Sub

Επισυνάπτω φώτο



Ευχαριστώ,
Μάρω

[tsgiannis]

Καντο Boolean ..