abouelhassan

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

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

مشكور استاذى أ / محمد صالح بارك الله فيك اخى ما احتاجه ان اضغط استعراض واحدد مكان ملف الاكسيل اضغط استيراد يستورد البيانات وعند الضغط على استيراد وكان المسار فارغ تخرج رسالة يجب تحديد مسار ملف الاكسيل انا حاولت اعملته الان بعد ما كتبت هذه الجملة بالكود 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

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

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

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

ممتاز استاذنا kanoryتسلم ايدك ربنا يكرمك يارب

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

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

مشكور اخي الكريم وجزاك الله خير الجزاء

بارك الله فيك استاذى الغالى حبيبي @د.كاف يار هذا الكود هو احد ابداعاتك الكثيرة وهو الكود الاول الذى كنت اريد اضافة YEAR له وبيسبب لى مشكلة انه عند تشابه رقم المستند يخرج رسالة الحساب متكرر If Nz(DCount("[iPage]", "tbl_Items", "[iBill_Number] Like '" & iBill_Number & "' AND [iPage]=" & iPage), 0) <> 0 Then انا حاولت بس يخرج الكود رسالة خطأ مااريده بسيط عليكم ان شاء الله فقط ان يقوم بالبحث داخل فورم الترحيل ليس كل الجدول كما شرحت لحضرتك هنا اريد تغير الى بدل ان يعمل على tbl_items وكل هذا فقط يبحث بالفورم نفسه frm_items_entry وعندم يجد مثل هنا الحساب النقدية اختارته مرتين هنا بالخطا ينبهنى ان الحساب مكرر بغض النظر ان الرقم 111 مكرر او المخزن او اى شى فقط انه فى الفورم نفسه حساب مكرر اكثر من مرة ربنا يحفظك يارب وال بيتك اجمعين اللهم امين

شكر وتقدير واحترام لك اخى استاذ @kanory تسلم ايدك استفادنا كثيرا

انا حاولت التعديل فى الكود بس برده فى كل الاحوال تخرج رسالة فشل الاختيار تم ادخال الحساب مسبقا بالتغير الى If Nz(DCount("[iPage]", "frm_Items_Entry")) <> 0 Then Private Sub iPage_AfterUpdate() On Error Resume Next If Nz(DCount("[iPage]", "frm_Items_Entry")) <> 0 Then MsgBox "فشل الاختيار" & vbNewLine & "تم ادخال هذا الحساب مسبقا", vbCritical + vbMsgBoxRight, "تنبيه" Me.iPage.SetFocus Exit Sub Else DoCmd.GoToRecord , , acNewRec Me.iName.SetFocus End If End Sub احترامى الشديد

بارك الله فيك استاذنا الفاضل احترام وتقدير من اخيك

استاذى الحبيب @د.كاف يار الكود يبحث داخل الجدول الرئيسى ويخرج الرسالة اذا كان الحساب متكرر بدلالة الرقم والسنة المالية Private Sub iPage_AfterUpdate() On Error Resume Next If Nz(DCount("[iPage]", "tbl_Items", "[iBill_Number] Like '" & iBill_Number & "' AND [iPage]=" & iPage), 0) <> 0 Then MsgBox "فشل الاختيار" & vbNewLine & "تم ادخال هذا الحساب مسبقا", vbCritical + vbMsgBoxRight, "تنبيه" Me.iPage.SetFocus Exit Sub Else DoCmd.GoToRecord , , acNewRec Me.iName.SetFocus End If End Sub بس سبب لى مشاكل باستمرار الان تخرج لى رسالة الحساب مكرر حتى لو مش مكرر فى الفورم فبالبحث داخل جدول البيانات يصدف تكرار الحساب احتاج ان يعمل الكود فقط على الحساب فى الفورم ترحيل دون الرجوع ل جدول البيانات الرئيسى فقط فى مثل هذه الحالة يخرج رسالة تنبيه الحساب مكرر معلش استاذى احترامى الشديد وخالص دعائى لشخصك الكريم جدا اخى DATA14-1.mdb

الكود ممتاز استاذى بارك الله فيك وجزاك خير الدارين يارب تسلم ايد استاذى بارك الله فيك كود رائع حفظك الله ورعاك

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

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

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