عمر ضاحى

هو انا ليه حاسس انى مش فاهم حاجه ! ^_^ (يعنى حضرتك عاوز تعمل ايه تحديدا عاوزه يكتب التاريخ ولا يعمل ايه بالظبط ^_^ ممكن توضيح اكثر

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

اعتقد ان المرفق الذى قمت بعمله هو طلبك ويمكن لك ان تعدل فى الكود حسب طلبك او الاليه التى تريد بها تشغيل الكود وما قمت بعمله هو تعديل الكود الخاص بك Private Sub Form_Timer() Dim TT As Integer TT = TimeValue("11:59:59 PM") Me.t1 = Time() Me.t2 = TT - Me.t1 End Sub

هل هذا ما تريد ؟ time.accdb

اعتقد كده قدامك غير طريقة المهندس قاسم @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