عمر ضاحى

اعتقد كده قدامك غير طريقة المهندس قاسم @Eng.Qassim فاتورة الارجاع تشبه فاتورة المشتريات .. بمعنى انك ستظيف مواد للمخزن ودفع مبالغها من الرصيد لديك هتعمل نموذج مثل المشتريات وتعمل لها مرجع على الفاتورة ال فيها الاسترجاع بحيث تأخذ اسعارها وكمياتها من الفاتوره نفسها وليس المستودع بمعني لو فى الفاتورة يوجد عدد 10 اقلام بسعر 1 دولار للفلم هنا لما تعمل استرجاع يكون مصدر البيانات معه من الفاتورة (رقم الفاتوره) وبهذا تضمن عدم استرجاع كميات اكبر من الكميات ال فى الفاتورة وايضا السعر هيكون نفسه ال فى الفاتوره وتسمع معاه فى رصيد الزبون ان تخصم مبلغ الاسترجاع معاه وبكده هيظهر معاك فى قائمة الحسابات (كشف الحساب)الخاص بالزبون ان هناك حركة شراء وحركة مرتجع

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

عدل على الكود باضافة كلمة PtrSafe بين Declare Function حتي يصبح الكود بهذا الشكل Private Declare PtrSafe Function

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

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

الف الف شكر جعله الله فى ميزان حسناتك

تسلملى عيونك ويبارك فيك الف الف شكر هذا هو المطلوب

ممكن اطلب اضافه صغيره ؟ وهو اذا ضغطة على الصوره يتم فتحها لى (سواء كانت صوره او ملف مستندي )

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

ولا يهمك يكفينى شرف زيارتك ومساعدتك لى ربنا يبارك لك فى عافيتك وعلمك

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

السلام عليكم ورحمة الله وبركاته معي طلب مساعده من حضراتكم مش متأكد اذا كان هذا الطلب صعب ام لا لكن لا اظنه صعب على عمالقه الاكسيس هنا انا عامل نموذج وداخله اخر فرعي لاستيراد روابط ملفات (صور او مستندات) والمطلوب كما موضح بالصور -------------------- وجعله الله فى ميزان حسناتكم 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![اسم النموذج الرئيسي]![اسم الحقل فى النموذج الرئيسي] وهكذا ما اعذرنى لسه لحد دلوقتى انا مفهمتش ليه عاوز تعمل كده ولما بيتم اختاير شئ من القائه التى فى النموذج الفرعي ايه ال مفترض يحصل انا عاوز تشرحلى انت عاوز تعمل ايه (الحدث) (وفين مكان هذا الحدث) وبعد هذا الاختيار او فعل الحدث ايه ال من المفترض ان تظهر نتائجه وفين هتظهر النتائج دي

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

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