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

لقد وجت الحل تعديل الكود الى : Const ForReading = 1, ForWriting = 2, ForAppending = 3 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Dim rst As DAO.Recordset Dim fs, f, ts, s ActiveControl.Hyperlink.CreateNewDocument "E:\LotusNotes_VCard.vcf", True, True Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile("E:\LotusNotes_VCard.vcf") Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault) Set rst = CurrentDb.OpenRecordset("Cus_Invetion") rst.MoveFirst Do Until rst.EOF ts.writeLine "BEGIN:VCARD" ts.writeLine "VERSION:2.1" ts.writeLine "FN:" & rst![Inv_Name] ts.writeLine "TEL;CELL;VOICE:" & rst![Inv_Mobile] ts.writeLine "END:VCARD" rst.MoveNext Loop rst.Close ts.Close

هنا قاعدة بيانات اكواد VBA للاكسل مع الشرح والامثلة ((( مرجع للجميع ))) السلام عليكم ورحمة الله وبركاته الفكر من الموضوع عمل قاعدة بيانات باكواد VBA للاكسل مع الشرح والامثلة ((( تكون مرجع للجميع ))) امل من الجميع اثراء الموضوع ....

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

تفضل ........ CompactExternalDatabase_1.mdb

وعليكم السلام ورحمة الله وبركاته تفضل ::بالتوفيق:: تمكين الحقل 2.accdb

أخي قد يكون هذا طلبك جرب المثال CompactExternalDatabase.mdb

السلام عليكم ورحمة الله وبركاته طاب صباحكم بكل خير في المثال المرفق ( كود في قمة الروعة ولكن ... ) كود تنبيه بالحقول الفارغة في السجل عند إدخال بيانات حيث لا يمكن فتح سجل جديد إلا بعد تعبئتها ،،، وفي حال إنهاء التطبيق وهي لم تكتمل يتم عرض رسالة تنبيه بالحقل او الحقول اللتي لم تكتمل ثم يتم حذف السجل .. وهذا جيد ولكــــن .... المطلوب : هل يمكن التعديل على هذا الأمر بحيث لا يتم الحذف إلا بعد رسالة أخرى ( نعم للمتابعة والحذف و لا للعودة للسجل ) ولكم جزيل الشكر ‫‫‫Great_But_1.rar

أخي قد يكون هذا طلبك

فضلك بحاجة إلى عشرات التقييمات .... لا أعلم كيف وصلت سقف التقييم اليوم

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

كل الشكر والتقدير لك استاذنا الكريم مبدع .......توقعت الاجابة منك استاذي الكريم ( سليم حاصبيا )

جرب هذا الكود Sub MOU3ADDAL() With Range("f2").Resize(Range("a1").CurrentRegion.Rows.Count - 1) .Formula = "=AVERAGE(C2:E2)" .NumberFormat = "0.00" .Value = .Value End With End Sub

وعليكم السلام ورحمة الله وبركاتة أخي ابو زاهر يمكنك استخدام ضغط عند الاغلاق خيارات > قاعدة البيانات الحالية > ضغط عند الاغلاف ::بالتوفيق::

وعليكم السلام ورحمة الله وبركاتة تفضل ::بالتوفيق:: إذا كنت ترى هذه المشاركة مفيدة فلا تنسى التقييم ‫‫‫Great_But_1.،9061.rar

وعليكم السلام ورحمه الله وبركاته تفضل وقم بالضغط علي زر جلب البيانات شروط واجب توافرها 1- قمت باضافة شيت اسمه فنكشن لا تقم بمسحه 2- يجب تعريف جميع التواريخ الخاصة بالوجبات في " جدول المتغيرات الاساسية " اي لا يكون هناك تواريخ غير موجودة مثل شهر واحد الخلاصة وفر جميع البيانات هذا الامر غاية في الاهمية ارجو ان اكون قد وفقت في المطلوب تحياتي TEST MEALS.xlsm

وعليكم السلام ورحمة الله وبركاتة أخي الكريم كلنا هنا طلبة علم حتى استاتنا في المنتدى مازالوا يطلبون العلم فالعلم بحر لانهاية له وكل مافتحت منه باب انفتح لك من خلفه الف باب أولا ادعوك الى هذا الرابط ففيه من الدروس والامثلة ما سيعينك في طلبك ثانيا تابع مايطرح من استفسارات وأمثلة في المنتدى وحاول معرفة كيف يتم التعامل معها ::بالتوفيق::

أحسن الله اليك أخي وائل