ابو البشر

اتأسف لأني اشغلتكم معي بارك الله فيكم جميعا جاري المشاهدة للفيديو .... جزاك الله خيرا

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

ههههههههه 👀

جاري التطبيق ... بارك الله فيكم

كنت ولازلت انسان اتعلم وبسيط لا ارتقى الى شريف علمكم بارك الله فيك 😉 نعم لان البرنامج كان يعمل ... ولازال يعمل على اوفيس 2007 ويندوز 7 جهازي حاليا :: ويندوز 10 64Bit اوفيس 19

تفضل <>><>< هههههه Relink.rar

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

اشكركم اساتذتي @ازهر عبد العزيز @jjafferr @ابوبسمله هذي كلها اعرفها بارك الله فيكم ولكن كان السبب في السؤال .... كان لدي هذه القطعة من الكود وكانت تعمل في البرنامج ..... الان اصبحت لا تعمل ؟؟؟ فهل اختلاف الاوفيس او الويندوز له علاقة A.OpenCurrentDatabase Dpath A.CurrentDb.Properties("StartUpForm") = "Form.frm-UserLogon" طبعا A هي قاعدة خارجية

جزاك الله اخي @ازهر عبد العزيز اريدة بالكود ..... ليتم تعديله بدون اللجوء لشاشة الخصائص

السلام عليكم ورحمة الله وبركاته هل يمكن معرفة ان القاعدة في خصائصها نموذج بدء تشغيل ؟ ام لا ؟ كيف يمكن تعديل هذا النموذج الى نموذج اخر ؟؟ بارك الله في جهودكم مرفق قاعدة للتعديل عليها a.accdb

نعم صحيح ... فاتني ذلك ...

وهذا شكل الجدول بعد الاستيراد ووضع بعض البيانات به

في الجدول وبعد الاستيراد غير موجود !!!!

في تفصيل التقرير وفي حدث عند التنسيق وضعنا نفس الكود الموجود في النموذج الخاص بالصورة انظر الصور للشرح ..........

جرب كده ............. Desktop.rar

يعني انت تحتاج اسماء الحقول فقط

واياك استاذي الفاضل

أو ايضا مشاركة مع شيوخ الاكسس MsgBox "لا توجد بيانات في التقرير", , "تنبيه" DoCmd.CancelEvent

طيب جرب كده ...... Dim x3, x4 x3 = CurrentProject.Path & "\" & "0125" & ".xls" 'اكتب اسم الجدول المراد انشاءه x4 = "جدول جديد" DoCmd.TransferSpreadsheet acImport, 10, x4, x3, True, ""

تريد استيراد من الاكسل ام تصدير للاكسل ؟؟؟ لان ملف الاكسل ليس فيه بيانات ؟؟؟؟

طيب جرب كده .................. Relink.rar

طيب جرب واخبرنا ................... linktable.rar

طيب سؤال ::: انا شايف في الملفات اختلاف اسم الجدول .... فهل اسم الجدول في الملفات مشابه لاسم الجدول في الملف العام أم هناك اختلافات في الاسماء ؟؟؟

تفضل مثالك حسب طلبك .... كلام شيخنا صحيح ... InvoiceSale_9.rar

في حدث زر حذف الفاتورة استخدم هذا ...... جرب ... If MsgBox(" هـــل تـــريـــد حـذف فاتورة ", vbOKCancel, "! تـأكـيـد ") = vbOK Then DoCmd.SetWarnings False DoCmd.GoToRecord , , acFirst For i = 1 To Me.Recordset.RecordCount [Forms]![InvoiceHT_F]![InvoiceHT_SubF].SetFocus DoCmd.RunSQL "UPDATE ItemsT SET ItemsT.QuantityA = Nz([ItemsT].[QuantityA])+Nz([Forms]![InvoiceHT_F]![InvoiceHT_SubF].[Form]![QuantityS]) WHERE (((ItemsT.ItemID)=Nz([Forms]![InvoiceHT_F]![InvoiceHT_SubF].[Form]![ItemID])));" DoCmd.GoToRecord , , acNext Next i Me.Refresh SysCmd acSysCmdClearStatus End If DoCmd.RunSQL "DELETE InvoiceTT.InvoiceNum FROM InvoiceTT WHERE (((InvoiceTT.InvoiceNum)=Nz([Forms]![InvoiceHT_F]![InvoiceNum])))" DoCmd.SetWarnings True