أبوبسمله

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

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

اخى عمرو كيف تريد اظهار وانت محدد المعيار بين تاريخين بدايه التوريد ونهايه التوريد ولى سؤال كيف يكون هناك مبيعات سابقه عن ميعاد التوريد لعل احد الاخوان او الاساتذه يساعد بفكره تيسر لك ما تريد بالتوفيق

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

واياكم اخى فيه خطوه لابد من توضيحها اولا فالاستعلام رئيس قمت باضافه حقل اسمه NumJob لإضافه به رقم حسب المسمى الوظيفى لتسهيل عمليه الفرز وجعل رئيس اللجنه بالاعلى NumJob: Switch([job2]='رئيس لجنة';1;[job2]='مراقب أول';2;[job2]='مراقب';3;[job2]='ادارى';4;صواب;5) ثم تم عمل التقرير بالطريقه العاديه عن طريق الويزارد واضافه فرز عن طريق الحقل الجديد NumJob قم بعمل تنسيقاتك واضافاتك بالتقرير السابق لك كما تريد بالتوفيق توزيع1.accdb

السلام عليكم استاذ @احمد حبيبه القى نظره على الصوره هل هذا ما تريد ان لم يكن فوضح اكثر بارك الله فيك حتى يتثنى لاخوانك واساتذتنا بمساعدتك بالتوفيق

واياكم استاذ عمر وانت اللى قمت بالحل فالمشاركه التاليه للاستفسار فلم افعل شىء ربنا يوفقك 😀

وعليكم السلام استاذ @Amr Ashraf جرب ووافنى بالنتيجه Amr.accdb

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

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

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

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

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

السلام عليكم اخى @ابو جودي اولا قم بتغيير الايبى بالجدول ثم قم بفتح النموذج وهذه صوره جهازى وان شاء الله يشتغل على النواتين طبعا معنديش نواه 64 لاقوم بالتجربه فانتظار تجربتك GetRemoteTime.mdb

واياكم اخى محمد اذا نحيل الموضوع لاساتذتنا جزاهم الله عنا كل خير @أبو إبراهيم الغامدي

واياكم اخى محمد وكل امه سيدنا محمد صل الله عليه وسلم مقدرش اتاخر عليك اخى محمد من فضلك جرب المرفق الاول للنواتين ثم جرب المرفق الثانى كذلك للنواتين ووافنى بالنتجيه القاكم غدا ان شاء الله تصبحون على خير GetRemoteTime2.mdb GetRemoteTime1.mdb

اهلا اهلا اهلا باخى العزيز والناقل الكبير قصدى الناقد 😀 وحشنى والله ووحشنى خفه دمك ياغالى ربنا يعزك 🌹 💐 طيب انا منزلتش المرفق ولكن سوف اقوم بتحميله والنظر فيه غدا ان شاء الله بعد عودتى من العمل وقبل انشغالى بالاخر وان شاء الله ربنا ييسر الامور وهذا ان لم يسبقنى احد اخواننا واساتذتنا جزاهم الله عنا كل خير

اهلا بيك اخى ناقل الحمدلله رضا من الله ربنا يعزك اخى انا الاسعد بعودتى وسط اخوانى واحبابى 🌹💐

السلام عليكم اخوانى واساتذتى محمد عصام ومحمد سلامه برجاء الاطلاع ع الرابط التالى وتجربة الحلول التى به ان شاء الله تنحل المشكله لديكم باذن الله https://codekabinett.com/rdumps.php?Lang=2&targetDoc=windows-api-declaration-vba-64-bit تقبلوا تحياتى ومرورى

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

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

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير اللهم آمين وجميع المسلمين والمسلمات والمؤمنين والمؤمنات ان شاء الله نعم اضف ما تريد ثم حدثهم بالترتيب من الاصغر الى الاكبر يعنى 2 ثم 3 وهكذا وده تعديل بسيط باضافه كمبو تختار منه Private Sub btnRun_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb strSql = "SELECT tbl_Items.iPage " & _ "FROM tbl_Items " & _ "WHERE tbl_Items.iPage >= " & Me!cmbIPageID.Column(0) If IsNull(cmbIPageID) Then MsgBox "من فضلك اختر القيمه التى تريد تحديثها" Me.cmbIPageID.SetFocus Me.cmbIPageID.Dropdown Exit Sub End If Set rs = db.OpenRecordset(strSql) rs.MoveLast: rs.MoveFirst For i = 0 To rs.RecordCount - 1 rs.Edit rs.Fields(0) = rs.Fields(0).Value + 1 rs.Update rs.MoveNext Next Me!cmbIPageID = "" rs.Close db.Close Set rs = Nothing Set db = Nothing End Sub بالتوفيق DATA14_2.mdb

وعليكم السلام اخى الفاضل @abouelhassan اتفضل حاجه بسيطه على قد حالى وع قد ما فهمت تم اضافه فورم frmUPDate وبه حقل نص واحد وزر امر بعد ان تقوم بالتعديلات التى تعملها شوف الرقم اللى قمت باضافته بقى رقم كام افتح فورم frmUPDate وفى حقل النص ضع هذا الرقم ثم قم بالضغط عالزر Private Sub btnRun_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb strSql = "SELECT tbl_Items.iPage " & _ "FROM tbl_Items " & _ "WHERE tbl_Items.iPage >= " & Me!txtUPDate If IsNull(Me!txtUPDate) Then Exit Sub Set rs = db.OpenRecordset(strSql) rs.MoveLast: rs.MoveFirst For i = 0 To rs.RecordCount - 1 rs.Edit rs.Fields(0) = rs.Fields(0).Value + 1 rs.Update rs.MoveNext Next End Sub قمت بوضع نفس المسمى المديونات بقى رقم 3 ضع رقم 3 فالحقل و اضغط عالزر جرب ووافنا بالنتيجه بالتوفيق DATA14(1).mdb

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

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