jjafferr

حيا الله اخوي موسى 🙂 اعطني امثلة ، وما يصير خاطرك إلا طيب 🙂 جعفر

وعليكم السلام ورحمة الله وبركاته 🙂 اخي حافظ ، في المرات القادمة ، رجاء مراعاة وضع اسم صحيح للموضوع ، يدل على محتواه 🙂 انت لم تقل للكود ان يظهر لك رسالة Msgbox او MessageBox بهذه المعلومة ، رجاء قم بإضافة الامر MessageBox الى الماكرو (كما في الصورة) : . جعفر

مقترح صحيح 100% 🙂 جعفر

وعليكم السلام 🙂 طريقة تعرّف المواقع على مكان تواجدك عند الدخول اليها ، هو عن طريق IP الكمبيوتر ، وهذه طريقة لمعرفة IP الكمبيوتر : . جعفر

في هذه الحالة يجب ان يكتب تنسيق الحقل في الجدول كالتالي: dd/mm/yyyy وإلا فإنه سياخذ تنسيق الوندوز ، وتنسيق الوندوز عندي هو dd/mmm/yyyy ، فسيعطيه رسالة خطأ كذلك !! جعفر

انظر الى نوع حقل التاريخ الهجري في الجدول 🙂 الدالة UmDate_AfterUpdate هي المسؤولة عن طريقة عرض التاريخ ، فاذا اردت تغيير التنسيق ، فلا انصحك ان تغير في الدالة اعلاه ، ولكن خلينا نغير نتيجة الدالة: Private Sub date_h_AfterUpdate() UmDate_AfterUpdate If Not IsNull(date_h) Then 'Debug.Print Right(date_h, 2) 'Debug.Print Mid(date_h, 6, 2) 'Debug.Print Left(date_h, 4) Me.date_m = Um2Greg(Right(date_h, 2), Mid(date_h, 6, 2), Left(date_h, 4)) ''Me.date_m = Um2Greg(Right(date_h, 4), Mid(date_h, 6, 2), Left(date_h, 2)) 'Me.t_day = Format(Me.date_m, "dddd") Me.date_h = Right(Me.date_h, 2) & "/" & Mid(Me.date_h, 6, 2) & "/" & Mid(Me.date_h, 1, 4) '<== هذا السطر الاضافي لتغيير التنسيق End If End Sub . جعفر

المفروض ان تظهر لك ارقام فقط ، لهذا السبب تحصل على خطأ عندما تنادي الدالة Um2Greg !! في الواقع المشكلة عندك في الجدول ، حيث ان حقل IqamaExpDateH هو تاريخ ، بينما يجب ان يكون نص . وبالتالي يتم حذف الاشارة الى ان الحقل تاريخ (احذف Short Date) . . وبعدها شوف النتائج 🙂 جعفر

السلام عليكم 🙂 يجب ان نرى ما يراه الكمبيوتر ، ثم نتخذ قرار التصحيح ، اضف الاسطر الثلاثة في الكود ، ثم انظر في اسفل صفحة الكود immediate windows ، واخبرنا النتيجة: Private Sub date_h_AfterUpdate() UmDate_AfterUpdate If Not IsNull(date_h) Then Debug.Print Right(date_h, 2) Debug.Print Mid(date_h, 6, 2) Debug.Print Left(date_h, 4) Me.date_m = Um2Greg(Right(date_h, 2), Mid(date_h, 6, 2), Left(date_h, 4)) ''Me.date_m = Um2Greg(Right(date_h, 4), Mid(date_h, 6, 2), Left(date_h, 2)) 'Me.t_day = Format(Me.date_m, "dddd") End If End Sub . . جعفر

لما تكون عندي معادلة بهذا التعقيد ، على طول وبدون تفكير ، اعمل وحدة نمطية واضع فيها المعادلة بطريقة مبسطة وبعدة اسطر ، ثم اناديها من الاستعلام 🙂 ننادي الدالة fOver_Time في الوحدة النمطية ، ونرسل لها البيانات المطلوبة OverTime: fOver_Time([ThisDay], [Dwam_Start], [Dwam_End], [txtStanderTimeOut1], [txtStanderTimeOut2]) . وهذه هي الدالة fOver_Time ، والتي يمكن تعديلها ببساطة : Public Function fOver_Time(TD, DS, DE, STO1, STO2) 'TD = [ThisDay] 'DS = [Dwam_Start] 'DE = [Dwam_End] 'STO1 = [txtStanderTimeOut1] 'STO2 = [txtStanderTimeOut2] If TD = "Friday" Then fOver_Time = DateDiff("n", DS, DE) \ 60 & ":" & DateDiff("n", DS, DE) Mod 60 ElseIf TD = "Thursday" Then fOver_Time = DateDiff("n", STO2, DE) \ 60 & ":" & DateDiff("n", STO2, DE) Mod 60 ElseIf TD <> "Friday" Or TD <> "Thursday" Then fOver_Time = DateDiff("n", STO1, DE) \ 60 & ":" & DateDiff("n", STO1, DE) Mod 60 End If End Function . جعفر

اخي عمر هذه تجربتي في البرنامج ، ومع روزنامة الوندوز: 1-1-2020 . 1-1-2021 . 1-1-2022 . جعفر

بمعنى آخر ، لا يوجد مكان (حقل) لكي يحتفظ الاكسس ، قيمة لكل سجل 🙂

الله يطول في عمرك ، المشكلة في اي نموذج ، واي حقل ؟

لهذا السبب ، لا استغنى عن البرنامج في الرابط ، كلما عملت اضافات على البرنامج اللي اشتغل عليه ، استعمل برنامج الرابط حتى اعرف انه لا توجد به اخطاء ، ويعمل نسخة منه ، خطوة بخطوة 🙂 . جعفر

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

وعليكم السلام 🙂 نعم ممكن عن طريق القائمة المختصرة ، وبأي اوامر تريد ، وبأي ترتيب كذلك ، وبقوائم جاهزة 🙂 : جعفر

حيا الله اخوي يوسف 🙂 حجم البرنامج صفر ميغا ، يعني معطوب وبدون اي محتويات !! جعفر

هل عندك نموذج ، وفي النموذج حقل الباركود؟ هل عندك حقل آخر يتم الانتقال اليه بعد ادخال البيانات في حقل الباركود؟ هل الحقل التالي له رقم تسلسل Tab Index اكبر من رقم حقل الباركود : . ويكون من المستحسن ان ترفق لنا هذه الجزئية من برنامجك 🙂 جعفر

قصدي ، هل هناك ماكرو او كود لأي حدث في الحقل ؟

وعليكم السلام 🙂 اهلا وسهلا بك في المنتدى 🙂 للإستفادة القصوى من المنتدى ، رجاء قراءة قوانين المنتدى: اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة جهاز الباركود يعمل التالي: 1. يقرأ الباركود ، 2. ويضع قيمته في الحقل (او البرنامج، قد تكون فاتح الاكسل او Notepad) الذي هو فيه ، 3. ثم يعطي امر للإنتقال للحقل/السطر التالي (عن طريق الامر CR LF ، او كأنما تضغط على زر Enter) . فمشكلتك معناها ، انه هناك كود على حقل الباركود ، يعمل بعد ادخال الباركود ويفتح نموذج آخر ، فيجب تعديل هذا الكود 🙂 جعفر

نعم اخي موسى ، وعادة نذكر ونساعد صاحب الموضوع لما ينسى ، طبعا اذا كنا متواجدين 🙂 جعفر

وعليكم السلام 🙂 بطريقتين : DoCmd.OpenReport "rpt_j", acViewPreview, , Forms!frm_j.Filter او DoCmd.OpenReport "rpt_j", acViewPreview Reports!rpt_j.Filter = Forms!frm_j.Filter Reports!rpt_j.FilterOn = true جعفر

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

هذه الرسالة لا علاقة لها بالكود ، وانما هي بسبب اعدادات الوندوز لديك : جعفر

وعليكم السلام 🙂 في الواقع صار لي بعض الوقت وانا افكر في الموضوع (قبل ان تضع مشاركتك) ، وقد قمت بتجميع الافكار والمصادر ، واعتقد انه ان شاء الله سيكون فيه هذا البرنامج ، لشدة الطلب عليه 🙂 وان شاء الله سأضع رابط الموضوع هنا 🙂 جعفر

وعليكم السلام 🙂 قد يكون هذا قصدك: جعفر