أبوبسمله

وعليكم السلام اتفضل ان شاء الله يكون ما تريد NSave: Right([save];Len([save])-Len(Left([save];1))) بالتوفيق onevalue (1)(1).accdb

احسنت اخى واستاذى @husamwahab وجزاك الله خيرا 💐 بالتوفيق

وعليكم السلام اتفضل ان شاء الله يكون ما تريد شوف مصدر السجلات للنموذج الفرعى وافنا بالنتيجه SELECT DISTINCT Tabl1.save, Tabl1.a1 FROM Tabl1; بالتوفيق اخى onerecord.accdb

جزاك الله خيرا اخى ومعلمنا العزيز @jjafferr جعله الله فى ميزان حسناتك انا استخدمت على ويندوز 7 - 32 بت اوفيس 2003 و 2016 - 32 بت وحقا طريقة رائعة جدا جزاك الله خيرا أخى شيفان بالتوفيق

السلام عليكم اتفضل اخى @goldposition ان شاء الله يكون ما تريد جرب ووافنا بالنتيجه بالتوفيق mm - Copy.accdb

واياكم اخي بالتوفيق

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

السلام عليكم مشاركه مع اخى @ناقل جزاه الله خيرا هل هذا ما تريد جرب ووافنا بالنتيجه If Me.Combo1 Like "<select ALL >" Then Me.data.Form.RecordSource = "SELECT data1.* FROM data1;" Else Me.data.Form.RecordSource = "SELECT data1.* FROM Data1 " & _ " WHERE (((data1.LINE)=[Forms]![Search]![Combo1]));" End If بالتوفيق mm.accdb

السلام عليكم اتفضل ان شاء الله يكون ما تريد وهذا الحل الذلا اشار به لك اخى @ناقل جزاه الله خيرا بالتوفيق المحل - Copyjhgj.rar

جزاكم الله خيرا اخوانى واساتذتى @صالح حمادي @jjafferr @husamwahab 💐 وشرح وتوضيح اكثر من رائع معلمنا العزيز جعفر بارك الله فيك وبارك لك فى كل ما تحب بالتوفيق اخوانى

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

وعليكم السلام قم بانشاء ماكرو وقم بتسميته 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