أبوبسمله

وعليكم السلام

اتفضل ان شاء الله يكون ما تريد

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 بت وحقا طريقة رائعة جدا

في ١٣‏/١١‏/٢٠١٧ at 19:17, Shivan Rekany said:

اتفضل اليك هذا وفتحه هل وصلت للنتيجة المطلوبة ؟ 

jj.rar

جزاك الله خيرا أخى شيفان

بالتوفيق

السلام عليكم

اتفضل اخى @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^

جرب ووافنا بالنتيجه

بالتوفيق اخى

في ١٥‏/١١‏/٢٠٢٠ at 22:30, ٌRayan Zakho said:

استاذي العزيز حسام المشكلة في القدم في الدرجات الوظيفية مثلا عندي 650 موظف حسب الدرجات 

والتحق الينا موظف جديد ودرجته الوظيفية ( درجة /1 ) ولدي 10 موظفين درجة /10

لكن هذ الموظف الجديد اقدم من خمسة منهم مثال في الصورة سعود نجم يجب ان يكون في تسلسل مثلا 6

كان ردى بناء على ما فهمته من ردك وانك سوف تحسب تسلسله يدويا ثم تضعه بحقل اتسلسل ثم تزيد 1 على هذا الرقم لكل مابعده

يعنى مثلا عندما يتم اعطاء رقم 6 لسعود

وفى الاساساس سعيد ابراهيم يحمل رقم 6

فيصبح سعيد ابراهيم رقم 7 وهكذا

23 ساعات مضت, ٌRayan Zakho said:

لكن احتاج الى كود لفرز الارقام من الصغيرة الى الارقام الكبيرة هل يوجد

كود اضعها في زر على النموذج

وماذا بعد الفرز

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

نرجوا التوضيح اكثر وان شاء الله تجد ما تريد

بالتوفيق اخى

مشاركه مع اخى واستاذى العزيز @husamwahab جزاه الله خيرا

حاجه بسيطه على قدى ع حسب ما فهمت

قمت بعمل استعلام تحديث وتصفيه القيم على حسب التسلسل الذى تكتبه بالنموذج ثم نقوم باضافه 1 لهذه القيم المصفاه 

بعد كتابه القيمه بالتسلسل قم بالضغط على زر تحديث لتشغيل الاستعلام

UPDATE Home SET Home.تسلسل = [تسلسل]+1
WHERE (((Home.تسلسل)>=[Forms]![نموذج1]![تسلسل]));

قمت بالتجربه على جعل

منذ ساعه, ٌRayan Zakho said:

سعود نجم يجب ان يكون في تسلسل مثلا 6

جرب ووافنا بالنتيجه

بالتوفيق

تجربه‌(2).accdb

3 دقائق مضت, husamwahab said:

حياك الله استاذي الحبيب استاذ الفلاحجى

والله مشتاقين 

 

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

وعليكم السلام ورحمة الله وبركاته

برجاء ارفاق مثال وشرح ما تريد وان شاء الله تجد ما تريد باذن الله

بالتوفيق اخى

هديه جميله ومتميزه 💐

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

تقبل تحياتى

الشكر لله اخى حسين

اما لماذا توقف عند الرقم 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

بالتوفيق

2 دقائق مضت, kanory said:

حياك تشرفنا ......🌺

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

الان, kanory said:

منور استاذ احمد فينك لك وحشة .... عساك بصحة وعافية

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

شويه ضغط فالشغل الفتره اللى فاتت والحمد لله خف الضغط شويه

اسال الله ان يديم بيننا الموده والحب فالله

14 ساعات مضت, kanory said:

مش تفكير بس ... فنجان قهوة ..

بارك الله فيك .. بالتوفيق

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

مشاركه مع اخى واستاذى @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