Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   [ Πίνακες ] Προσάρτηση σε Πίνακα (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/5855-prosartisi-se-pinaka.html)

mdragon 16-04-21 10:06

Καλημέρα σε όλους,
Παράθεση:

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




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

tsgiannis 16-04-21 12:40

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

mdragon 17-04-21 22:51

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




Φιλικά,
Μάρω

mdragon 19-04-21 00:19

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

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 19-04-21 07:42

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

mdragon 19-04-21 16:37

Παράθεση:

Αρχική Δημοσίευση από tsgiannis (Μήνυμα 32550)
Κανονικά δεν το χρειάζεται καθώς παραβιάζεις τους κανόνες της κανονικοποίησης.

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 20-04-21 10:03

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

mdragon 20-04-21 15:14

Να 'σαι καλά
:handshake:

mdragon 20-04-21 16:01

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

Παράθεση:

Αρχική Δημοσίευση από mdragon (Μήνυμα 32548)
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 20-04-21 23:26

Καντο Boolean ..


Η ώρα είναι 17:12.

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


Search Engine Optimization by vBSEO 3.3.2