تصحيح كود

[النجاشي]

السلام عليكم  

احبتي اريد تصحيح الكود بالطريقه الصحيحه

     On Error Resume Next
   Call zr_11_Click
   Set Rs = CurrentDb.OpenRecordset("AfwtIar")
         Rs.AddNew
         Rs!Rjmfatwra = Rjmfatwra
        Rs!NoEmp = NoEmp
        Rs!Nwaha = Nwaha
       Rs!Adfah = Adfah
       
         Rs!Alban = Alban
        Rs!Atarih = Atarih
         Rs!namee = namee
         Rs!Aljmali = Me.n1
         Rs!Asafi = Me.n2

         Rs.Update

Rjmfatwra = Null
NoEmp = Null
Adfah = Null
Nwaha = Null
Namamila = Null
Alban = Null
Atarih = Null
'namee = Null
Set Rs = Nothing

            DoCmd.SetWarnings False
                DoCmd.OpenQuery "ÇáÍÇÞ"
            DoCmd.SetWarnings True
''
'On Error Resume Next
DoCmd.SetWarnings False
Dim Q As Recordset 'åÐÇ ÇáßæÏ íáÛí ÇáÎÝÙ ÇáÊáÞÇÆ ÚäÏ ÇáÊÑÇÌÚ æ'
Set Q = CurrentDb.OpenRecordset("SELECT * from hrr;")
While Not Q.EOF
'If Q!Xsave = False Then
Q.Delete
'End If
Q.MoveNext
TB.Requery
Wend
DoCmd.SetWarnings True
 

تحياتي اليكم

 

 

[ابو ياسين المشولي]

الاخ ابو زاهر

عند كتابه الكود وفيه اسم عربي عند النسخ غير اللغه الى عربي وانسخ

وعند كتابه كود اضغط على <>

الموجود بجنب خط

[النجاشي]

13 ساعات مضت, ابو ياسين المشولي said:

الاخ ابو زاهر

عند كتابه الكود وفيه اسم عربي عند النسخ غير اللغه الى عربي وانسخ

وعند كتابه كود اضغط على <>

الموجود بجنب خط

راح ارفقته أن شاء الله بمثال في الليل