اذهب الي المحتوي
أوفيسنا

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

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

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

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

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

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

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

تحياتي لكممحذوف.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

 

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information