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

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

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

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

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

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

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

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

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

 

 

محذوف.rarFetching info...

تم تعديل بواسطه ابو زاهر
قام بنشر (معدل)
  في 28‏/10‏/2018 at 19:04, ابو ياسين المشولي said:
Expand  

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

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

 

تم تعديل بواسطه ابو زاهر
قام بنشر (معدل)

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

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

Call ZR_9_Click

 

 

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

بنفس المشكله

تم تعديل بواسطه ابو ياسين المشولي
قام بنشر
  في 28‏/10‏/2018 at 20:18, ابو زاهر said:

للرفع

Expand  

جرب هذا

        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
قام بنشر
  في 28‏/10‏/2018 at 22:07, ابو ياسين المشولي 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

 

Expand  

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

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

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