Can someone please help me with this SQL statement. I keep getting a missing ; at end of statement error:
Private Sub cmdInsert_Click()
Dim counter As Integer
Dim strsql As String
Dim appid As String
appid = Forms![frmAppDkt]![AppCaseID]
strsql = "insert into tbl_aple (aple_name, AppCaseID, Cal, Calatty, FFnumb, Dkt, Atty) Values (client, appid, calendar, code, ff, docket, attorney) from qryffnumb WHERE qryffnumb.docket =" & "'" & Forms("frmclient").List0.Column(2, counter) & "'");"
For counter = 0 To Forms("frmclient").List0.ListCount
If Forms("frmclient").List0.Selected(counter) Then
DoCmd.SetWarnings False
CurrentDb.Execute strsql
End If
Next counter
DoCmd.SetWarnings True
End Sub