not in edit list

[Andyjones]

Private Sub cboOurPlayer_NotInList(NewData As String, Response As Integer)


Dim strSQL1 As String
Dim i As Integer
Dim Msg As String

'Exit this sub if the combo box is cleared
If NewData = "" Then Exit Sub

Msg = "'" & NewData & "' The Player is not currently in the list." & vbCr & vbCr
Msg = Msg & "do you want to add it ?"

i = MsgBox(Msg, vbQuestion + vbYesNo, "This is a new Player...")
If i = vbYes Then
strSQL1 = "Insert Into tblPlayers [PlayerFirstName] & " " & [PlayerLastName _
"values ('" & NewData & "');"

CurrentDb.Execute strSQL1, dbFailOnError
Response = acDataErrAdded

End If

End Sub

Highlighted in red i get a complie error msg. pls advise why it wont work

[alansidman]

I believe that your quotation marks are misplaced. Look at Allen Browne's solution

http://allenbrowne.com/ser-27.html

Alan

[AccessMSSQL]

Your insert statement is incorrect. You can't concatenate fields on the insert side of the statement.

I'm assuming that your selected value has the first and last name concatenated together?
If so, you need to parse the first and last name out of NewData

Dim sName() as string
sName = split(NewData)
strSQL1 = "INSERT INTO tblPlayers (PlayerFirstName, PlayerLastName) VALUES ('" & sName(0) & "','" & sName(1) & "');"

You may need to do some extra validation if your NewData values have more than 2 names, for instance a middle initial or something.