런타임 오류 '3061'매개 변수가 너무 적습니다. 예상 됨 8

Question

T_Bickets라는 테이블에 데이터를 추가하는 VBA 코드를 만들려고합니다.

아래 코드를 사용하고 있습니다.

Function addticketScheduleChange() 
Dim route As String 
route = InputBox("Please enter the URL for the ticket:", "Schedule Review") 
Set db = CurrentDb 
Dim frm As Form 
Set frm = Form_Frm_View_Team 

sSQL = "Insert INTO T_Tickets ([CSA Login],[Team Manager],[Schedule Description],[WF Shift Pattern],[Mytime Schedule Description],[Shift Pattern Description],[Mytime Description Code],[Type of Ticket],[Resolved?],[Date Submited],[Ticket Link])" _ 
& "Select " _ 
& "frm.[CSA Login]" & ", " _ 
& "frm.[Team Manager]" & ", " _ 
& "frm.[Schedule Description]" & ", " _ 
& "frm.[CSSM SPD]" & ", " _ 
& "frm.[Mytime Descrription]" & ", " _ 
& "frm.[Shift Pattern Descr]" & ", " _ 
& "frm.[MytimeDescriptionCode]" & ", " _ 
& "'Schedule Change'" & ", " _ 
& False & ", " _ 
& "Now()" & ", " _ 
& "route" 
db.Execute sSQL 
MsgBox ("Record saved.") 

End Function 

도움을 주시면 감사하겠습니다.

Answer 1

이 시도 :

sSQL = "Insert INTO T_Tickets ([CSA Login],[Team Manager],[Schedule Description],[WF Shift Pattern],[Mytime Schedule Description],[Shift Pattern Description],[Mytime Description Code],[Type of Ticket],[Resolved?],[Date Submited],[Ticket Link]) " _ 
& "Values (" _ 
& "'" & frm.[CSA Login] & "'," _ 
& "'" & frm.[Team Manager] & "'," _ 
& "'" & frm.[Schedule Description] & "'," _ 
& "'" & frm.[CSSM SPD] & "'," _ 
& "'" & frm.[Mytime Descrription] & "'," _ 
& "'" & frm.[Shift Pattern Descr] & "'," _ 
& "'" & frm.[MytimeDescriptionCode] & "'," _ 
& "'Schedule Change'," _ 
& " False, " _ 
& " Now(), " _ 
& "'" & route & "')"