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

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

قام بنشر (معدل)

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

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

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

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

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

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

 

 

محذوف.rar

تم تعديل بواسطه ابو زاهر
قام بنشر
1 دقيقه مضت, ابو ياسين المشولي said:

لم الحظ شي

ادخل اربعه او 5 سجلات 

قام بنشر (معدل)
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