ما المشكله في هذا الكود

[AmirAdams]

Private Sub Log_in_Click()
On Error Resume Next
'---------------------------------------------------------------------
'     If You Are Using Office 2010-2013-2016                         |
'     Microsoft Office 14.0 Access database engine Object Library    |
'     Dim rst As DAO.Recordset                                       |
'---------------------------------------------------------------------
Dim rst As DAO.Recordset
Strdao.Open "Table2_MoveUsers", CurrentProject.Connection, adOpenDynamic, adLockOptimistic, adCmdTable
Strdao.AddNew
Strdao!Code_Emp = Me.Coder
Strdao!Nam_Emp = Me.NameUser
Strdao!UserName = Me.UserName
Strdao!Passowred = Me.Passore
Strdao!Data_in = Me.DatIn
Strdao!Tim_in = Me.Time_In
Strdao!Tim_Out = Me.TimOut
Strdao!IP_Compuoter = Me.IpComp
Strdao!Nam_Compuoter = Me.Name_Comp
Strdao!PicPath1 = Me.LinkPhoto
Strdao.Update
Strdao.Close
Set Strdao = Nothing
Me.Coder = ""
Me.NameUser = ""
Me.UserName = ""
Me.Passore = ""
Me.DatIn = ""
Me.Time_In = ""
Me.TimOut = ""
Me.IpComp = ""
Me.Name_Comp = ""
Me.LinkPhoto = ""
Me.Coder.SetFocus
Forms!User_Login.Form.Requery
DoCmd.Close
DoCmd.OpenForm "Form001_MainScareen"
End Sub

السلام عليكم اخواتي الكرام

هذا الكود تم استخدامه لنقل محتويات نموذج غير منضم الى الجدول

كان يعمل على اوفيس 2007 100% وعند نقل الكود الى اوفيس 2010 طلب اضافة الاداء  Microsoft DAO 3.6 Object Library ولكن اوفيس 2010 لايدعمها وتم تعديل الاداة الى  Microsoft Office 14.0 Access database engine Object Library

ولم تفلح معي

فما الحل بارك الله فيكم

[essam rabea]

أ.AmirAdams

جرب تغيير 

Dim rst As DAO.Recordset

الى 

Dim Strdao As DAO.Recordset

او ارفق مثال

تم تعديل ديسمبر 25, 2019 بواسطه essam rabea