Solved Run-time error 3146 - ODBC call failed..

[Ashfaque]

Hi,

Suddenly I facing ODBC call failed issue to store record in a linked table... I had previously stored 3-4 records and there were no issue but this error occurred today. My net connection is also fine MemoID is autonumber field....

Could you please help me.

Dim db As DAO.Database

Dim rst As DAO.Recordset

Set rst = CurrentDb.OpenRecordset("Select * from T_Memos Where MemoREf='" & MemoRef & "'", dbOpenDynaset, dbSeeChanges)

If rst.EOF = True And rst.BOF = True Then
rst.AddNew

'rst!MemoID = Me.MemoID
rst!MemoRef = Me.MemoRef
rst!MemoDate = Me.MemoDate
rst!SalutationE = Me.SalutationE
rst!SalutationA = Me.SalutationA
rst!SubjectLineE = Me.SubjectLineE
rst!SubjectLineA = Me.SubjectLineA
rst!MemoTypeE = Me.MemoTypeE
rst!MemoTypeA = Me.MemoTypeA
rst!Para1E = Me.Para1E
rst!Para1A = Me.Para1A
rst!Para2E = Me.Para2E
rst!Para2A = Me.Para2A
rst!ShukranE = Me.ShukranE
rst!ShukranA = Me.ShukranA
rst!Authority1 = Me.Authority1
rst!Authority2 = Me.Authority2
rst!NB_E = Me.NB_E
rst!NB_A = Me.NB_A
rst!CNo = Nz(Me.CNo, 0)
rst!CName = Me.CName
rst!FromDate = Me.FromDate
rst!ToDate = Me.ToDate
rst!FromDateA = Me.FromDateA
rst!ToDateA = Me.ToDateA
rst!OccasionType = Me.OccasionType
rst!OccasionTypeA = Me.OccasionTypeA

    rst.Update
    rst.Close
    Set rst = Nothing

End If

 

[June7]

If it's a linked table, why do you need recordset to create record? Why not a bound form?

 

[Ashfaque]

If it's a linked table, why do you need recordset to create record? Why not a bound form?

Due to lots of table and records, I am controlling to fetch records to keep the form light weight....

 

[Ashfaque]

Solved : I noticed that Hijri date was not storing in datetime format so I simply changed to nvarchar() and it worked.

Thanks.....