[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

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


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