أبوبسمله

منور @ابا جودى وحمدالله على السلامه وجزاك الله خيرا على هذا الرابط بالتوفيق اخوانى

وعليكم السلام قم بانشاء ماكرو وقم بتسميته AutoKeys كما بالصوره ثم قم بانشاء ماكرو فرعى بداخله كما بالصوره واكتب به F^ جرب ووافنا بالنتيجه بالتوفيق اخى

كان ردى بناء على ما فهمته من ردك وانك سوف تحسب تسلسله يدويا ثم تضعه بحقل اتسلسل ثم تزيد 1 على هذا الرقم لكل مابعده يعنى مثلا عندما يتم اعطاء رقم 6 لسعود وفى الاساساس سعيد ابراهيم يحمل رقم 6 فيصبح سعيد ابراهيم رقم 7 وهكذا وماذا بعد الفرز لانه لم نفهم مطلوبك ولا ع اى اساس سوف يتم الترقيم لان بمثالك لا يوجد سوى حقلين حقل الاسم والتسلسل نرجوا التوضيح اكثر وان شاء الله تجد ما تريد بالتوفيق اخى

مشاركه مع اخى واستاذى العزيز @husamwahab جزاه الله خيرا حاجه بسيطه على قدى ع حسب ما فهمت قمت بعمل استعلام تحديث وتصفيه القيم على حسب التسلسل الذى تكتبه بالنموذج ثم نقوم باضافه 1 لهذه القيم المصفاه بعد كتابه القيمه بالتسلسل قم بالضغط على زر تحديث لتشغيل الاستعلام UPDATE Home SET Home.تسلسل = [تسلسل]+1 WHERE (((Home.تسلسل)>=[Forms]![نموذج1]![تسلسل])); قمت بالتجربه على جعل جرب ووافنا بالنتيجه بالتوفيق تجربه‌(2).accdb

حبيبى الغالى اخى حسام تسلم وانا اكتر بارك الله فيك وجزا الله عنا كل خير 💐

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

هديه جميله ومتميزه 💐 والاجمل هو عودتك اخى واستاذى العزيز محمد عودا حميدا تقبل تحياتى

الشكر لله اخى حسين اما لماذا توقف عند الرقم 100 فهذا لان السطر الثانى من الكود لقطع اول رقمين يمكنك زياده الفورمات للاصفار لاربعه كما الكود التالى وزياده القطع فالسطر الثانى dl = Nz(DMax("FATORA_NO", "101"), 0) rd = Int(Right([dl], 4)) + 1 strLeft = Left(dl, 3) Me.[FATORA_NO] = strLeft & Format(rd, "0000") Me.Refresh ويمكنك استبدال الكود والاستغناء عن الفورمات كالتالى dl = Nz(DMax("FATORA_NO", "101"), 0) rd = Int(Right([dl], Len(dl) - 3)) + 1 strLeft = Left(dl, 3) Me.[FATORA_NO] = strLeft & rd Me.Refresh بالتوفيق

تسلم الشرف لى اخى 💐

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

بالف هنا وصحه طيب اعمل حسابى معاك ففنجان قهوه اخى

مشاركه مع اخى واستاذى @kanory جزاه الله خيرا حاجه كده على قد حالى dl = Nz(DMax("FATORA_NO", "101"), 0) rd = Int(Right([dl], 2)) + 1 strLeft = Left(dl, 3) Me.[FATORA_NO] = strLeft & Format(rd, "00") Me.Refresh تقبلوا تحياتى وتمنياتى بالتوفيق 3733.accdb

الف الف مبروك اخى صالح @ابوآمنة تستاهل كل خير واعانك الله انت وجميع اخواننا واساتذتنا فالموقع 💐 تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

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

وعليكم السلام اخى الفاضل @rey360 شوف التعديل وافتح النموذج ثم التقرير او افتح التقرير واكتب كود code client رقم 2 مثلا لامين ووافنا بالنتيجه بالتوفيق Base de données1352 - Copie - Copie(1).accdb

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

مشاركه مع اخى واستاذى @محمد أبوعبدالله جرب التعديل كالتالى بتغيير Or الى And ووافنا بالنتيجه If Format(Now(), "hh:mm:ss AM/PM") >= #12:00:00 AM# And Format(Now(), "hh:mm:ss AM/PM") <= #7:00:00 AM# Then Me.sDate = Date - 1 Else Me.sDate = Date End If بالتوفيق

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

وعليكم السلام اخى @husamwahab جزاك الله خيرا وبارك الله فيك ان شاء الله ساقوم بتجربته وموافاتك بنتائج التجربه وان شاء الله ننتفع به ونحتسبه لك فى ميزان حسناتك عند الله وهو الكريم تقبل تحياتى اخى حسام وفقكم الله

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا وفيك بارك الله بالتوفيق اخى

السلام عليكم اخى الفاضل @طاهر الوليدي اتفضل تم التعديل كل ما قمت به تعديل حقل رقم المستند بالداله dmax واسم الجدول اسم الحقل كنت قد كتبت اسم الحق بالنموذج بدل الجدول كتابه اسم الجدول بين علامتى التنصيص ولكن لوجود مسافه فى اسم الجدول يجب وضعهم داخل الاقواس المربعه يفضل الابتعاد عن كتابه اسماء الحقول والجداول باللغه العربيه ووضعها بالتسميه فالخصائص يفضل وضع العلامه _ الشرطه السفليه وليس مسافه فى حالة فاصل بين الاسماء او الفصل باول حرف كابتل dl = Nz(DMax("[رقم المستند]", "[بيانات المصروفات]", "(year([التاريخ]) & month([التاريخ])& day([التاريخ]))='" & Format(Me.التاريخ, "yyyymd") & "'"), 0) rd = Int(Right([dl], 4)) + 1 Me.رقم_المستند = Format(Me.التاريخ, "yymd") & Format(rd, "0000") بالتوفيق ترقيم باليوم والشهر والسنة ممتاز.accdb

Private Sub idserum_AfterUpdate() Me.z = Me.x * Me.y Forms!Fexperience.Refresh Forms!Fexperience!xy = IIf([idexperience] <> "", Nz(DSum("z", "Qtest", "idexperience=" & [idexperience]), 0), 0) End Sub

احبك الله الذى احببتنى فيه 💐

ولا يهمك اخى ازهر والافضل اجابه اخى العزيز حسام بالتوفيق

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا بالتوفيق اخى