رمهان

شوي استاذ عبدالفتاح .. الراجل لسا مارد بس ماشاء الله عليك قرات اللي في بالي . ولكن بما نك شرفتنا : اريد التوسعة لسجل واحد فقط . ثم اغلاق التوسعه لنفس السجل ؟ تحياتي

تنبيه بسيط : اصبح الرقم شكلا فقط وليس قيمة . فلو دخل الناتج في عمليات حسابيه او جمع اجمالي قد تحصل على نتيجة غير متوقعه تحياتي

اخي ابو عمار وبعد اذن اخي الحبيب ابا جودي انت تريد التركيز على نموذج فرعي حفيد يعني ابن ابن طبعا يمكن ولكن نريد ان نعرف لماذا ؟ اقصد تريد التركيز لماذا ؟ هل تقصد اظهر السجلات بمثابة الضغط على + ؟ ام ماذا تحياتي

ما ادري هل ستفيدك ام لا بالتوفيق

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

في ال accdb تكون الريكورد ست معرفه بشكل صريح ك dao recordset فتكون التعريف في الوحدة النمطية dim rs as dao.recordset بالتوفيق

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

انظر التعديل في الجزئية من الكود ' Import the data from each worksheet into the table For lngCount = colWorksheets.Count To 1 Step -1 If DCount("[Name]", "MSysObjects", "[Name] = '" & colWorksheets(lngCount) & "'") = 1 Then CurrentDb.TableDefs.Delete colWorksheets(lngCount) DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _ strTable, strPathFile, blnHasFieldNames, colWorksheets(lngCount) & "$" Next lngCount بدون ما اجرب وان شاء الله تمام بالتوفيق

وكل عام وانتم بخير ابا جودي تقبل الله منا ومنكم صالج الاعمال

بالتوفيق طباعة مرفقات.rar

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

بالنسبة للتنقل 1. التالي Me.مستندات.Forward 2. السابق Me.مستندات.Back وبالنسبة للتقرير صمم تقرير عادي مصدره الجدول ثم اسحب المرفق للتقرير بالتفصيل وكبر حجم العنصر ليناسب حجم الصفحة بالتوفيق

جرب Private Sub comm_add_Click() 'If Me.taxt_date1 > Me.txtHijriDate Then 'MsgBox " áã íÓÊßãá ÈÚÏ ãÏÉ ÇáÊÑÞíÉ", vbCritical, "SOFT SAMPLE" 'Else taxt_now = 2 ''DoCmd.RunCommand acCmdSaveRecord DoCmd.GoToRecord , , acNewRec id_emp = Me.Parent!id_e 'End If End Sub مع العلم ان طريقتك بها خطورة نوعا ما وهي لو ضغط زر الاضافة غيرمتعمد او ضغطه ولم يكتب شيئا فانه سيتم تعديل الرتيه الاخيره وهي مازالت الرتيه الاخيره بالتوفيق

ماذا تعني هذه القيمة؟ لماذا اسناد القيمة قبل الانتقال ؟ تحياتي

دوختنا شوية شقلبة يسيطة في سطرين الاضافة لتصبح Private Sub comm_add_Click() 'If Me.taxt_date1 > Me.txtHijriDate Then 'MsgBox " áã íÓÊßãá ÈÚÏ ãÏÉ ÇáÊÑÞíÉ", vbCritical, "SOFT SAMPLE" 'Else DoCmd.GoToRecord , , acNewRec taxt_now = 2 'End If End Sub انشاء الله تنحل وتحياتي

جميل جدا ماهوه لما بتجتمع مبرمج ومصمم ما شاء الله بتطلع حاجات جديده

اعتذر ابا جودي لم اكن على اطلاع بمرفقك

Private Sub Form_Current() Me.AllowEdits = CurrentRecord = Me.RecordsetClone.RecordCount Me.AllowDeletions = Me.AllowEdits End Sub تحياتي للجميع

السلام عليكم هنا مشاركات يمكن لها علاقة كما انه اعتقد انه لابد من فتح التقرير او عمل نسخة منه في الذاكرة وهنا: 1. طريقة فتح التقرير في وضع التصميم غير مناسبه وخصوصا اذا تم تحويل القاعده الى mde او accde والاصح فتحه مع تمرير باراميتر الاخفاء ليكون مخفي ويمكن كذلك والافضل تعديل مصدر بياناته الى لاشي حتى لا يتم تحميل البيانات وبدون حاجه 2. هناك فكرة غير العنوان وهي الوصف والتي يمكن كتابنها بالماوس الايمن على التقرير ثم خصائص ثم اكتب وصف للتقرير وهنا يمكن قراءة اسم التقرير ووصقه دون الحاجة الى فتحه تقبلو تحياتي تعديل على الملف باول مشاركة اضافة جدول واضافة كمبو بالنموذج تقبلو تحياتي كود أسماء كل التقارير.rar

كلام سليم 100 % ويمكن الاستغناء عن الاستعلام نهائيا والعمل على مصدر التقرير تحياتي

تسلم وانت الاروع

فيك الخير كله والبركه يا اميييييير

يمكنك وضع مصدر التقرير الاستعلام contss مباشرة ثم هذا الكود لفتح التقرير Private Sub CmdRunQuery_Click() DoCmd.OpenReport "Q_fahad", acViewPreview, , "Sumãäduration " & [Forms]![Fahad]![ch3] End Sub لان انشاء الاستعلام ثم حذفه قد يضخم القاعده وخصوصا لو تم عدة مرات في الجلسة الواحده بالتوفيق

شهادة اعتز بها ووسام على صدري تحياتي

جرب عزيزي subform1.SetFocus For i = 0 To subform1.Form.RecordsetClone.RecordCount subform1!ImagePath = Replace(subform1!ImagePath, Left(subform1!ImagePath, InStrRev(subform1!ImagePath, "\") - 1), DLookup("pate", "IETEM_NEM", "ITEM_NO=" & subform1!emp_id)) DoCmd.GoToRecord , , acGoTo, i + Abs(i <> subform1.Form.RecordsetClone.RecordCount) Next بالتوفيق