مشكلة بعد عمل كويري تحديث

[أبو بسنت وتسنيم]

انا عامل كويري تحديث وعامل كود 

DoCmd.SetWarnings False
DoCmd.OpenQuery "تحديث"
DoCmd.SetWarnings True

مش عارف اعمل ئية ممكن مساعدة

[أبو بسنت وتسنيم]

ممكن مساعده

 

[ابو محمد2]

السلام عليكم

ارفق مثال اخي الكريم وستجد المساعدة ان شاء الله

بالتوفيق

[أبو بسنت وتسنيم]

المراد تحديثة رصيد_الاجاذات_الاعتيادية_المرحلة من حقل إجمالي_رصيد_الاجاذات ولو امكن لو فية طريقه بعد ما يطلب الموظف عدد ايام تكون الخانة صفر بتعتها 

شكرا

New Microsoft Access قاعدة بيانات.rar

[كرار صبري _ أبو جنى]

الكود يعمل تمام ...

بعد تحديث الحقل عدد_الايام_المستحقة_لهذا_العام ...

[وسيم الحمادة]

ألكود يعمل

[أبو بسنت وتسنيم]

3 ساعات مضت, karrar sabry said:

الكود يعمل تمام ...

بعد تحديث الحقل عدد_الايام_المستحقة_لهذا_العام ...

استاذي انا عاوز حقل الجمالي الرصيد المرحل يخود الي موجود في حقل اجماليرصيد الاجاذات  ياخود الرقم اليفية ويحدث المرحل

 

[ابو محمد2]

السلام عليكم

مثل ما قال الاخ كرار الكود يعمل

بالتوفيق

 

[كرار صبري _ أبو جنى]

منذ ساعه, أبو بسنت وتسنيم said:

استاذي انا عاوز حقل الجمالي الرصيد المرحل يخود الي موجود في حقل اجماليرصيد الاجاذات  ياخود الرقم اليفية ويحدث المرحل

ممكن توضيح اكثر لاني ما فهمت المطلوب ...

 

[jjafferr]

السلام عليكم شباب 

 

تعليقي هنا فقط للرسالة التي في الصورة: تعارض الكتابة ، والرابط التالي يشرح السبب ، وطريقة تفاديه:

http://www.officena.net/ib/topic/66025-لايمكنني-خزن-قيد-بالكامل-في-برنامج-فاتورة-مبيعات/?do=findComment&comment=429754

 

جعفر

[Elsayed Bn Gemy]

السلام عليكم اخى الكريم مشاركة مع اساتذتى الافاضل

ما رايك باستعمال لغة DAO بعيد عن مشاكل الاستعلامات ومربعات النصوص المنضمة ومشاكل النماذج 

انن شئت اكمل لك المرفق

 

[jjafferr]

5 دقائق مضت, السيد جمال السيد said:

ما رايك باستعمال لغة DAO

دي حركة جامدة اوي يا سيد جمال 

 

جعفر

[Elsayed Bn Gemy]

11 دقائق مضت, jjafferr said:

دي حركة جامدة اوي يا سيد جمال 

 

جعفر

تلامذتك يا كبير

[jjafferr]

[أبو بسنت وتسنيم]

24 دقائق مضت, السيد جمال السيد said:

السلام عليكم اخى الكريم مشاركة مع اساتذتى الافاضل

ما رايك باستعمال لغة DAO بعيد عن مشاكل الاستعلامات ومربعات النصوص المنضمة ومشاكل النماذج 

انن شئت اكمل لك المرفق

 

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

[Elsayed Bn Gemy]

ان شاء الله جارى العمل عليها فصبر جميل

[Elsayed Bn Gemy]

اخى الكريم شرح الاكواد

كود الاضافة

'اضافه سجل جيد للجدول
   If MsgBox("هل تريد اضافه السجل" & vbCrLf & "", vbYesNo, " اضافة") = vbYes Then
Dim Rs As DAO.Recordset
'اسم الجدول
   Set Rs = CurrentDb.OpenRecordset("الموظفون")
         
         'اضافه البيانات من مربعات النص للحقول في الجدول
         Rs.AddNew
         Rs!رقم_السجل = رقم_السجل
         Rs!الاسم = الاسم
         Rs!إجمالي_رصيد_الاجاذات_الاعتيادية_المرحلة = إجمالي_رصيد_الاجاذات_الاعتيادية_المرحلة
         Rs!عدد_الايام_المستحقة_لهذا_العام = عدد_الايام_المستحقة_لهذا_العام
         Rs!ألأيام_المطلوبة_لهذا_العام = ألأيام_المطلوبة_لهذا_العام
         Rs!الرصيد_المتبقي_لهاذا_العام = الرصيد_المتبقي_لهاذا_العام
         Rs!إجمالي_رصيد_الاجاذات = إجمالي_رصيد_الاجاذات
         Rs!عدد_أيام_العارضة_لهذا_العام = عدد_أيام_العارضة_لهذا_العام
         Rs!عدد_الايام_المطلوب = عدد_الايام_المطلوب
         Rs!باقي_أيام_العارضة = باقي_أيام_العارضة
         Rs.Update



End If
Set Rs = Nothing

كود البحث

'جلب سجل من الجدول
Dim Rs As DAO.Recordset
Dim Rs_search As String
'الرقم يجب وضعه
If IsNull(رقم_السجل) = True Then
MsgBox "ادخل رقم السجل "
Exit Sub
End If
'اسم الجدول
Set Rs = CurrentDb.OpenRecordset("الموظفون", dbOpenDynaset)
'البحث بالرقم المدخل في مربع النص
Rs_search = "[id] =" & ID
Rs.FindFirst (Rs_search)

If Rs.NoMatch Then
MsgBox "لا يوجد سجل"
Cancel = True
Else
Rs.Edit
        'مربعات النص تساوي القيم من الجدول
        رقم_السجل = Rs!رقم_السجل
        الاسم = Rs!الاسم
        إجمالي_رصيد_الاجاذات_الاعتيادية_المرحلة = Rs!إجمالي_رصيد_الاجاذات_الاعتيادية_المرحلة
        عدد_الايام_المستحقة_لهذا_العام = Rs!عدد_الايام_المستحقة_لهذا_العام
        ألأيام_المطلوبة_لهذا_العام = Rs!ألأيام_المطلوبة_لهذا_العام
        الرصيد_المتبقي_لهاذا_العام = Rs!الرصيد_المتبقي_لهاذا_العام
        إجمالي_رصيد_الاجاذات = Rs!إجمالي_رصيد_الاجاذات
        عدد_أيام_العارضة_لهذا_العام = Rs!عدد_أيام_العارضة_لهذا_العام
        عدد_الايام_المطلوب = Rs!عدد_الايام_المطلوب
        باقي_أيام_العارضة = Rs!باقي_أيام_العارضة
End If


Rs.Close
Set Rs = Nothing

كود التعديل

'تعديل سجل موجود في الجدول
   If MsgBox("هل تريد تعديل السجل" & vbCrLf & "", vbYesNo, " تعديل") = vbYes Then
Dim Rs As DAO.Recordset
'اسم الجدول
   Set Rs = CurrentDb.OpenRecordset("الموظفون")
   'البحث عن رقم السجل المعدل
   Rs.MoveFirst
   Do Until Rs.EOF
   'اذا وجد السجل
    If Rs!ID = ID Then
    'تحريره
         Rs.Edit
         Rs!رقم_السجل = رقم_السجل
         Rs!الاسم = الاسم
         Rs!إجمالي_رصيد_الاجاذات_الاعتيادية_المرحلة = إجمالي_رصيد_الاجاذات_الاعتيادية_المرحلة
         Rs!عدد_الايام_المستحقة_لهذا_العام = عدد_الايام_المستحقة_لهذا_العام
         Rs!ألأيام_المطلوبة_لهذا_العام = ألأيام_المطلوبة_لهذا_العام
         Rs!الرصيد_المتبقي_لهاذا_العام = الرصيد_المتبقي_لهاذا_العام
         Rs!إجمالي_رصيد_الاجاذات = إجمالي_رصيد_الاجاذات
         Rs!عدد_أيام_العارضة_لهذا_العام = عدد_أيام_العارضة_لهذا_العام
         Rs!عدد_الايام_المطلوب = عدد_الايام_المطلوب
         Rs!باقي_أيام_العارضة = باقي_أيام_العارضة
         Rs.Update


   End If
   Rs.MoveNext
   Loop
End If
Set Rs = Nothing

شكل المرفق النهائى

 

المرفق اتمنى ان ينال اعجابكم

ADD-EDIT-SEARCH-ByDAO.rar

[أبو بسنت وتسنيم]

شكرا علي مجهودك ولاكن فية اعطال فية

[Elsayed Bn Gemy]

اخى الكريم ما وجدته ان حقل رقم السجل مفتاح اسااسى وانك تتعامل من خلاله مع بيانات الموظفين لذل اعتمد المرفق على ذلك فقط اذا اردت اضافة جديد قم بتعبئة البيانات بما فيها رقم السجل

اذا اردت البحث فقط اكتب رقم السجل ثم اضغط بحث لجلب البيانات وعند جلب البيانات واردت تعديلها فقط قم بالتعديل ثم اضغط تعديل

اما بالنسبة لمربعات النصوص المحسوبة فقمت بالغاء تمكينها وقمت بوضع اكواد للحساب فى حدث بعد التحديث لاخر مربع نص مشترك فى العمليه الحسابية

ما اردته هو ان اساعدك او ياخذ احد ذلك ليستفيد به فقط عدل فى الاكواد كيفما تشاء المهم ان تصل الفكرة

[أبو بسنت وتسنيم]

اولا مشكورا جزيلا والله مجهود رائع من حضرتك وشكرا لتقديرك ومساعدك ليا 

ثانيا المشكلة هيا لا استطيع عمل تعديل 

[Elsayed Bn Gemy]

فقط اكتب رقم السجل المراد تعديله ثم اضغط بحث سيجلب لك بيانات السجل عدل فيهما كيفما تشاء ثم اضغط تعديل وانتهى الامر