ابوخليل

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

تفضل sum_time6.rar

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

قاعدة البيانات محمية بكلمة مرور ؟ وعلى كل حال انظر المرفق ، ان كانت بياناتك كاملة data_2.rar

جزاك الله خيرا

تم تحديث المرفق

يبدو انك جمعت بين الطريقتين من غير قصد في اول مشاركة لي يتم اخذ مسار القاعدة ومكان النسخ من مربعي نص تم انشاؤهما داخل النموذج ولكن في مشاركتي الثانية رقم 7 (تعديل وتحديث ) يتم اخذ المسارات من وحدتين نمطيتين ولو تلا حظ ان المسميات واحدة فأنت جمعت بين الطريقتين : أنشأت مربعي نص داخل النموذج + استخدمت الوحدات النمطية وبالمسمى نفسه فحصل التعارض الحل : احذف مربعي النص

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

معذرة هذه هي تفضل sum_time5.rar

شكرا للاستاذ صالح وشكرا للاستاذ كرار سبب تعديل الاستاذ العزيز كرار ان الكود يقوم بتعديل 11 سجل ثم يقف ، فهو قام بجلب عدد السجلات الفعلية الموجودة في الجدول1 ، ولكن يلاحظ ان الترقيم يتم بواسطة حقل داخل النموذج فيجب ان يكون الجدول1 هو مصدر بيانات النموذج هذا تعديل بسيط للمرور على جميع السجلات داخل النموذج DoCmd.GoToRecord , , acFirst Dim i As Integer For i = 1 To Me.Recordset.RecordCount On Error Resume Next Dim x, y As Integer x = 1 If IsNull(x) Then y = i Else y = y + 1 End If Me![num] = Format(y, "0000") On Error Resume Next DoCmd.GoToRecord , , acNext Next i

تفضل تم التحويل db1.rar

ستطيع تحقيق ذلك بجعل الاستعلام مصدر بيانات التقرير تجعله استعلام مجاميع انظر مثالك المرفق عملت لك استعلاما باسم b2_2 هذا الاستعلام يدمج المكررات لاحظ ان المكررات متشابهة في الحقول الثلاثة والا لن يتم الدمج الآن بالدلة Dcount يمكن اسخراج وجلب العدد بمثل هذه الصيغة: داخل محرر الفيجوال text1= Dcount("id","b2_2","id=" & me.id) او داخل عنصر تحكم الحقل هكذا : =Dcount("id";"b2_2";"id=" & me.id)

اصل الموضوع : معادلة القسمة المؤية فيفضل فتح موضوع جديد بعنوان مناسب لكل سؤال جديد وفقك الله وبارك فيك

الحمد لله ان هداك للحل ولكننا بحاجة الى شيء من الشرح والتوضيح فمن وضعت مرفقك الاخير وانا احاول ان اصل الى طريقة لفهم الكود المسؤول اقصد : الفهم الذي يمكنني من الشرح بالتفصيل فهو قد قام بترقيم الحقول بطريقة خاصة رأسيا وافقيا ، ثم من خلال هذه المعطيات تم التحكم بالصف من خلال الكود فتفضل علينا مما الهمك الله بشيء من التوضيح والشرح جزاك الله خيرا

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

تفضل طريقة لاخفاء حقول التقرير test2.rar

تريد ان تتعلم ، وتعملها انت ، ونحن نساعدك ؟ ام تريد عملا جاهزا ؟

السلام عليكم اخواني واحبتي الكرام يوجد طريقة يسيرة ومتقنة نستغني فيها عن التصدير والاستيراد لمن عمله موزع بين اكسل واكسس لايستغني عن احدهما وهي الارتباط بمصنف اكسل كجدول نضع المصنف بجانب قاعدة البيانات يمكن العمل من مصنف اكسل ويمكن العمل ايضا من اكسس المرفق يبين الفكرة فك الضغط عن المرفق على قرص D نريد آراءكم بعد التجربة db.rar

=format([feldate];"dddd") باعتبار feldate هو حقل التاريخ

جزيت خيرا وشكرا على الشرح الجميل وتم تغيير العنوان بما يناسب الموضوع

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

تفضل غير المعادلة بهذه =Sum([Minutesum])/Sum([Minutesum2])

وعليكم السلام بالضبط كما تفضلت تكون جملة التحديث هي p_buy * kmyahB ولكن لا حظ وجود حقل مشابه فتكون الجملة الصحيحة هكذا : tbl_Asnaf.p_buy * kmyahB

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

تفضل صنعت لك ساعة بسيطة باسطر قليلة ومفهومة Private Sub Form_Timer() Label3.Caption = Label3.Caption - 1 If Label3.Caption = 0 Then Label2.Caption = Label2.Caption - 1 Label3.Caption = 60 ElseIf Label2.Caption = 0 Then Label1.Caption = Label1.Caption - 1 Label2.Caption = 60 ElseIf Label1.Caption = 0 Then Me.TimerInterval = 0 End If End Sub بالنسبة للاحداث يمكنك وضعها ذاخل كود المؤقت لاحظ الشرط الاخير وهو حين يصل حقل الدقائق الى صفر يقف المؤقت ElseIf Label1.Caption = 0 Then Me.TimerInterval = 0 يمكنك وضع شروط اخرى مثلا : حين يصل حقل الدقائق الى رقم معين يحدث صوت معين عداد تنازلي.rar