Run-time error '3155' ODBC--insert on a linked table ... failed

[daveinchicago]

Dim strSQL As String
If IsNull(Me.Text18) Then
MsgBox "Note not entered!"
Cancel = True
Exit Sub
Else:
End If
strSQL = "Insert Into dbo_COMPLIANCE_ACCT_NOTE(ACCT_CD, ACCT_NOTE) Values ('" & Me.cboAcName & "','" & Me.Text18 & "')"
Debug.Print strSQL
CurrentDb.Execute strSQL, dbFailOnError + dbSeeChanges
Me.sfRULENOTE.Form.Requery


using the above code I am getting a 3155 runtime error. not sure why. any help would be appreciated. thanks.

 

[dhookom]

Can you show us the result of the debug.print (glad to see you are using this)?

I would like to think you are being penalized for not renaming Text18 but that's my world. Does this control possibly contain an apostrophe in the text?

I asked about primary keys in a previous thread but you didn't answer.

Duane
Hook'D on Access
MS Access MVP

 

[daveinchicago]

All the tables have primary keys... sorry.

The problem with this was permissioning on the sql server.

Thank you for your help.. it really is appreciated!!

 

[MazeWorX]

Me.Text18 usually means there's 17 more grrrrrr

just a side note

your if statement ends with no else??

Dim strSQL As String
If IsNull(Me.Text18) Then
MsgBox "Note not entered!"
Cancel = True
Exit Sub
    Else:
    End If
        strSQL = "Insert Into dbo_COMPLIANCE_ACCT_NOTE(ACCT_CD, ACCT_NOTE) Values ('" & Me.cboAcName & "','" & Me.Text18 & "')"
        Debug.Print strSQL
        CurrentDb.Execute strSQL, dbFailOnError + dbSeeChanges
        Me.sfRULENOTE.Form.Requery

possibly this is what was intended?

    Dim strSQL As String
    If IsNull(Me.Text18) Then
        MsgBox "Note not entered!"
        Cancel = True
        Exit Function
    Else
        strSQL = "Insert Into dbo_COMPLIANCE_ACCT_NOTE(ACCT_CD, ACCT_NOTE) Values ('" & Me.cboAcName & "','" & Me.Text18 & "')"
        Debug.Print strSQL
        CurrentDb.Execute strSQL, dbFailOnError + dbSeeChanges
        Me.sfRULENOTE.Form.Requery
    End If

HTH << MaZeWorX >> "I have not failed I have only found ten thousand ways that don't work" <<Edison>>