jjafferr

أخي محمد المفروض ان تختار الجواب الاصح ، كأفضل مشاركة ، ولا تختار مشاركتك!! ولقد سبق ان قمت بنفس الشيء في مشاركة سابقة ايضا جعفر

وعليكم السلام رجاء النظر في المرحلة الاولى من التقرير . وهو عبارة عن تقرير رئيسي وفيه تقرير فرعي ، الآن يجب عليك عمل تقريرين فرعين (حسب شكل الصورة التي ارفقتها) ، واهم شيء في هذين التقريرين هو عمل الاستعلام الذي سيأتيك بالمعلومات ، فيجب عمل معيار حسب السنوات التي تريدها ونصيحة: اعمل اول تقرير فرعي ، وضعه في التقرير الرئيسي ، ولما يكون كل شيء تمام ، اعمل نسخة منه للتقرير الثاني ، ونسخة من الاستعلام ، ثم قم بتغيير معيار الاستعلام ليتلائم مع طلبك ، ثم ضعه في التقرير الرئيسي جعفر 680.الاجازات - Copy.accdb.zip

الرابط يعطيك احد الاسباب جعفر

تفضل if left(me.activecontrol,1)="*" and right(me.activecontrol,1)="*" then me.Barcode_Field_Name = me.activecontrol cancel=true exit sub endif جعفر

شكرا اخي حامد ، عندما تُدخل رقم/حرف/اشارة/رمز في الكمبيوتر ، فهي قيمة تراها انت ، ولكن الكمبيوتر يرى هذه الارقام ، وكنت اتمنى ان ارى رقم (رقم + انتر) ، ولكنه ليس هناك في هذه الحالة الافضل لك ان جعفر

لوسمحت تعمل هذه التجربة في الحقل الذي ستنقر الباركود عليه ، ضع هذا الكود على الحدث "قبل التحديث" For i = 1 To Len(Me.ActiveControl) a = a & Asc(Mid(Me.ActiveControl, i, 1)) & vbCrLf Next i MsgBox a ثم ارفق صورة من الرسالة التي ستخرج لك. اريد اشوف ، هل قارئ الباركود يرسل ارقام فقط ، او اشارة اخرى معاه ، وعليه نستطيع ان نعمل كود التصيّد ان شاء الله جعفر

شكرا على التوضيح

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

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

وعليكم السلام احد الطرق الاسهل هو: الباركود عبارة عن: *رقم* فتستطيع عمل حدث "قبل التحديث" على جميع حقول النموذج ، انه اذا كان الرقم الُمدخل يبدأ بـ * وينتهي بـ * ، فاجعل الرقم داخل حقل الباركود جعفر

حياك الله اخوي شفان اشوفك عملت الكود مثل اخونا رمهان ، كود مقتضب انا ما احب هذا النوع من الكود ، لأنه مو سهل فهمه ، والاسوء هو محاولتك تغييره بعد حوالي شهر ، حيث تكون نسيت تفاصيله والأهم هو شبه استحالة تغييره/تعديله/تضبيطه من صاحب السؤال ولكن الكود بهذه الطريقة لا يأتي إلا من محترف جعفر

شكرا أخي صالح على الملاحظة ، لما شفت ان مصدر بيانات النموذج الفرعي عبارة عن استعلام ، اعتقدت بأن المعيار موجود هناك اخي محمد ، اليك الكود المعدل ، والمرفق Private Sub Change_to_this_AfterUpdate() mySQL = "UPDATE Q1" mySQL = mySQL & " SET [الحالة] = '" & Me.Change_to_this & "'" mySQL = mySQL & " Where [id] = " & Me.id1 DoCmd.SetWarnings False DoCmd.RunSQL mySQL DoCmd.SetWarnings True Me.SUB.Form.Requery End Sub جعفر 683.test120.mdb.zip

الحمدلله ولكن ، اين كانت المشكلة؟ جعفر

وعليكم السلام انا غيّرت اسم حقل النص change في النموذج الرئيسي الى Change_to_this ، ثم ضع هذا الكود على حدث "بعد التحديث" للحقل اعلاه: Private Sub Change_to_this_AfterUpdate() mySQL = "UPDATE Q1 SET [الحالة] = " & [Forms]![test1]![Change_to_this] DoCmd.SetWarnings False DoCmd.RunSQL mySQL DoCmd.SetWarnings True Me.SUB.Form.Requery End Sub جعفر

ولا يهمك

اعمل "ضغط واصلاح" لقاعدة بياناتك حتى يصغر حجمها ، ثم اضغطها بـ winrar او winzip ، وان شاء الله تقدر ترفعها ، واذا حجمها لايزال كبير ، فتستطيع ان ترفعها على احد مواقع الرفع ، ثم ترفق لنا الرابط هنا جعفر

اجعل النماذج والتقارير منبثقه جعفر

يعني خلاص ، انحلت المشكله ، والارقام بالتسلسل الصحيح؟ وهل غيّرت سنة الكمبيوتر الى السنه التالية وجربت نتائج التسلسل؟ جعفر

اول ما تفتح البرنامج ، هل تظهر لك هذه الصورة؟ . اذا نعم ، فهل تضغط على زر التمكين؟ جعفر

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

همممم اسمح لي اعمل بخور وارجع لك ، محتاج مساعدة طيب خلينا نشوف اللي تشوفه انت: انزل مرفقي في مشاركتي رقم 10 اعلاه (علشان انا وانت نكون نشتغل على نفس البيانات) ، واخرج الملف من accdb. من الملف المضغوط وانزله في اي مجلد ، ثم افتح البرنامج ، وعندما يأتيك الشريط الاصفر ، اضغط على الزر اللي في النص "تمكين المحتوى" . 1. ادخل في الكود ، واضغط على مكان النقطة ، وستجد ان السطر اصبح لونه بُني . 2. اذهب الى النموذج ، وانتقل الى سجل لا يوجد فيه رقم تسلسلي ، وانقر على زر الامر ، 3. ستجد ان الاكسس ادخلك في الكود ، واصبح لون السطر اصفر . 4. اضغط على زر F8 على الكيبورد ، والذي المفروض ان ينقلك الى السطر التالي ويظلله باللون الاصفر (معناه انه لم يتم القيام بأمر هذا السطر بعد) ، 5. يمكنك وضع الفأرة (وبدون نقر) على اي من المتغيرات ، وستظهر لك قيمة المتغير (الاسطر التي فوق اللون الاصفر) ، 6. لما توصل الى السطر End Sub ويصبح لونه اصفر ، ضع الفأرة على متغيرات السطر الذي قبله ، على هذه المتغيرات Me!Seq ، prtyr ، xNext واخبرنا قيمة كل واحدة منها جعفر

وعليكم السلام اخي اولا اشكرك على جميل ذوقك في اختيار العبارات المناسبة في الرد في مواضيعك سبق وان رايت اكثر من موضوع لك ، ولكني لم اشارك فيها ، وتابعت بعض مواضيعك السابقة ، لهذا السبب احببت ان اوضح لك التالي ، وبعد إذنك: 1. قوانين المنتدى لا تسمح بأكثر من سؤال في موضوع واحد ، والسبب ، حتى يكون الموضوع مرجع لمن لديه سؤال مثل سؤالك ، اما اذا تعددت الاسئلة في موضوع واحد ، فسهل ان يتوه المبرمج الجديد في الاكواد والمصطلحات ، وكما ان لكل واحد فينا نقاط قوة ونقاط ضعف ، وبما انه عندنا وقت محدود للمساعدة ، فاننا نختار من الاسئلة ما يلائمنا. 2. صاحب السؤال ادرى ببرنامجه وتفاصيله ، فاكتب اكبر كمية من التفاصيل عن سؤالك ، مثل اسم النموذج/التقرير/الاستعلام الذي فيه المشكلة ، واسم الحقل ، ماهي المشكلة ، وما النتيجة التي تريد تحقيقها ، واعطاء مثال او مثالين واضحين من برنامجك المرفق ، او ارفاق ملف اكسل او وورد او صورة تشرح المطلوب ، وللأسف الشديد نرى الكثير من الاسئلة عبارة عن سطر واحد ومكتوب فيه ان المطلوب في المرفق ، وعندما لا يرى اجابه فإنه يعاتبنا على إهمال سؤاله جعفر

وعليكم السلام تفضل =DCount("*","المراجعين","[اسماء الموظفين]='سالم'") المعادلة لا تبدو بالطريقة الصحيحة ، لأنها تحتوي على حقول عربية ، ولكن اعمل نسخ للكود اعلاه ، ولصق في الحقل (بدل المعادلة التي عندك) جعفر 681.دالة تظهر عدد النص.accdb.zip

أخي الفاضل المشكلة عندك انك مستخدم احد اسماء الاكسس المحجوزة ، الحقل date ، والكود يشير الى الامر date (يعني تاريخ اليوم) ، فالبرنامج بدل ان يأخذ القيمة من الامر ، كان يأخذ قيمة الحقل انا غيّرت اسم الحقل في الجدول الى date1 ، ومشى الحال ، اما موضوع التنسيق وعدد الاصفار ، فإذا اردته بدون اصفار ، استعمل الكود التالي ليصبح ترقيمك 171 ، 172 ... ، 1710 ، وهكذا: Private Sub cmd_New_Number_Click() If Len(Me.Seq & "") <> 0 Then Exit Sub On Error Resume Next Dim xLast, xNext As Integer Dim prtyr, prtTxt As Integer prtyr = Right(DatePart("yyyy", date), 2) prtTxt = Left(DMax("Seq", "tb1"), 2) xLast = DMax("Seq", "tb1", prtTxt = prtyr) If IsNull(xLast) Then xNext = 1 Else xNext = Val(Mid(xLast, 3)) + 1 End If 'Me!Seq = prtyr & Format(xNext, "00000") Me!Seq = prtyr & xNext End Sub جعفر 679.1.ترقيم جديد كل سنة جديدة وبجداول جديدة.accdb.zip

اعتذر منك ، اخذت الكود بالكامل بالخطأ تستطيع ان ترجع هذا السطر للحدث السابق جعفر