عمر ضاحى

السلام عليكم ورحمة الله وبركاته معي طلب مساعده من حضراتكم مش متأكد اذا كان هذا الطلب صعب ام لا لكن لا اظنه صعب على عمالقه الاكسيس هنا انا عامل نموذج وداخله اخر فرعي لاستيراد روابط ملفات (صور او مستندات) والمطلوب كما موضح بالصور -------------------- وجعله الله فى ميزان حسناتكم Req_Link_img.rar

😅 انا قلت ممكن نلاقى حل لهذا برضه ^_^

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

باشكر حضرتك على الحل وجزاك الله عنا كل خير هذا شرف لى مرور حضرتك هنا بارك الله لك على الاضافه

السلام عليكم ورحمة الله وبركاته بعد اذن حضراتكم طلب للتعديل على كود (بداية ونهاية الشهر بناءا على قيمه حقل (رقم) الكود If Me.txtMonthNo >= 12 Then MsgBox "ان الاشهر السنه هي 12 شهر لا يمكن ان يكون اكثر من هذا", vbCritical, "خطأ" Me.txtMonthNo = 12 Exit Sub Else Me.txtMonthNo = Me.txtMonthNo + 1 Me.txtdate1 = DateSerial(Year(Date), Month(txtMonthNo), 1) Me.txtdate2 = DateSerial(Year(Date), Month(txtMonthNo) + 1, 0) Me.Requery End If End Sub ForDate.accdb

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

انا اسف جدا فى التأخر فى الرد لكن يوم الخميس كان يوم ضغط فمكنتش عارف اقعد على الكمبيوتر شوي المشكله كانت هي هي حتى لو غيرت اسم النموذج الفرعي بسم الله ما شاء الله الكود شغال زي السكينه فى الحلاوه تسلم ايدك يا مبدع ^_^ ربنا يبارك فيك ويحفظك انت وجميع المسلمين اللهم امين

اولا باشكر حضرتك يا باش مهندس لكن بيظهر لى خطأ

السلام عليكم روحمة الله وبركاته اساتذتي الكرام بعد اذن حضراتكم هل من الممكن عمل زر لتحويل اى نموذج فرعي فى الفورم الى ورقة بيانات ومن ثم الرجوع كنموذج مستمر ؟ يعنى زي ما العنونا مكتوب ( عمل زر تغير وضع النموذج الفرعي من (نموذج مستمر) الى (ورقة بيانات) والعكس ) لان معايا نموذج تسجيل الحضور والانصراف المشكله ان لما بيفتح بيقعد يرص فى مربعات النصوص كثير على جهازي بيخذ ثانيه ل 3 ثواني لكن على الكمبيوتر الثاني ممكن ياخذ 10 ثواني ولو رحت على اى مربع نص بيعمل ريفرش وياخذ نفس الوقت مضيعه للوقت كثير وبطئ فاريد ان يتم تحويلها لورقة بيانات ما تاخذ وقت لكن بعد الانتهاء محتاج ارحل البيانات والمفاتيح موجوده فى النموذج الفرعي علشان كده محتاج احوله الى نموذج مستمر مره اخرى

تم حل المشكله وعرفت اين خطئى حيث انى نسيت ان اضيف اسم عنصر التحكم (المعرف او مدري شنو اسمه) ^_^ المهم الصحيح هكذا Set menultems1 = cbMenu1.Controls.Add.Picture = picPicture10: menultems1.BeginGroup = True: menultems1.Caption = "تغير المستخدم": menultems1.OnAction = "cmdChangeUser": menultems1.Picture = picPicture10

اولا باشكر حضرتك وفهمت فكرتك لكن لما حبيت اعملها بطريقتي شويه ظهر معي خطا انا عملت مجلد اسمه ICONS جنب ملف البرنامج ووضعت فيه الصورة التى فى الموضوع وعملت متغير Dim cbMenu1 As CommandBar Dim menultems1 As CommandBarControl Dim picPicture As IPictureDisp Dim FPath, SFileName10 As String FPath = CurrentProject.Path SFileName10 = FPath & "\ICONS\10.bmp" Set picPicture = stdole.StdFunctions.LoadPicture(SFileName10) 'Debug.Print FPath 'Debug.Print SFileName10 Debug.Print picPicture Set menultems1 = cbMenu1.Controls.Add(msoControlButton, picPicture, , , True): menultems1.BeginGroup = True: menultems1.Caption = "تغير المستخدم": menultems1.OnAction = "cmdChangeUser" كما هو موضح وبالنسبه لل picPicture حبيت اعرف ايه ال بيحصل فيها وكانت ان هناك قيمه متغيره فى كل مره يتم تحميل الصوره (طلبها) لكن الصوره لم يتم تحميلها ووجدة ان اصلا القائمة اختفت هنا استنتج ان انا عكيت الدينا بس حابب اعرف ايه الغلط هنا ام انى وضعت الكود غلط ولما حبيت اعمل تعديل اخر فى الكود عندي كمحاوله للحل Set menultems1 = cbMenu1.Controls.Add(msoControlButton).Picture = picPicture10: menultems1.BeginGroup = True: menultems1.Caption = "تغير المستخدم": menultems1.OnAction = "cmdChangeUser" ظهر مكان الزرار لكن لا توجد اى شئ مكتوب او حتى الاكشن الخاص به لا يعمل كانه لم يكن

بيختلف ان النموذج الفرعي عن النموذج الرئيسي فى طريقة المناداه اذا كان الكود موجود فى نموذج فرعي وبيتطلب لتشغيله حقل او اى شئ موجود فى النموذج الرئيسي هنا لازم تعبر عن ده بمسار كامل للحقل المطلوب او المرتبط مثلا هناك حقل فى النموذج الرئيسي به رقم الفاتوره والبضاعه يتم تسجيلها فى نموذج فرعي فعند تسجيل البضاعه بيتم ربط الفاتوره (رقمها) بالبضاعه بالمسار كامل Forms![اسم النموذج الرئيسي]![اسم الحقل فى النموذج الرئيسي] وهكذا ما اعذرنى لسه لحد دلوقتى انا مفهمتش ليه عاوز تعمل كده ولما بيتم اختاير شئ من القائه التى فى النموذج الفرعي ايه ال مفترض يحصل انا عاوز تشرحلى انت عاوز تعمل ايه (الحدث) (وفين مكان هذا الحدث) وبعد هذا الاختيار او فعل الحدث ايه ال من المفترض ان تظهر نتائجه وفين هتظهر النتائج دي

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

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

جرب هذا الملف بعد عدم تمكين التعديل فى القائمه ويتم اجبار المستخدم على الاختيار شئ من ضمن القائمه فقط takhrij.rar

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

تمام الحمد لله تحت امر حضرتك

الله يجازيك عنا كل خير ويزيدك من علمه ويبارك فيك

انا عرفت اعملها بس طلعت معايا مقلوبه ^_^ عاوز اعدلها الله يراضيكم ^_^ test1002.rar عاوز اجعل الاجمالى تحت الاسم ده ممكن ؟

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

صعب على ما اعتقد لان ممكن النسخ القديمه تعمل على النسخ الجديده لكن العكس صعب يكاد يصل للمستحيل وذلك لان الاليه والكائنات والنظام فى الاكسيس الحديث غير موجود فى النظام القديم او تم تغير البنيه فبالتالى صعب جدا جدا جدا .......... والله اعلم

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

جرب تعدل الكود بده =DLookUp("VAT";"Sales_Invoice_main";"Sales_Invoice_No = " & [Text158]) فى التقرير الامر مختلف لان التقرير مفهوش نموذج فرعي او ممكن ان تجعل الشرط من مصدر التقرير مثل هذا =DLookUp("VAT";"Sales_Invoice_main";"Sales_Invoice_No = " & [Sales_Invoice_No]) كلاهما يعمل

ممكن حضرتك توضح لى اى جذء تريد تعديله فى التقرير ؟

اولا انه شرف لى ان حضرتك تحاول مساعدتى بارك الله فيك واحسن اليك لكن ليس هذا ما اريد واعتذر لحضرتك لعدم توضيح الفكره بوضوح اكثر انا اريد ان تكون النتائج مثل هذا