نجوم المشاركات

تفضل انظر المرفق <<<<<<<<< ولاحظ سحب البيانات من خلال البرنامج في جدول باسم نسخة ( طبعا انا نسختها حتى تشوف النتيجة ... لأن المشكلة من جهازك في عدم ظهور اسم الشعبة والمادة ) جرب المرفق لربما زالت تلم المشكله ,,,,, ‏‏Database.mdb

السلام عليكم ورحمة الله وبركاته كنت قد وضعت هذا المثال في منتدى الفريق العربي للبرمجة ، وأخي ابو الآ ما قصر وعمل نسخة منه الى هذا المنتدى (انا لم اكن من روّاد هذا المنتدى حينئذٍ) على هذا الرابط: http://www.officena.net/ib/topic/58001-منقول-هدية-برنامج-تصدير-بيانات-من-جداولاستعلامات-اكسس-الى-اكسل/ والآن ، وبعد عمل مجموعة تعديلات عليه واصبح في نسخته الخامسة ، واهمها ان البرنامج اصبح يعمل على 32بت و 64بت ، رأيت ان اضع البرنامج بين يديكم طريقة العمل هي كما في الرابط السابق (ولكن للأسف لا يمكن رؤية الصور التوضيحية هناك) ، فعليه ، سأقوم بعمل نسخة منه هنا مع الصور التوضيحية: رأيت الكثير من الاسئلة حول تصدير بيانات الاكسس الى الاكسل ، وكل سؤال يختلف عن غيره بطريقة او اخرى ، فحبيت ان اضع بين يديكم برنامج اشتغلت عليه ، واتمنى من الله سبحانه وتعالى انه يقدر يخدم الكل البرنامج سهل الاستعمال ، فكل المطلوب في الواجهة ، ولا تحتاج الذهاب للكود اولا: الواجهة: 1. تختار من مربع السرد ، جدول او استعلام ، 2. على اساس الاختيار في رقم 1 ، ستظهر لك قائمة باسماء الجداول او الاستعلامات في برنامجك ، 3. اسم ملف الاكسل المراد حفظه به ، ومجلد التخزين ، فتلقائيا يكون في نفس مجلد البرنامج ، 4. هنا تكتب اسم صفحة الاكسل التي تريدها (انظر الصورة في الاسفل) **1** تستطيع ان تصدر اي عدد من الصفحات الى اكسس (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم اسم صفحة جديدة) ، **2** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسل (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 5. تستطيع بدء تصدير البيانات الى اي خانة في اكسل مثل A2 او C5 او اي خانة اخرى ، **3** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسل (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 6. تستطيع ان تحفظ ملف الاكسل بالصيغ التاليه: "xls" او "xlsx" او "xlsm" او "xlsb" او "csv" او "txt" ، والصيغتين الاوليتين هما الاهم ، والصيغتين الاخيرتين بهم قيود معينة ، 7. تستطيع ان تختار المجلد الذي تريده ، مع كتابة اسم الملف المناسب لك (انظر الرقم 3 اعلاه) ، 8. تستطيع تصدير البيانات مع اسماء الحقول (في الاكسس) ، وتستطيع تصدير البيانات مع عناوين/مسميات الحقول (في الاكسس) ، نلاحظ اعلاه ، بان الجدول elemnts لا يحتوي على عناوين/مسميات الحقول بالعربي ، بينما الجدول elemnts2 يحتوي عليها ، وتستطيع تصدير البيانات فقط بدون اسماء الحقول ، 9. تستطيع ان تصدر البيانات الى ملف اكسل فيه بيانات سابقة ، وهنا تستطيع الاستفادة من الارقام 4 و 5 اعلاه ، او ان تحذف ملف الاكسل الموجود حاليا بنفس الاسم ، وتبدأ تصدير ملف جديد ، 10. بعد تصدير البيانات الى اكسل ، هل تريد إحتواء وتوسيع كل الاعمدة فيه ، حتى ترى كل البيانات بدون الحاجة الى توسيع كل عمود على حدة ، او لا تريد توسيع الاعمدة. 11. الزر الذي يقوم بعملية تصدير البيانات الى اكسل ، حسب الاختيارات اعلاه ، مع ملاحظة: يجب تعبئة الحقول داخل المربعات الحمراء ، اما بقية الحقول فإختيارية ، 12و 13. لجعل هذا البرنامج يعمل على اي من برامجكم الحاليه ، يجب تصدير النموذج frm_Export_to_Excel و الوحدة النمطية fFolder_Dialog اليها. طبعا هناك أفضلية تصدير البيانات من الاستعلام ، حيث تستطيع ان تتحطم بالبيانات المطلوب تصديرها. ملاحظات؟ اخطاء/عطل؟ إضافات؟ انا في الخدمة ، قدر المستطاع جعفر 7.Export_to_Excel_05.1.mdb.zip

بسم الله الرحمن الرحيم والصلاه والسلام على سيدنا محمد وآله وصحبه وسلم اخوانى واحبتى فى الله قد رأيت هذه الداله فى مثال قدمه اخى @خالد سيسكو واحببت مشاركتكم اياها لنتعلم سويا ونستفاد من تعليقات وتوضيحات اخواننا واساتذتنا جزاهم الله عنا كل خير شرح بسيط داله StrComp للمقارنه لها ثلاث برامتيرات 1 - النص الأول 2 - النص الثانى 3 - الاوبشين المراد StrComp ( string1, string2 [, compare ] ) compare = مقارنه 3 - الاوبشن يوجد له اربع قيم اختيارى هذا هو نوع المقارنة لأداء الخيارات الصحيحة هي: 1 - vbUseCompareOption { -1 } يستخدم الخيار مقارنة 2 - { 0 } vbBinaryCompare مقارنة ثنائية 3 - { 1 } vbTextCompare المقارنة النصية 4 - { 2 } vbDatabaseCompare مقارنة بناء على قاعدة البيانات الخاصة بك بالنسبه لقيمه النتيجه 0 تعنى النصوص متطابقه بالنسبه لقيمه النتيجه 1 تعنى ان النص الاول اكبر من النص الثانى بالنسبه لقيمه النتيجه -1 تعنى ان النص الثانى اكبر من النص الاول لا حظ النتيجه مختلفه بالرغم ان قيم النصين فى المره الاولى والثانيه متشابيهين ولكن اختلاف الاوبشين فالمقارنه قمت بالاستعانه بالبحث واليكم بعض الروابط https://support.office.com/ar-sa/article/الدالة-strcomp-a9a4531e-3b2a-4218-b139-f7442bc10b96?omkt=ar-SA&ui=ar-SA&rs=ar-SA&ad=SA https://bettersolutions.com/vba/strings-characters/option-compare.htm https://www.techonthenet.com/access/functions/string/strcomp.php وبشرح فيديو هو شرح ل PHP اتمنى ان اكون قد قدمت لكم معلومه مفيده واسال الله ان تنتفعوا بها وان قصرت فاعذرونى فاننى مبتدء واحاول جاهدا التعلم قدر الامكان المثال الاول واللذى استفدت منه هذه الداله لمقارنه الباسورد والمثال الثانى حاجه بسيطه لزوم الشرح وفى الاخير نسالكم الدعاء تقبلوا تحياتى وتمنياتى لكم جميعا بالتوفيق والنجاح طبتم واهتديتم اظهار كلمة المرور.rar StrCompText.mdb

اظهار واخفاء جزء من UserForm الفيديو

السلام عليكم ورحمة الله وبركاته زملائي وأخوتي الأفاضل محاولة مني بعمل فورم بحث وإضافة وتعديل في كل أوراق العمل اختيار اسم ورقة العمل عن طريق كمبوبوكس بعد ذلك متاح لك البحث والإضافة في اسم ورقة العمل المختارة كل الليبل التي أمام التكست بوكسات التي يوضع فيها البيانات التي سوف سيتم إضافتها أو ترحيلها تأخذ اسماءها من الصف الخامس من ورقة العمل النشطة في حالة إذا تم فتح الفورم وإليكم الملف فورم بحث وإضافة وتعديل في كل أوراق العمل.xlsm

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

وعليكم السلام تم تغيير زر ترقية ليعمل على نسخ البيانات من الملاك إلى ترقية جرب المرفق وإذا خصل أي خطأ يتم التصحيح ثم ننتقل للخطوة القادمة تفضل 2نظام_الملاك_2019.xlsm

جزاكم الله خيرا جميعا الاستاذ خالد والاستاذ Barna والاستاذ احمد

هل المواد الاخرى مضبوطة لديك الان المشكلة فقط في مواد الطبيعة والحاسب والانجليزي فقط اذا كان نعم جرب الملف بعد التعديل ........ ‏‏Database1 (3).rar

تفضل الملف جاهز MAGAZIN.xlsx

اخي الكريم الكود الموجود في البرنامج حسب ملفات الاكسل الموجودة في الموضوع جرب على ملفات الاكسل الموجودة في الموضوع وأعلمني بالنتيجة يبدو أن الملفات التي تجرب عليها فيها اختلاف .....

جرب الملف المرفق ووافينا بالنتيجة ....... ‏‏Database1 (3).rar

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

هلا ارفقت لنا ملف اكسل يحوي تلك التغيرات حتى ننظر في امكانية سحب البيانات منها .....

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

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

أخي الكريم دائما استخدم خاصية البحث في المنتدى ..... تجد الكثير من الموضوعات المشابهه لموضوعك ..... تفضل الشق الأول من مطلوبك .... حاول تصمم تقرر بالمطلوب واستخدم خاصية التنسيق الشرطي في التقرير ..... Database1.mdb

صورة متحركة بداخل ملف الاكسل عام 2020 سعيد عليكم الفيديو

بارك الله فيك استاذنا الكريم

المطلوب غير واضح أحد عناصر الفورم ( ناقص ) محاولة مني على حسب فهمي تفضل لعله يفي الغرض نسخة المرسلة في المنتدى الخاصة بالصندوق.xls

أستاذي الأفاضل أ / حسين مامون و أ / علي محمد علي و أ / مجدي يونس و أ /a.kawkab أشكرك لمروك العطر بارك الله فيكم و أ /a.kawkab إضافة رائعة بارك الله فيك

عمل رائع استاذ احمد بارك الله فيك ولكن وجدت ملاحطتين 1- عند التنقل بين الاوراق عن طريق الكومبوبوكس لاتتغير البيانات فى الليست بوكس 2-عند التنقل بين الاوراق والتكست بوكس غير فارغة يعطى خطأ لذلك قمت بهذا التعديل البسيط :- 1- فى حدث UserForm_Activate اضفت هذه الجزئية For i = 1 To 15 ""=Controls("textbox" & i).Text Next i ListBox1.Clear 2-فى حدث ComboBox1_Change وضعت هذه الجزئية UserForm_Activate وتلاشى الخطأ لا اعرف هل هذة الملحوطه ظهرت عندى فقط ام ظهرت عند احد اخر مرفق الملف بعد التعديل وشكرا لمجهوداتكم فورم بحث وإضافة وتعديل في كل أوراق العمل1.xlsm

في المرفقات مثال بسيط بناء على طلبكم يقبل البحث بهمزة وبدون والالف المقصورة مع اليا والتاء المربوطة مع الهاء Database78.accdb

شاهد المرفق !_example_2.rar

لماذا تم اخفاء الصفحات وكيف لنا ان نحدد من أين تأتي البييانات

الاخ ميلاد طارق شاهد المرفق !_Omar_2.xls

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

افتح محرر الاكواد وانظر المكتبة الموجودة في الصورة هل هي مؤشر عليها صح ....

وعليكم السلام ورحمة الله وبركاته اخي الكريم غير اسم الجدول set الى اي اسم اخر وليكن مثلا set1 لتكون جملة sql كالتالي ctype = " select * from set1 where ([rashaqa]='" & Me.a & "')" تحياتي

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

!_Omar_1.rarالاخ ميلاد طارق شاهد المرفق !_Omar_1.rar

جرب الملف المرفق واعلمني بالنتيجة ....... ‏‏Database1 (3).rar بالنسبة لحقل الشعبة والمادة ( قم بتغيير اسم الملف عندك من ‏‏Database الى اي اسم اخر مثلا ‏‏Database1 )

الاخ احمد بدرة اكيد عمل رائع اهلا باعمالك من جديد

الاخ Fahad141 شاهد المرفق example_1.rar

اضغط هنا للتحميل المباشر

موضوع قيم بالفعل بارك الله فيك وزادك الله من فضله

يكررها ببساطه لان ملفات الاكسس الى رسلتها انت مكرر فيها الاسماء

استاذ احمد بدره ماشاء الله عمل رائع بارك الله فيك وحفظك اللهم اجعل هذا العمل صدقة جارية تحياتي

لا لزوم للحلقات التكراري في هذه الجالة يكفي هذا الكود البسيط Sub Fill_Empty() Range("B2:F6").SpecialCells(4) = "/" End Sub

ضع هذا الكود في حدث thisworkbook Option Explicit Private Sub Workbook_Open() On Error Resume Next Dim x, r Dim ws As Worksheet Set ws = Sheets("ورقة1") For x = 2 To 6 For r = 2 To 6 If ws.Cells(x, r) = "" Then ws.Cells(x, r) = "/" End If Next Next End Sub وهذا في حدث الشيت Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim rng Set rng = Range("b2:f6") If Not Intersect(Target, rng) Is Nothing Then If Target = "" Then Target = "/" End If End Sub

انظر اثر الكود على ملفات الاكسل الموجودة في الموضوع >>>>>>>

وعليكم السلام-بعد اذن استاذنا الكبير سليم ,تم عمل كل اللازم بالنسبة لصفحة حساب سائق , من معادلات وقوائم منسدلة لجلب البيانات كما تريد من صفحة data كما تم وضع كود بمعادلة تفقيط بالملف 2020_-_1.xlsm

انظر جدولك المسمى mark ليس لك علاقة بجدول Temp3

لك هذا ...... تم ذكر اسمكم الكريم ولم يتم ذركر الرابط للمنتدي اما رابط الشرح ( مع طريقة تشغيل البرنامج حسب فهمي ) https://youtu.be/zAUXmXZKd1M وسوف يتم تلافي هذه النقاط في المرة القادمة ان شاء الله

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

وعليكم السلام هناك 3 طرق للتعرف على الحقل الذي قيمته Null (لا قيمة ، او قيمة غير معروفة) ، سنعمل على هذا جدول ، ولاحظ السجلات الفاضية: . في الطريقة الاولى (IsNull) قلنا اذا الحقل Null ، فاعطنا النتيجة 0 ، في الطريقة الثانية (Len) قلنا اذا عدد حروف الحقل تساوي صفر ، فاعطنا النتيجة 1 ، . والنتيجة: . لكن الامر الاكثر إتباعا هو Nz ، ومعناه Null to Zero ، والامر هو NZ([Field_Name], Value to Replace)Q ، واليك 4 امثلة عليه: 1. الطريقة الخطأ في استعمال الامر ، حيث لم نخبر الامر النتيجة التي نريدها في حال اكتشف ان الحقل فاضي ، 2. اذا كان الحقل Null ، فحول نتيجة الحقل الى 0 (وهذه الطريقة الاكثر اتباعا) ، 3. وممكن ان ، اذا كان الحقل Null ، فحول نتيجة الحقل الى 1 (او اي قيمة ثابته) ، 4. والقليل يعرف ، اذا كان الحقل Null ، فتستطيع ان تعطي اي قيمة/معادلة شئت للحقل (لاحظ انا ضرب قيمة الحقل Field1 في 100 وفي 200 ، حسب قيمة Field1) ، وحتى يمكننا ان نستدعي دالة Function : . والنتيجة: . جعفر 292.Nulls.mdb.zip

تفضل 3 طرق لتصفح الانترنت من الاكسس ، والبحث عن اسم الطالب في Google.com . وهذا كود الازرار: Private Sub cmd_FollowHyperlink_Click() url_address = "http://www.google.com/search?lr=lang_ar&cr=&hl=ar&ie=windows-1256&oe=windows-1256&q=" Application.FollowHyperlink url_address & Me!name End Sub Private Sub cmd_ie_Click() Dim ie As Object Set ie = CreateObject("internetexplorer.application") url_address = "http://www.google.com/search?lr=lang_ar&cr=&hl=ar&ie=windows-1256&oe=windows-1256&q=" ie.Visible = True ie.Navigate url_address & Me!name End Sub Private Sub cmd_objIE_Click() 'Reference to Microsfot Internet Controls 'c:\windows\system32\ieFrame.dll Dim web As WebBrowser Set web = Me.objIE.Object url_address = "http://www.google.com/search?lr=lang_ar&cr=&hl=ar&ie=windows-1256&oe=windows-1256&q=" web.Silent = True 'stop script errors web.Navigate url_address & Me!name End Sub جعفر 255.web.accdb.zip

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

تفضل مثال بالمرفقات db16.zip

وعليكم السلام ورحمة الله وبركاته اخي الكريم اذا كنت تريد العمل مع خلال نموذج فيمكنك استبدال نوع الحقل من عدد تلقائي autonumber الى عدد number وداخل النموذج المتعلق بهذا الجدول اكتب الكود التالي في الحدث event المسمى before update اي قبل التحديث . الكود me.feild name=nz(DMax("[feild name]", "table name"), 0)+1 حيث ان me.feild name اسم الحقل في النموذج (الذي تريد اجراء عملية الزيادة عليه ) feild name اسم الحقل في الجدول table name اسم الجدول