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

[mdragon]

run time error
type mismatch

Τι κάνω λάθος???

Private Sub CmdTransferTaskSteps_Click()
Dim intCount As Integer

intCount = DCount("[TaskID]", "[1QryUpdateProjectsCount]")


If Me.StepTransfer = "ok" Then
MsgBox "Τα βήματα εργασίων έχουν ήδη προστεθεί στον πίνακα!", vbOKOnly, "Σφάλμα"
Exit Sub

Else

Dim strSQL As Boolean
strSQL = True

Beep
Dim LResponse As Integer
LResponse = MsgBox("Πρόκειται να προσθέσετε " & intCount & " στοιχεία στον πίνακα!", vbOKCancel, "Προσάρτηση")
If LResponse = vbOK Then


strSQL = "INSERT INTO TblTaskStepsByClient ( ClientTaskID, TaskID,NoProject,Project,ClientID )" _
& "SELECT " & Me.ID & " as ClientTaskID,[TblTasksSteps].IdTaskStep,[TblTasksSteps].NoProject,[TblTasksSteps].Project, clientid" _
& " FROM [TblTasksSteps] " _
& " WHERE ((([TblTasksSteps].TaskID)=" & Me.TaskID & "));"
DoCmd.RunSQL (strSQL)



Me.StepTransfer = "ok"
Else
'Exit Sub
End If

End If

CmdTransferTaskSteps_Exit:
Exit Sub

CmdTransferTaskSteps_Err:
MsgBox Error$
Resume CmdTransferTaskSteps_Exit

End Sub