أبوبسمله

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

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

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

السلام عليكم اخى @ابو جودي اولا قم بتغيير الايبى بالجدول ثم قم بفتح النموذج وهذه صوره جهازى وان شاء الله يشتغل على النواتين طبعا معنديش نواه 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

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

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

السلام عليكم مشاركه مع اخى الفاضل @ابو محمد 316 جزاه الله خيرا 💐 اتفضل اخى @mrbakr ان شاء الله يكون ما تريد Private Sub Command405_Click() Dim strSql As String Dim TempQdf As QueryDef Dim db As DAO.Database Set db = CurrentDb strSql = "Select * from الموظفين" If Me.Fr_U.Form.Filter <> "" Then strSql = strSql & " WHERE " & Me.Fr_U.Form.Filter End If Set TempQdf = db.CreateQueryDef("ExportFiltered", strSql) DoCmd.OutputTo acOutputQuery, TempQdf.Name, acFormatXLSX, "", True, "", , acExportQualityPrint db.QueryDefs.Delete TempQdf.Name 'DoCmd.OutputTo acOutputQuery, "u", acFormatXLSX, "", True, "", , acExportQualityPrint End Sub بالتوفيق 123_1.accdb

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

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

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

معلمى العزيز @ابوخليل طالما سوف يتم النظر الى الشهر فيجب النظر الى الشهر والسنه معا اليس كذلك وعليه يجب تعديل السطر التالى ويتم الاستغناء عن الاستعلام qryAmountInMonth يجب ادخال التاريخ قبل المبلغ j = DSum("amount", "qryAmountInMonth", "emp_name=" & emp_name) الى j = Nz(DSum("amount", "salary", "emp_name=" & emp_name & " And Year([dated])=" & Year([dated]) & " And Month([dated])=" & Month([dated])), 0) delete2.accdb

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

اتفضل ابو اشرف ان شاء الله يكون ما تريد وتعديل عالكود Private Sub أمر36_Click() f = Me.salary_نموذج_فرعي!amount If f > Me.salary Then DoCmd.RunCommand acCmdDeleteRecord End If End Sub بالتوفيق delete2.accdb

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

وفيك بارك الله اخى @haniameen الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير بالنسبه للسؤال الاول سوف اتركك تحاول فيه حتى تتعلم وان شاء الله سوف تصل وان لم تعرف قدمناه لك بالنسبه للسؤال الثانى فعن نفسى اتعلمها من مساعده اخوانى السائلين بالموقع ومحاولة الاجابه على استفسارتهم ومن اخوانى واساتذتى هنا بالموقع جزاهم الله عنا كل خير وبالبحث هنا وهناك حتى فالمواقع الاجنبيه التى لا اطيقها ولكن الحمد لله ماشى الحال بالتوفيق اخى

وعليكم السلام استاذ @ازهر عبد العزيز مجرد فكره ربما تنفعك بالتوفيق qm.accdb