Θέμα: Πίνακες Προσάρτηση σε Πίνακα

Εμφάνιση ενός μόνο μηνύματος
  #14  
Παλιά 19-04-21, 01:19
mdragon Ο χρήστης mdragon δεν είναι συνδεδεμένος
Όνομα: Μάρω
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 09-03-2010
Περιοχή: Αθήνα
Μηνύματα: 287
Προεπιλογή

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

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
για να μου είναι εύκολο να βλέπω τα βήματα εργασιών με βάση τον πελάτη.


Ευχαριστώ,
Μάρω
Απάντηση με παράθεση