runtime error 3157 odbc update on a linked table failed

[KAMALRAJ.PPS]

I have used below query but not able update the existing record (Sql Linked)...

Private Sub btn_update_Click()


Dim db As Database
Dim Rs As DAO.Recordset
Dim Query As String
Query = "SELECT * FROM dbo_tbl_Controls where Ctrl_Code = " & Me.Ctrl_Code & "AND Ctrl_frm_code = " & Me.Ctrl_Frm_Code
'Query = "SELECT Ctrl_Frm_Code,Ctrl_Code,Ctrl_name,Ctrl_Description ,Ctrl_Caption,Ctrl_Type,Ctrl_NonEditable,Ctrl_Page No,Ctrl_Tab_Order,Ctrl_Tbl_Code,Ctrl_Field_Code,Ct rl_Search_Ref,Ctrl_Search_ReturnControl,Ctrl_Searc hControlCode,Ctrl_Search_Condition,Ctrl_Load_Conne cting_Form,Ctrl_ToolTipText,Ctrl_CaptionControl_Co de,Ctrl_ReferenceControl,Ctrl_MinValue,Ctrl_MaxVal ue,JScript,ctrl_memo_type,Ctrl_Open_Type,Def_Value ,Ctrl_frm_ReturnCtrls,Ctrl_Mandatory,Ctrl_NoScript Trigger,Ctrl_Validation_query,Ctrl_Load_Type,ctrl_ row_no,ctrl_col_no,ctrl_lbl_need FROM dbo_tbl_Controls"
'Set rs = CurrentDb.OpenRecordset("SELECT * FROM dbo_tbl_Controls where Ctrl_Code = Me.Ctrl_Code AND Ctrl_frm_code = Me.Ctrl_Frm_Code", dbOpenDynaset, dbSeeChanges))
Set db = CurrentDb


Set Rs = db.OpenRecordset(Query, dbOpenDynaset, dbSeeChanges)
Rs.Edit
Rs!Counter = Me.Counter.Value
Rs!Ctrl_Frm_Code = Me.Ctrl_Frm_Code.Value
Rs!Ctrl_Code = Me.Ctrl_Code.Value
Rs!Ctrl_name = Me.Ctrl_name.Value
Rs!Ctrl_Description = Me.Ctrl_Description.Value
Rs!Ctrl_Caption = Me.Ctrl_Caption.Value
Rs!Ctrl_Type = Me.Ctrl_Type.Value
Rs!Ctrl_NonEditable = Me.Ctrl_NonEditable.Value
Rs!Ctrl_PageNo = Me.Ctrl_PageNo.Value
Rs!Ctrl_Tab_Order = Me.Ctrl_Tab_Order.Value
Rs!Ctrl_Tbl_Code = Me.Ctrl_Tbl_Code.Value
Rs!Ctrl_Field_Code = Me.Ctrl_Field_Code.Value
Rs!Ctrl_Search_Ref = Me.Ctrl_Search_Ref.Value
Rs!Ctrl_Search_ReturnControl = Me.Ctrl_Search_ReturnControl.Value
Rs!Ctrl_SearchControlCode = Me.Ctrl_SearchControlCode.Value
Rs!Ctrl_Search_Condition = Me.Ctrl_Search_Condition.Value
Rs!Ctrl_Load_Connecting_Form = Me.Ctrl_Load_Connecting_Form.Value
Rs!Ctrl_ToolTipText = Me.Ctrl_ToolTipText.Value
Rs!Ctrl_CaptionControl_Code = Me.Ctrl_CaptionControl_Code.Value
Rs!Ctrl_ReferenceControl = Me.Ctrl_ReferenceControl.Value
Rs!Ctrl_MinValue = Me.Ctrl_MinValue.Value
Rs!Ctrl_MaxValue = Me.Ctrl_MaxValue.Value
Rs!JScript = Me.JScript.Value
Rs!ctrl_memo_type = Me.ctrl_memo_type.Value
Rs!Ctrl_Open_Type = Me.Ctrl_Open_Type.Value
Rs!Def_Value = Me.Def_Value.Value
Rs!Ctrl_frm_ReturnCtrls = Me.Ctrl_frm_ReturnCtrls.Value
Rs!Ctrl_Mandatory = Me.Ctrl_Mandatory.Value
Rs!Ctrl_NoScriptTrigger = Me.Ctrl_NoScriptTrigger.Value
Rs!Ctrl_Validation_query = Me.Ctrl_Validation_query.Value
Rs!Ctrl_Load_Type = Me.Ctrl_Load_Type.Value
Rs!Ctrl_Row_No = Me.Ctrl_Row_No.Value
Rs!Ctrl_Col_No = Me.Ctrl_Col_No.Value
Rs!ctrl_lbl_need = Me.ctrl_lbl_need.Value
Rs.Update
Rs.Close
Set Rs = Nothing
End Sub

[KAMALRAJ.PPS]

runtime error 3157 odbc update on a linked table failed

I have used below query but not able update the existing record (Sql Linked)...

Dim db As Database
Dim Rs As DAO.Recordset
Dim Query As String
Query = "SELECT * FROM dbo_tbl_Controls where Ctrl_Code = " & Me.Ctrl_Code & "AND Ctrl_frm_code = " & Me.Ctrl_Frm_Code
'Query = "SELECT Ctrl_Frm_Code,Ctrl_Code,Ctrl_name,Ctrl_Description ,Ctrl_Caption,Ctrl_Type,Ctrl_NonEditable,Ctrl_Page No,Ctrl_Tab_Order,Ctrl_Tbl_Code,Ctrl_Field_Code,Ct rl_Search_Ref,Ctrl_Search_ReturnControl,Ctrl_Searc hControlCode,Ctrl_Search_Condition,Ctrl_Load_Conne cting_Form,Ctrl_ToolTipText,Ctrl_CaptionControl_Co de,Ctrl_ReferenceControl,Ctrl_MinValue,Ctrl_MaxVal ue,JScript,ctrl_memo_type,Ctrl_Open_Type,Def_Value ,Ctrl_frm_ReturnCtrls,Ctrl_Mandatory,Ctrl_NoScript Trigger,Ctrl_Validation_query,Ctrl_Load_Type,ctrl_ row_no,ctrl_col_no,ctrl_lbl_need FROM dbo_tbl_Controls"
'Set rs = CurrentDb.OpenRecordset("SELECT * FROM dbo_tbl_Controls where Ctrl_Code = Me.Ctrl_Code AND Ctrl_frm_code = Me.Ctrl_Frm_Code", dbOpenDynaset, dbSeeChanges))
Set db = CurrentDb
Set Rs = db.OpenRecordset(Query, dbOpenDynaset, dbSeeChanges)
Rs.Edit
Rs!Counter = Me.Counter.Value
Rs!Ctrl_Frm_Code = Me.Ctrl_Frm_Code.Value
Rs!Ctrl_Code = Me.Ctrl_Code.Value
Rs!Ctrl_name = Me.Ctrl_name.Value
Rs!Ctrl_Description = Me.Ctrl_Description.Value
Rs!Ctrl_Caption = Me.Ctrl_Caption.Value
Rs!Ctrl_Type = Me.Ctrl_Type.Value
Rs!Ctrl_NonEditable = Me.Ctrl_NonEditable.Value
Rs!Ctrl_PageNo = Me.Ctrl_PageNo.Value
Rs!Ctrl_Tab_Order = Me.Ctrl_Tab_Order.Value
Rs!Ctrl_Tbl_Code = Me.Ctrl_Tbl_Code.Value
Rs!Ctrl_Field_Code = Me.Ctrl_Field_Code.Value
Rs!Ctrl_Search_Ref = Me.Ctrl_Search_Ref.Value
Rs!Ctrl_Load_Type = Me.Ctrl_Load_Type.Value
Rs!Ctrl_Row_No = Me.Ctrl_Row_No.Value
Rs!Ctrl_Col_No = Me.Ctrl_Col_No.Value
Rs!ctrl_lbl_need = Me.ctrl_lbl_need.Value
Rs.Update
Rs.Close
Set Rs = Nothing
End Sub

[pbaldy]

Can you edit data directly in the linked table?