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

[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

[tsgiannis]

Δεν στο εξήγησα καλά
To "Boolean" πήγαινε στον πίνακα και στην σχεδίαση του..όπου απλώς πρέπει να προσθέσεις το πεδίο (StepTransfer) ως Boolean.
Απο εκεί και πέρα το StrSQL είναι και θα είναι πάντα String.
Αρχίζεις και προσθέτεις πλεονάζουσα πεδία...αν και είναι 1 σενάριο που δουλεύει σε επίπεδο δομής δεν είναι σωστό.
https://docs.microsoft.com/en-us/off...on-description

[mdragon]

Δεν το κατάλαβα ποτέ.
Είπαμε είμαι σε νηπιακή φάση όσον αφορά την vba.
Σε ευχαριστώ όπως και να έχει για τον χρόνο σου.



Φιλικά,