Mavila,
I write to Excel or Access using as statement like this:
UPDATE [Sheet1$] SET [FullNameX]='Joe',[AgeX]='23',[GenderX]='Male' WHERE [SSNX]='1234'
And develop that string using:
Function fcnGetFFDataUpdateStrSQL(oDoc As Document, strTableName As String, bExtractFileName As Boolean, strKeyField As String, strKeyFieldVal As String, _
Optional bExcel As Boolean = False) As String
Dim oFF_FormData As FormField
Dim strSet As String
Dim lngFFIndex As Long
Dim strFF_Data As String
'Initialize SQL statement variable values.
strSet = vbNullString
'Extract the document FormField control data.
For lngFFIndex = 1 To oDoc.FormFields.Count
Set oFF_FormData = oDoc.FormFields(lngFFIndex)
If Not oFF_FormData.Name = strKeyField Then
strFF_Data = oFF_FormData.Result
strFF_Data = Replace(strFF_Data, Chr(39), Chr(39) + Chr(39))
strSet = strSet & "[" & oFF_FormData.Name & "]='" & strFF_Data & "',"
End If
Next lngFFIndex
If bExtractFileName Then
strSet = strSet & "[Record Name]='" & oDoc.Name & "'"
Else
strSet = Left(strSet, Len(strSet) - 1)
End If
fcnGetFFDataUpdateStrSQL = "UPDATE [" & strTableName & "$] SET " & strSet & " WHERE [" & strKeyField & "]='" & strKeyFieldVal & "'"
CleanUp:
Set oFF_FormData = Nothing
lbl_Exit:
Exit Function
End Function
Could it be the parens e.g. "(" and ")"