jjafferr

المفروض ان تظهر لك ارقام فقط ، لهذا السبب تحصل على خطأ عندما تنادي الدالة 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 جعفر

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

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

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

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

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

في الواقع موضوع واجهات HTML وتوابعها ، شيق وجميل وجديد على الاكسس ، ولكني لاحظت ان الاخ موسى عمل واجهات جميلة بالاكسس ، وببرمجة الاكسس فقط ، ولم يستطع بعض الاعضاء تطبيق الطريقة في برنامجهم ، فرجعوا الى منتدى الاكسس ، وبالاضافة الى الاخ موسى ، قام اعضاء آخرين بالرد على استفساراتهم ، كون البرمجة اكسس. القلق الذي يراودني انه ، في حال استخدام اكواد HTML وتوابعها ، فيصبح معظم الاعضاء الذين سيحاولون تذليل الكود في برامجهم ، سيكون لديهم اساله ، فالسؤال هنا ، من سيقوم بالرد عليهم ويُصلح اخطاءهم؟ لا ننسى اننا في منتدى الاكسس ، فهل نحوّل هذه الاسئلة الى منتدى الويب ، للرد على التساؤلات؟ جعفر

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

كسر الحماية يُعتبر مخالف لقوانين المنتدى: اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية . 20. يمنع منعا باتا نشر أية موارد تخالف حقوق الملكية الفكرية بما في ذلك الكتب والكراك وتبادل السيريال جعفر

وعليكم السلام 🙂 او https://www.devhut.net/use-arrow-keys-to-navigate-continuous-form-records/ جعفر