kemas

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

ضع فى مصدر بيانات عنصر تحكم رصيد الصنف فى النموذج ما يلى =dlookup("Balnce";"ItemsBlan";"[itemid]="& [itemid]) مجرب و صالح مع الشكر

فى استعلام qqq عدل المعيار (الشرط) إلى Like "*" & [Forms]![result_search]![fin] & "*" يعنى احذف [text]

ممتاز وفقك الله  

ممكن شرح لفائدة doevents  

#ExpireDate: DateAdd("m";30;#01/04/2017(  

مصدر البيانات لحقل السطر الثانى = "      " & الحقل  

ضع سطر الكود فى وظيفة عامة public function وقم باستدعائها داخل كل تقرير

ممتاز

كيف تجعل قيمة حقل فى النموذج الفرعى تساوى حقلا فى الرئيسى كود هام  كيف تجعل قيمة حقل فى النموذج الفرعى تساوى حقلا فى الرئيسى فيديو صامت كود سطر واحد رابط ملف الشرح https://drive.google.com/file/d/0Bw4...ew?usp=sharing الكود فى حدث بعد التحديث للحقل فى النموذج الرئيسى Me.subf.Form.Controls("smonth") = Me.newm subf النموذج الفرعى smonth الحقل فى النموذج الفرعى newm اسم الحقل فى النموذج الرئيسى الفيديو https://www.youtube.com/watch?v=39Ek...ature=youtu.be __________________

اسم الفيديو فلترة النموذج الفرعى من النموذج الرئيسى الوصف فيديو يشرح طريقة فلترة النموذج الفرعى من النموذج الرئيسى فى أكسيس وطريقة إلغاء هذه الفلترة رابط ملف الشرح https://drive.google.com/file/d/0Bw4O7dVd4FBfZHQzRDk0NUJXTTQ/view?usp=sharing كود الفلترة Private Sub mym_Change() Me.subf.SetFocus Me.subf.Form.Filter = "[smonth]=" & Me.mym Me.subf.Form.FilterOn = True End Sub كود إلغاء الفلترة Private Sub أمر15_Click() Me.subf.Form.FilterOn = False End Sub رابط الفيديو https://www.youtube.com/watch?v=AOeQTh1r7xM&feature=youtu.be

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

لمرفق بعد التعديل open.rar

ملحوظة يجب ترتيب الأسماء بحيث يكون لكل اسم نفس الرقم بكل الجداول

الكود اللازم كى يفتح على نفس رقم الاسم هو If Not Me.NewRecord Then DoCmd.OpenForm "f_form", , , "[id]=" & Me.abd     نفس الكود عندك لكن سطر واحد فقط مع تعديل اسم الكمبوبوكس   "[id]=" & Me.abd هكذا ليأخذ قيمته