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

السلام عليكم بعد اذن الأساتذة ,يمكنك تجربة هذا استاذى الكريم Uploading to Google drive using VBA?

سلمت يداك استاذنا الفاضل @Barna تحياتي

السلام عليكم جرب المرفق ListBox Test.rar تحياتي

جرب هذا لعله يفي الغرض المصنف3.xlsx

تفضل اخي الكريم Private Sub Command0_Click() If MsgBox("هل تريد اجراء نسخة احتياطية من البرنامج؟", _ vbQuestion + vbYesNo, _ "نسخة احتياطية") = vbYes Then On Error Resume Next Dim OldFile As String, DBwithEXT, DBwithoutEXT, NewFile As String, CopyMyDB Dim fs, cf, strFolder strFolder = CurrentProject.Path & "\Backup" Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(strFolder) = False Then Set cf = fs.CreateFolder(strFolder) End If OldFile = CurrentDb.Name StrNew = CurrentProject.Path & "\Backup" DBwithEXT = Dir(OldFile) DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 6) If [BKUP] = True Then NewFile = StrNew & "\" & DBwithoutEXT & "-" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-Ss-AMPM") & Right(DBwithEXT, 6) CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 Exit Sub End If End If Backup_2.rar تحياتي

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

وهذه مشاركة مع أخي @محمد ابوعبد الله ....... ListBox Test.rar

https://www.officena.net/ib/topic/89446-اضافة-قيم-غلى-listbox-في-اكسيس/ اخي الكريم رجع هذا الربط

الاخ الكريم بارك الله فيك

الله يسعدك ضبط معي الكود ربي يرزقك يا استاذ احمد

عليك السلام ورحمة الله وبركاته جرب هذا المصنف2.xlsx

بعد إذن أستاذنا الفاضل سليم لإثراء الموضوع جرب هذا عن طريق تكست بوكس البحث.xlsm

السلام عليكم ورحمة الله وبركاتة في مووضوع سابق طرحته بالمنتدى حذرت من موضوع اخفاء الجداول المرتبطه لما يسببه من مشاكل وأخطاء تحذير من إستخدام كود إخفاء الجداول المرتبطة فأخذت افكرفي ايجاد طريقة لحماية كائنات قاعدة البيانات كافة من وصول المستخدم ومن ضمنها عدم وصول المستخدم لكلمة سر قاعدة البيانات الخلفية والتي تكون مخزنة بالجدول MsysObjects فلم أجد افضل من طريقة وضع كلمة سر لقاعدة البيانات بشرط أن تكون بصيغة accdb أو accde هنا لن يتمكن المستخدم من تفعيل الشفت ببرنامج خارجي ولن يتمكن من الوصول الى الكائنات وهذا كان سبب طرحي لموضوع هل لديك تجربه لكسر كلمة سر قاعدة بيانات ؟ وقد اكد استاذنا @jjafferr صعوبة الحصول على الرقم السري لمثل هذا النوع من قواعد البيانات فقررت وضع كلمة السر لقواعد البيانات !!!!!!! لكن ماهو الحل مع المستخدم ؟ هل سنقوم بتسليمه كلمة السر ليستخدم قاعدة البيانات اذا كأننا لمن نصنع شئ ففكرت بإيجاد وسيط نقوم بتسليمه كلمة السر ويكون هو الوسيط بين المستخدم والبرنامج ( الواجهة ) اذا الوسيط سنضعه جنب البرنامج ونأمره بفتح البرنامج للمستخدم اذا اراد استخدامه بدون أن يفصح له عن كلمة السر بالمرفق يوجد ملفين ملف قاعدة البيانات الاساس Start محمي بكلمة سر والاخر الوسيط الذي سنقوم بمن خلاله فتح البرنامج StartDatabes. بعد تمرير كلمة السر اليه والملفين تم تحويلهما الى صيغة accde بعد تنزيل المرفق اجعل الملفيين في مجلد واحد وشغل الملف StartDatabes ملاحظة من المحتمل ان تظهر لديك رسالة في بدأ التشغيل لا يمكن قراءة مشروع Vba هنا اعتقد يجب أن يكون الوندوز لديك محدث بأخر تحديث ويجب أن تكون حزمة Microsoft .NET Framework محدثة بأخر اصدار حسب لغة الوندوز ونوعه عندك او كما يوجد لدي انا عندي الحزمة Microsoft .NET Framework 4.5.1 windos 10 office10 أخر تحديث ارجو التجربه ونتمنى الاستفاده للجميع Free.rar -------------------------------------- ملاحظات جعفر 14-7-2021 : بعد ان تم حذف الملف الاصل ، اصبح من الصعب على بعض الاعضاء متابعة الموضوع ، لذا ، وبعد إذن الاخ @kaser906 فعملت ملفاته مرة اخرى وارفقتها هنا: 1. الملف Locked.zip ، وهو الملف النهائي والذي سيتم تسليمه للزبون ، وهو الملف الذي يجب ان يجربه الاعضاء ، وفيه ملفين بصيغة accde ، 2. الملف Locked_Open_Source.zip ، يحتوي على ملفات مفتوحة المصدر ، بصيغة accdb ، والتي حولناها الى ملفي رقم 1 علاه ، 3. الملف Open_Source.zip ،يحتوي على نفس ملفي رقم 2 اعلاه بصيغة accdb ، ولكن بدون تجهيزهم لتحويلهم لصيغة accde . Locked.zip Locked_Open_Source.zip Open_Source.zip

اقدم لكم برنامج من خلاله تستطيعون تفعيل او الغاء الشفت لبرامجكم . Shift.rar

السلام عليكم اقدم لكم هذه الطريقة التي اتوقع انها جديدة بحيث يتم تلوين نتيجة البحث في الحقول لتمييزها مرفق صور ومرفق قاعدة البيانات أي سؤال او استفسار جاهزين للاجابة عليه ان شاء الله بحث مع الوان.accdb

السلام عليكم ورحمة الله تعالى وبركاته احبائى اقدم لكم هذه الاداة البسيطة ذات الفائدة الكبيرة احيانا تحدث مشكلة عند تشغيل قاعدة بياناتك على بعض الأجهزة وذلك بسبب كتابة الحروف العربية داخل محرر الاكواد اثناء التصميم حتى وإن كانت ملاحظات وتلميحات وتم تعطيلها وبين طيات نقاش طويل بينى وبين استاذى الجليل ومعلمى القدير ووالدى الحبيب الاستاذ @jjafferr نصحنى وشدد على بــــ عدم كتابة اى احرف عربية داخل المحرر حتى وان كانت ملاحظات او تلميحات فسألته : وماذا ان اردنا كتابة رسالة باللغة العربية فأجابنى : بعمل جدول ليتم كتابة ما تريد باللغة العربية وتستدعيه وقت الحاجة فكرت وحاولت وبفضل الله تعالى ثم مساندة أستاذى الجليل فيما تعثرت فيه وتوصلت الى ذلك ولكن هناك شقين 1- الموضوع مرهق قليلا ويتطلب وقت وجهد كبيرين 2- بالرغم من النقطة السابقة الا انه ممتع جدا جدا جدا وبرغم صعوبته اثناء التصميم الا انه يعطى مرونه فى تغيير الرسائل بدون الرجوع الى محرر الاكواد وطبعا قد لا يستطيع البعض تحقيق ذلك لذلك فكرت فى بديل وكانت بفضل الله تلك الاداة البسيطة التى اضعها الان بين اياديكم شرح الاداة نكتب ما نريد فى المكان المخصص للغة العربية ونقوم بتحويل ما كتبناه الى الترميز العالمى نقوم بعمل نسخ الترميز العالمى الى محرر الاكواد داخل قاعدتك فى المكان المحدد لذلك من واقع الصورة الجزء الأيمن 1 >>---> المكان المخصص لكتابة اللغة العربية 2 >>---> زر الامر الذى يقوم بتحويل ما تم كتابتة الى الترميز العالمى Unicode 3 >>---> زر الامر الذى يقوم بنسخ الاحرف التى تم تحويلها الى الترميز العالمي الجزء الأيسر A >>---> لصق الترميز العالمى الذى قمت بنسخه من اى قاعدة بيانات تم استخدام هذا الترميز فيها من قبل B >>---> زر الامر الذى يقوم بتحويل الترميز العالمى Unicode الى اللغة العربية لتستطيع قراته مرفق لكم الاداة + قاعدة تجربة انتظر تجربتكم وافادتكم تم تعديل المرفق فى تمام الساعة 7:44 م بتوقيت القاهرة - تاريخ 23/09/2019 Converter Arabic and Unicode.zip Converter Arabic and Unicode.mdb

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

سؤال أستاذ أحمد : الأخت زهرة وجدت لها مشاركات في منتدى آخر لا أذكر اسمه فهل لها مشاركات في هذا المنتدى باسم آخر ؟

مشكورين جميعا على المرور تم حل الموضوع

انا اللي بعتذر لحضرتك تعبتك معايا الكود تمام كما هو مطلوب وافضل الحمد لله 🌹 جزاكم الله خيرا

اتمنى ان يكون ما تريد في المرفق واعتذر تجربة (2) (2).xlsm

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

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

اخى الفاضل يرجى تعديل بياناتك بالموقع حتى نعرف كيف نناديك باسمك يرجى وضع مثال للعمل عليه لتسهيل الامور على اخوانك واساتذتنا فى مساعدتك ارفق لك مثال اطلع عليه لعلك تستفيد منه فى طلبك وجزاها الله خيرا ام عهود تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق za-test-UP.rar

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

جرب المرفق قمت باضافة تصميم اخر في ورقة1 لان تصميمك فيه خلايا مدمجة ان اعجبك ذلك يمكنك العمل عليه هناك كودين واحد لمنع الترحيل عند عدم اكمال البيانات في الصف والثاني للترحيل والافراغ المحتويات تحياتي تجربة (2).xlsm

اشكرك على صبرك ودعمك لي جزاك الله خير اخي احمد

تم تصحيح المعادلة الموجودة بـ CommandButton1_Click المبيعات.xlsm

خالص الشكر للسادة الخبراء والاعضاء الافاضل ِ

بالاضافة الى ما تفضل به استاذنا الفاضل @أحمد الفلاحجى وله الشكر تفضل اخي الكريم استبدال الاحرف التي يوجد له مشابه كحرف ( ة ) و ( ه ) Private Sub t5_Exit(Cancel As Integer) Me.t5 = Replace([t5], "أ", "ا") Me.t5 = Replace([t5], "إ", "ا") Me.t5 = Replace([t5], "إ", "ا") Me.t5 = Replace([t5], "آ", "ا") Me.t5 = Replace([t5], "ة", "ه") Me.t5 = Replace([t5], "ي", "ى") Me.salah.Form.Filter = "ForSearch([TitleBook]) Like '*' & '" & t5 & "' & '*'" Me.salah.Form.FilterOn = True End Sub 1029.نموذج بحث.rar تحياتي

الله يوفقك يارب ويرزقك

شرح عمل تكست بوكس داخل ورقة العمل أولا ظهور قائمة المطور كما بالصورة ثانيًا كيفية إدارج تكست بوكس في ورقة العمل كما بالصورة الثانية ثالثا كيفية وضع الكود في الصورة الثالثة الكود موجود في الملف السابق

اخي أبو أشرف بيض الله وجهك والله يسعدك في الدنيا والاخره😘

وعليكم السلام المطلوب ليس بالسهل او الهين فهو صعب

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

وفيك بارك الله اخى @Abu Farid واحاول معكم على قدر فهمى لاتعلم منكم ومعكم وتسلم ايدك على الاكواد الرائعه والبسيطه وجزاك الله خيرا على مشاركتك معنا لنتعلم منكم فمازلنا نحبو على الطريق تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

بالتوفيق .....

تحت امرك اخي لم يكن هناك اي ازعاج تحياتي لك

هذه معادلة ضفيف ويمكنك تعديل المدي في المعادلة وطبعا الاقواس ستنحذف يمكنك ارجاع الاقواس بالضغظ على ctrl+shift+enter تحياتي

تفضل التعديل اخي الكريم تنسيق شرطي لمعرفة الاشتراكات.accdb

أ.عبدالعزيز محمد جرب المرفق عسى أن يكون ما طلبت .. عذرا إن كانت الطريقة قديمة شويتين .. ولكن الجودة بالموجوده 😃 Aziz.accdb

السلام عليكم المطلوب : تنفيذ امر الاخفاء والاظهار بزر امر واحد بحيث اول كبسة على الزر يقوم بالاخفاء ويتغير اسم الزر الى اظهار الكبسة الثانية على نفس الزر يقوم بالاظهار ويتحول اسمه الى اخفاء hide_show.accdb

السلام عليكم ... في قاعدة بيانات أكسس إذا حذفت سجلات معيّنة فإن الرقيم التلقائي لا يعيد الترقيم من جديد ، بمعني إذا كانت 5 سجلات و خذفت السجل 1 و 3 فإن السجلات الموجودة في قاعدة البيانات تكون مرقمة 2 ، 4 ، 5 هل من طريقة لحل هذا الإشكال بحيث يعاد الترقيم من جديد ( قاعدة بيانات مرفقة ) الترقيم التلقائي.rar

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

جزاكم الله خيرا تم اضافة طريقة ثانية الى المشاركة الاصلية باستخدام دالة >>----> TempVars

الله يسعدك ويزرقك ويجعلك للمتقين اماما ً اسأل الله تعالى ان يحسن اليكم كما تحسنون الى طلاب العلم امثالى شكر الله لكم استاذى الجليل

السلام عليكم ورحمة الله وبركاتة اهلا بكم الاخوة الافاضل وكل عام وانتم بخير بحلول شهر رمضان الكريم اعادة الله علينا جميعا بالخير واليمن والبركات وجعله الله فى ميزان حسناتنا جميعا اقدم إليكم اليوم برنامج جميل وظريف يهم كل من يرأس إتحاد ملاك وحدة سكنية. -------------------- اسم البرنامج : Owners Union رقم الأصدار : 1.0 المبرمج : almaistro وصف البرنامج : هذا البرنامج خاص لرئاسة إتحاد الملاك بحيث ينظم عملية الدفع الخاصة بصيانة المنشأة من اسانسير وصرف صحى وكهرباء وخلافة مع إمكانية استخراج كشف حساب لكل مالك شقة على حدة صورة البرنامج التحميل هنا OU.rar

السلام عليكم أخي الكريم في المرفقات ملف يقوم بما تطلب وللأمانة فإن هذا الملف قمت بتحميله من أحد المنتديات , لا أذكر أيها ولا أذكر اسم صاحبها , جزاه الله خيراً وجعله في ميزان حسناته. فكرة البرنامج : قم بإضافة النموذج والجدول إلى قاعدة بياناتك التي تريد مراقبتها , وعند فتح قاعدة البيانات يقوم بتشغيل هذا النموذج ثم يغلقه فيقوم بإضافة بيانات المستخدم إلى جدول دون أن يشعر. والسلام عليكم ________________.rar

الاخ hageb تحياتى اخى المتسعجل جدا لم يكن اخى سهوا او تجاهلا حاشى لله ولكنها الحياة فلسنا متفرغين لذلك فقط . شاهد المرفق يالصيغة فقط وليس بالكود وهى طريقة ظريفة جدا اعجبتنى كثيرا بعد اتمامها . لعلها تشفع لى تأخرى عليك تحياتى اخى أبو أنس VLOOKUP_2_Find_All.rar

السلام عليكم إخواني وأخواتي ، بارك الله فيكم جميعاً درسنا اليوم حول نفس الموضوع السابق وهو استنساخ مجموعة التسجيلات بواسطة Recordsetclone ولكن هذه المرة مع ADO . قد يظن البعض أن الأمر في غاية البساطة وذلك باستخدم نفس المثال السابق مع تغيير السطر التعريف الأساسي Dim rstEmployees As DAO.Recordset إلى Dim rstEmployees ADODB.Recordset حسناً هكذا يبدو الأمر ، جربوه ولن ينجح حيث ستحصلون في الجملة Set rstEmployees = Me.Form.RecordsetClone على الخطأ Type mismatch أي أن الأنواع غير متوافقة يعني المجموعة المستنسخة من نوع أخر وهذا صحيح ! ، أنسيتم السطرين السابقين باللون الأحمر ، فأنا لم ألونهما جزافاً واعيدهما هنا مرة أخرى للتذكير من المهم ملاحظة أن نوع مجموعة التسجيلات التي يتم تعريفها في وضع التصميم في قاعدة البيانات mdb. هي بشكل تلقائي DAO Recordset ، أما في مشروع أكسيس فتكون ADO Recordset إذاً هذا هو السبب أن مصدر السجلات الذي عرفنه في النموذج والذي سيمثل مجموعة التسجيلات سيكون من النوع DAO . حسناً ، الحل بسيط نرجع للمراجع ونجعل مرجع ADO يسبق مرجع DAO بالتعريف وهكذا يتم تحديد نوع مجموعة التسجيلات من نوع ADO ، جربوه وللأسف لن ينجح ، و ياليت الحل كان بهذه البساطة! ماذا نجري الأن ؟ لم يبقى لنا إلا أن نفعل شيء واحد ونأمل أن ينجح وهو حذف المرجع DAO (عدم اختياره من ضمن المراجع) ، جربوا ذلك ، ويا للعجب ، حتى أننا بعد حذف المرجع كاملا لم يتم تعريف مجموعة التسجلات المرتبطة بالنموذج من نوع ADO . ماذا سنعمل إذن ، أولا سنحفظ القاعدة التي في اللون الأحمر حتى لا نتعب أنفسنا أكثر حيث لا يوجد طريقة نهائيا في وضع التصميم لجعل النموذج يرتبط بمجموعة تسجيلات غير DAO . ثأنيا ، لا تبتأسوا كثيرا حيث يوجد حل وهو رائع جدا وهو كما يلي وأيضاً يمكن اعتباره قاعدة ويجب حفظه غيباً. إذا أردنا أن نجعل مجموعة التسجيلات لنموذج في قاعدة mdb. تعمل بتقنية ADO يجب عمل الخطوات الثلاث التالية. 1. في وضع التصميم للنموذج نلغي مصدر السجل Record source للنموذج (أي نجعله بدون مصدر) . 2. في حدث الفتح للنموذج نضع الكود التالي بدون تغيير سوى بمصدر السجل الذي هو في مثالنا جدول employees : Private Sub Form_Open(Cancel As Integer) Dim rst As ADODB.Recordset, cn As ADODB.Connection Set rst = New ADODB.Recordset rst.ActiveConnection = CurrentProject.Connection rst.CursorType = adOpenDynamic rst.CursorLocation = adUseClient rst.Open "employees", , adOpenKeyset, adLockOptimistic, adCmdTable Set Me.Recordset = rst End Sub 3. في حدث الإغلاق للنموذج نضع الكود التالي : Private Sub Form_Close() Dim cn As ADODB.Connection Set cn = Me.Recordset.ActiveConnection cn.Close Set cn = Nothing End Sub وبعدها سيختفي الخطأ Type mismatch الذي تحدثنا عنه في بداية الدرس وإليكم الحل كاملا كما طرحته تماما هنا في المرفق التالي : مع احترامي وتقديري لكم RecordsetLesson2.rar