اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

التخلص من ظهور كلمه محذوف بالسجلات


النجاشي

الردود الموصى بها

السلام عليكم ورحمه الله وبركاته

احبتي  الكرام عندما ادخل اصناف بالفاتوره اربع او خمسه واعمل حفظ 

تظهر كلمه محذوف بالسجلات بالفرعي

كيف اتخلص من ذالك بعدم ظهور هذه المشكله غلبتني 

ملاحظه بعد ادخال رقم الصنف اضغط انتر لكي يدرج بالفاتوره

تحياتي لكممحذوف.rar

 

 

محذوف.rar

تم تعديل بواسطه ابو زاهر
رابط هذا التعليق
شارك

7 دقائق مضت, ابو ياسين المشولي said:

الفيديو بيني وبنك

bandicam 2018-10-28 22-01-58-379.rar

صحيح بالفديو اراه كويس ارجو من الاخوه يجربوه 

قد تكون مشكله في الجهاز عندي الويندوز 10 الاكسس10 

 

تم تعديل بواسطه ابو زاهر
رابط هذا التعليق
شارك

جرب هذا عند الاغلاق

لعل جهازي سريع ههههههههه

Call ZR_9_Click

 

 

لديك موضوع  هنا

بنفس المشكله

تم تعديل بواسطه ابو ياسين المشولي
رابط هذا التعليق
شارك

3 دقائق مضت, ابو ياسين المشولي said:

جرب هذا عند الاغلاق

لعل جهازي سريع ههههههههه


Call ZR_9_Click

 

لا فائده  جهاي شكله تمام

رابط هذا التعليق
شارك

1 ساعه مضت, ابو زاهر said:

للرفع

جرب هذا

        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
Dim Q As Recordset
Set Q = CurrentDb.OpenRecordset("SELECT * FROM HRR;")
While Not Q.EOF
'If Q!Xsave = False Then
Me.TB.Visible = False
Q.Delete
'End If
Q.MoveNext
Wend

TB.Requery
Me.TB.Visible = True

 

  • Thanks 1
رابط هذا التعليق
شارك

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

جرب هذا


        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
Dim Q As Recordset
Set Q = CurrentDb.OpenRecordset("SELECT * FROM HRR;")
While Not Q.EOF
'If Q!Xsave = False Then
Me.TB.Visible = False
Q.Delete
'End If
Q.MoveNext
Wend

TB.Requery
Me.TB.Visible = True

 

الله يبارك فيك شغل محترفين 

الان كذا ممتاز شكرا إليك يابو ياسين

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information