أبو بسنت وتسنيم قام بنشر فبراير 17, 2016 مشاركة قام بنشر فبراير 17, 2016 انا عامل كويري تحديث وعامل كود DoCmd.SetWarnings False DoCmd.OpenQuery "تحديث" DoCmd.SetWarnings True مش عارف اعمل ئية ممكن مساعدة رابط هذا التعليق شارك More sharing options...
أبو بسنت وتسنيم قام بنشر فبراير 18, 2016 الكاتب مشاركة قام بنشر فبراير 18, 2016 ممكن مساعده رابط هذا التعليق شارك More sharing options...
ابو محمد2 قام بنشر فبراير 18, 2016 مشاركة قام بنشر فبراير 18, 2016 السلام عليكم ارفق مثال اخي الكريم وستجد المساعدة ان شاء الله بالتوفيق رابط هذا التعليق شارك More sharing options...
أبو بسنت وتسنيم قام بنشر فبراير 18, 2016 الكاتب مشاركة قام بنشر فبراير 18, 2016 المراد تحديثة رصيد_الاجاذات_الاعتيادية_المرحلة من حقل إجمالي_رصيد_الاجاذات ولو امكن لو فية طريقه بعد ما يطلب الموظف عدد ايام تكون الخانة صفر بتعتها شكرا New Microsoft Access قاعدة بيانات.rar رابط هذا التعليق شارك More sharing options...
كرار صبري _ أبو جنى قام بنشر فبراير 18, 2016 مشاركة قام بنشر فبراير 18, 2016 الكود يعمل تمام ... بعد تحديث الحقل عدد_الايام_المستحقة_لهذا_العام ... رابط هذا التعليق شارك More sharing options...
وسيم الحمادة قام بنشر فبراير 18, 2016 مشاركة قام بنشر فبراير 18, 2016 ألكود يعمل رابط هذا التعليق شارك More sharing options...
أبو بسنت وتسنيم قام بنشر فبراير 18, 2016 الكاتب مشاركة قام بنشر فبراير 18, 2016 3 ساعات مضت, karrar sabry said: الكود يعمل تمام ... بعد تحديث الحقل عدد_الايام_المستحقة_لهذا_العام ... استاذي انا عاوز حقل الجمالي الرصيد المرحل يخود الي موجود في حقل اجماليرصيد الاجاذات ياخود الرقم اليفية ويحدث المرحل رابط هذا التعليق شارك More sharing options...
ابو محمد2 قام بنشر فبراير 18, 2016 مشاركة قام بنشر فبراير 18, 2016 السلام عليكم مثل ما قال الاخ كرار الكود يعمل بالتوفيق رابط هذا التعليق شارك More sharing options...
كرار صبري _ أبو جنى قام بنشر فبراير 18, 2016 مشاركة قام بنشر فبراير 18, 2016 منذ ساعه, أبو بسنت وتسنيم said: استاذي انا عاوز حقل الجمالي الرصيد المرحل يخود الي موجود في حقل اجماليرصيد الاجاذات ياخود الرقم اليفية ويحدث المرحل ممكن توضيح اكثر لاني ما فهمت المطلوب ... رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 18, 2016 مشاركة قام بنشر فبراير 18, 2016 السلام عليكم شباب تعليقي هنا فقط للرسالة التي في الصورة: تعارض الكتابة ، والرابط التالي يشرح السبب ، وطريقة تفاديه: http://www.officena.net/ib/topic/66025-لايمكنني-خزن-قيد-بالكامل-في-برنامج-فاتورة-مبيعات/?do=findComment&comment=429754 جعفر رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر فبراير 18, 2016 مشاركة قام بنشر فبراير 18, 2016 السلام عليكم اخى الكريم مشاركة مع اساتذتى الافاضل ما رايك باستعمال لغة DAO بعيد عن مشاكل الاستعلامات ومربعات النصوص المنضمة ومشاكل النماذج انن شئت اكمل لك المرفق رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 18, 2016 مشاركة قام بنشر فبراير 18, 2016 5 دقائق مضت, السيد جمال السيد said: ما رايك باستعمال لغة DAO دي حركة جامدة اوي يا سيد جمال جعفر رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر فبراير 18, 2016 مشاركة قام بنشر فبراير 18, 2016 11 دقائق مضت, jjafferr said: دي حركة جامدة اوي يا سيد جمال جعفر تلامذتك يا كبير رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 18, 2016 مشاركة قام بنشر فبراير 18, 2016 رابط هذا التعليق شارك More sharing options...
أبو بسنت وتسنيم قام بنشر فبراير 18, 2016 الكاتب مشاركة قام بنشر فبراير 18, 2016 24 دقائق مضت, السيد جمال السيد said: السلام عليكم اخى الكريم مشاركة مع اساتذتى الافاضل ما رايك باستعمال لغة DAO بعيد عن مشاكل الاستعلامات ومربعات النصوص المنضمة ومشاكل النماذج انن شئت اكمل لك المرفق ممكن تبعتهالي لو سمحت اطلع عيها رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر فبراير 18, 2016 مشاركة قام بنشر فبراير 18, 2016 ان شاء الله جارى العمل عليها فصبر جميل رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر فبراير 18, 2016 مشاركة قام بنشر فبراير 18, 2016 اخى الكريم شرح الاكواد كود الاضافة 'اضافه سجل جيد للجدول 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 1 رابط هذا التعليق شارك More sharing options...
أبو بسنت وتسنيم قام بنشر فبراير 18, 2016 الكاتب مشاركة قام بنشر فبراير 18, 2016 شكرا علي مجهودك ولاكن فية اعطال فية رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر فبراير 18, 2016 مشاركة قام بنشر فبراير 18, 2016 اخى الكريم ما وجدته ان حقل رقم السجل مفتاح اسااسى وانك تتعامل من خلاله مع بيانات الموظفين لذل اعتمد المرفق على ذلك فقط اذا اردت اضافة جديد قم بتعبئة البيانات بما فيها رقم السجل اذا اردت البحث فقط اكتب رقم السجل ثم اضغط بحث لجلب البيانات وعند جلب البيانات واردت تعديلها فقط قم بالتعديل ثم اضغط تعديل اما بالنسبة لمربعات النصوص المحسوبة فقمت بالغاء تمكينها وقمت بوضع اكواد للحساب فى حدث بعد التحديث لاخر مربع نص مشترك فى العمليه الحسابية ما اردته هو ان اساعدك او ياخذ احد ذلك ليستفيد به فقط عدل فى الاكواد كيفما تشاء المهم ان تصل الفكرة رابط هذا التعليق شارك More sharing options...
أبو بسنت وتسنيم قام بنشر فبراير 18, 2016 الكاتب مشاركة قام بنشر فبراير 18, 2016 اولا مشكورا جزيلا والله مجهود رائع من حضرتك وشكرا لتقديرك ومساعدك ليا ثانيا المشكلة هيا لا استطيع عمل تعديل رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر فبراير 18, 2016 مشاركة قام بنشر فبراير 18, 2016 فقط اكتب رقم السجل المراد تعديله ثم اضغط بحث سيجلب لك بيانات السجل عدل فيهما كيفما تشاء ثم اضغط تعديل وانتهى الامر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.