abouelhassan

استاذى الحبيب بارك الله فيك يارب هنا فى العرض اختارنا السنة المالية وممكن التاريخ من الى واختارنا عرض ظهرت البيانات تمام وعند الضغط على ملخص الحسابات ممتاز تمام جدااا عرض اول تاريخ واخر تاريخ وكل شئ ممتاز جدااااا التعديل البسيط فقط لو امكن استاذى هنا اختارنا الحساب صرف والعميل عميل جديد1 واختارنا عرض عرض تمام التمام اريد فى هذه الحالة وهى اختيارحساب وعميل ان يظهر ملخص الحسابات او حساب فقط بدون عميل نوع الحساب صرف اضافة عمود فى ملخص الحساب اسمه اسم العميل ويظهر فيه عميل جديد1 يكون بالشكل سطر واحد مجمع اسم الحساب ومجموع الدائن ومجموع المدين والرصيد نوع الحساب اسم العميل دائن مدين الرصيد صرف عميل جديد1 3600 2000 1600 تجميعات 3600 2000 1600 مثل هذا اما لو لم اختار اسم حساب و وعميل او حساب فقط بدون عميل يعرض كما هو الان تمام يعنى لو اختارنا عرض بدلالة اسم الحساب فقط او اسم الحساب والعميل يظهر الملخص اسم الحساب ومجموع الدائن والمدين والرصيد سواء اخترت تاريخ من او لم كما هو الان تمام التعديل فقط اذا اختارنا حساب للعرض شكر وتقدير وخالص الدعاء من القلب والله العظيم الدائن و المدين.rar

روعة تسلم ايدك استاذنا والشكر للاستاذ محمد ابو عبدالله احترامى

السلام عليكم اساتذتى الافاضل وضعت الكود تمام الحمد لله اصبح يعمل تمام تحت زر اسمه back up ولكن لدى زر خروج اردت عند الضغط على خروج ان يعمل الكود استخدمت الكود حيث ان backub_click هو اسم كود النسخة الاحتياطية بس لم يعمل مع الغلق Private Sub BtnExit_Click() Call Backub_Click DoCmd.Quit End Sub هل امر call غلط شاكر فضلكم اخواتى الاساتذة الافاضل

تسلم ايدك استاذى الحبيب husamwahab تمام جدااااا ربنا يحفظك يارب ويديك الصحة والعافية يارب ويعزك دائما كل الشكر والتقدير وخالص الاحترام من اخيك

اشكرك استاذى الحبيب ممكن بعد اذنك شرح اوى اعمله ربنا يحفظك يارب ويديك الصحة والعافية

السلام عليكم استاذى husamwahab @husamwahab كل عام وحضرتك بكل خير اعتذر لحضرتك هذه المشكلة مش عارف احلها منذ اهديتنى الفورم فى مثال حضرت يعمل تمام ام بالقاعدة لدى لدى هذه المشكلة ارجو توضيح سببها لو امكن اخى فى الله ارضت اضافة حساب جديد هنا فى رقم4 الحساب اسمه مالك ماجد مثلا تم اضافة الحساب تمام كما بالصورة فى مكانه رقم 4 تمام عندما اذهب الى الجدول اجد الحساب رقمه مضبوط تمام بس مش فى مكانه اجد انه اخر حساب وبجانبه رقم الصحيح عكس المثال الموجود بالاعلى فى مشاركة حضرتك بعد تنفيذ نفس الكلام بالضبط اجد ان الحساب فى الجدول موجود رقم 4 فى مكانه وهذه صورة من القاعدة بمشاركة حضرتك الحساب فى مكانه تمام ممكن حضرتك تساعدنى فى سبب المشكلة بارك الله في استاذى الغالى 22f22.rar

شكر وتقدير واحترام من اخيك استاذنا

بميزان حسناتك يارب وكل من ساهم ربنا يكرمه يارب

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

كل عام وانتم بخير يارب

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

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

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

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

شكر وتقدير واحترام من اخيك استاذنا

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

اشكرك استاذى أ / محمد صالح بارك الله فيك وظادك من فضله اللهم امين احترامى لك اخى

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

مشكور استاذى أ / محمد صالح بارك الله فيك اخى ما احتاجه ان اضغط استعراض واحدد مكان ملف الاكسيل اضغط استيراد يستورد البيانات وعند الضغط على استيراد وكان المسار فارغ تخرج رسالة يجب تحديد مسار ملف الاكسيل انا حاولت اعملته الان بعد ما كتبت هذه الجملة بالكود Call FileDialog_Click الضغط على استيراد يفتح جدول تحديد المسار هذا غير مطلوب اخى كمان بعد ظهور الدول واختيار cancel اجد الاتى تم استيراد بيانات فارغة كمان الرسالة ظهرت عند التصدير التعديلات المطلوبة على الكود الاستيراد عند الضغط على زر استيراد تظهر رسالة يجب تحديد مسار الملف وعند اختيار cancel لا يتم استيراد شئ وتظل البيانات القديمة كما هى لايتم مسحها التصدير عند النجاح فى تصدير الملف لا تظهر رسالة مشكلة بالتصدير شاكر فضلك استاذ محمد ربنا يرضى عنك اخى بارك الله فيك اخى الكريم

مشكور استاذى أ / محمد صالح اتنفذ المسار بس فى مشكلتين قابلتنى مع الكود الان عن الضغط على استيراد حتى دون تحديد المسار لملف الاكسيل يتم استيراد البيانات وعند التصدير كل مرة تخرج لى رسالة حدث مشكلة فى التصدير كمان الان لا يوجد دور لمسار الملف الذى باعلى الزرين استيراد وتصدير اسم الملف الاكسيل اريده باسم قاعدة البيانات الان اسمه tbl_Items.xlsx بارك الله فيك اخى الكريم DATA10041.mdb

بارك الله فيك استاذ محمد للاسف لم يعمل Private Sub estrad_Click() On Error Resume Next Dim ImpEX As String Dim strSQL As String ' ÍÐÝ ãÍÊæíÇÊ ÇáÌÏæá strSQL = "DELETE tbl1.* FROM tbl_Items;" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True ' ÇÓÊíÑÇÏ ÌÏæá ÇáÅßÓá Åáì ÌÏæá ÇáÃßÓÓ ÇáãØáæÈ If Me.FilePath = "" Then MsgBox "íÌÈ ÊÍÏíÏ ãÓÇÑ ÇáãáÝ ÇæáÇð", vbCritical + vbMsgBoxRight, "ÊäÈíå" Call FileDialog_Click Exit Sub End If ImpEX = Me.FilePath.Value ' ImpEX = CurrentProject.Path & "\" & "tbl_Items.XLSX" DoCmd.TransferSpreadsheet acImport, 8, "tbl_Items", ImpEX, True MsgBox "ÃßÓÓ ÇÓÊæÑÏ ÇáÈíÇäÇÊ ÇáãØáæÈÉ ãä ãáÝ ÅßÓá ÈäÌÇÍ" End Sub وعند الضغط على استيراد لم يطلب تحديد مسار الملف الذى سيتم الاستيراد منه شكر وتقدير من القلب

ربنا يكرمك استاذى الحبيب محمد أبوعبدالله حفظك الله ورعاك وبارك فيك بارك الله فيك اخى الكريم استاذ أ / محمد صالح زادك الله من فضله استاذى اردت عمل اضافة للكود فى حالة ان المسار فارغ وضغطت استورد يخرج رسالة يجب تحديد مسار الملف اولا ووضعت الشرط والرسالة فى اول الكود بس للاسف لم يعمل كمان اريد تغير اسم الملف الاكسيل بدل tbl_Items.XLSX الى اسم قاعدة البيانات ربنا يكرمك استاذى الغالى بارك الله فيك On Error Resume Next Dim ImpEX As String Dim strSQL As String ' ÍÐÝ ãÍÊæíÇÊ ÇáÌÏæá strSQL = "DELETE tbl1.* FROM tbl_Items;" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True ' If FilePath = "" Then MsgBox " يجب تحديد مسار الملف اولا", vbCritical + vbMsgBoxRight, "تنبيه" End If ImpEX = Me.FilePath.Value ' ImpEX = CurrentProject.Path & "\" & "tbl_Items.XLSX" DoCmd.TransferSpreadsheet acImport, 8, "tbl_Items", ImpEX, True MsgBox "اكسس استورد البيانات المطلوبة من ملف اكسيل بنجاح"

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

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

السلام عليكم ورحمة الله اخوانى الافاضل لدى فورم اسمه frm_Itemsيحتوى على كل البيانات من خلال البحث وجدت بالمنتدى كودين ممتازين احدهم للتصدير للاكسيل والثانى الاستيراد من اكسيل الى الاكسيس Private Sub Command137_Click() On Error Resume Next Dim ImpEX As String Dim strSQL As String ' حذف محتويات الجدول strSQL = "DELETE tbl1.* FROM tbl_Items;" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True 'استيراد جدول الاكسيل الى الاكسيس ImpEX = CurrentProject.Path & "\" & "tbl_Items.XLSX" DoCmd.TransferSpreadsheet acImport, 8, "tbl_Items", ImpEX, True MsgBox "تم استيراد البيانات من الاكسيل بنجاح" End Sub Private Sub Command138_Click() On Error Resume Next Dim ExpEX As String ExpEX = CurrentProject.Path & "\" & "tbl_Items.XLSX" MsgBox "تم تصدير البيانات الى الاكسيل بنجاح" ' DoCmd.OutputTo acOutputTable, "tbl_Items", acFormatXLSX, ExpEX, True ' فى حالة عدم الرغبة فى اظهار الملف DoCmd.OutputTo acOutputTable, "tbl_Items", acFormatXLSX, ExpEX, False End Sub استخدمتهم وهم يعملان تمام بس احتاج لتعديل وهو تحديد مكان حفظ الملف والملف المستورد الى الاكسيس عند الضغط على زر استعراض كمان الملف يكون اسمه مثل اسم قاعدة البيانات مش مثل الجدول الان عند الضغط على زر استيراد يستورد البيانات من الملف بجانب القاعدة ويصدر البيانات الى ملف بجوار القاعدة اريد تعديل بحيث اختار مكان ملف الاكسيل من استعراض بارك الله فيكم جميعا يارب DATA10041.mdb