ابو البشر

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

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

أو ايضا مشاركة مع شيوخ الاكسس 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

شوف كدة ............................ طريقة ثانية ::::::::::::::::::::::: 123321.accdb

كلمة وانا بعيد عن الحاسب كفكرة ::: ممكن عمل استعلام توحيد في البداية ثم عمل استعلام تجميع والحاق للجدول الرابع

الاستاذ @ابو جودي (إنَّا للهِ وإنَّا إليه راجعونَ) اللهم ارحمه. (اللَّهمَّ اغفِرْ له وارحَمْه واعفُ عنه وأكرِمْ منزلَه وأوسِعْ مُدخَلَه واغسِلْه بالماءِ والثَّلجِ والبَردِ ونقِّه مِن الخطايا كما يُنقَّى الثوبُ الأبيضُ مِن الدَّنسِ لِلَّهِ ما أخَذَ وله ما أعْطَى، وكُلُّ شيءٍ عِنْدَهُ بأَجَلٍ مُسَمًّى، فَمُرْهَا فَلْتَصْبِرْ ولْتَحْتَسِبْ

ما شاء الله تبارك الله مسموح استاذي الكريم ... جاري التجربة

شكرا للجميع

وعليكم السلام ورحمة الله وبركاته قبل هذا وذاك ..... لم جعلت لعملية الارسال نموذجان ( الاول لرسائل البريد والاخر لرسائل الواتس ) ...... انظر لماذا لايتم الجمع بينهما في نموذج واحد مثل هذا ..... افضل حتى في كتابة الاوامر .... لأن المعتاد أن بيانات الطلاب كلها في جدول واحد اليس كذلك استاذ حمدي ؟؟؟؟؟

وعليكم السلام هي فعلا موجودة في جدول طالما انك ادخلتها بالفعل ..... انظر ....

ما شاء الله تبارك الله .... مبدع كعادتك ...

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

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

اخي الكريم ... لا تزعل من مناقشتي لك ... فقط ليطمأن قلبي ... والامر متروك لاحد المشرفين ان اذن فأبشر بالباس ننتظر السيد @jjafferr او السيد @أبو إبراهيم الغامدي اعطوني رأيكم حتى لا نخالف قوانين المنتدى

يخصك ولا تعرف الباس ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ انت تعرف اننا هنا لا ننتهك حقوق البرامج .... لذلك اعطنا دلائل على ان البرنامج يخصك ..... على الاقل لابد انت نسيك الباس للنموذج والتفعيل .... لكن هناك باس على محرر الاكواد هل نسيته ا يضا ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

وعليكم السلام .............. هل البرنامج يخصك """"""""""""؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

طبق الاتي حسب نوع الويندوز لديك انسخ الاداة RotateLabelVer2.ocx الى مجلد ::: C:\Windows\System32 اذا كان الويندوز لديك 32 bit أو الى C:\Windows\SysWOW64 اذا كان الويندوز لديك 64 bit ثم شغل الاداة benyasien المرفقة في نهاية الشرح كمسؤول وانتظر حتى ينتهى ................ ثم افتح برنامجك وستجد الاداة مسجلة ومفعله .... ملاحظة ::::: اعتقد لن تستطيع الكتابة بالعربية ::::::::::::: Desktop.rar