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

السلام عليكم بعد اذن الأساتذة ,يمكنك تجربة هذا استاذى الكريم 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

اقدم لكم برنامج من خلاله تستطيعون تفعيل او الغاء الشفت لبرامجكم . 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

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

السلام عليكم المثال الاول اللي عملته لك كان بشرطين معا ( الاسم والعمر) انظر اخي للمرفق استعلامات بشرط واحد فقط بين الجدولين A- استعلام للاسماء المتشابهه (المكررة). B- استعلام للارقام المتشابهة (المكررة). اتمنى يكون المطلوب التكرار-2.rar

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

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

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

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

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

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

اخى الفاضل يرجى تعديل بياناتك بالموقع حتى نعرف كيف نناديك باسمك يرجى وضع مثال للعمل عليه لتسهيل الامور على اخوانك واساتذتنا فى مساعدتك ارفق لك مثال اطلع عليه لعلك تستفيد منه فى طلبك وجزاها الله خيرا ام عهود تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق 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 واحاول معكم على قدر فهمى لاتعلم منكم ومعكم وتسلم ايدك على الاكواد الرائعه والبسيطه وجزاك الله خيرا على مشاركتك معنا لنتعلم منكم فمازلنا نحبو على الطريق تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

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

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

Try this File My_sarch.xlsm

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

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

وعليكم السلام 🙂 الآن نظرت الى الموضوع بالكامل ، واضطررت ان اغير الامر ، لأن الامر السابق يصدر تسمية الحقول (باللغة العربية) ، بينما لما نستوردهم ، لما يعمل مقارنة اسماء الحقول بالتي موجودة في الجدول ، يرى انها مختلفة ، فتظهر رسالة تقول بأن الحقل الفلاني غير موجود في الجدول !! هذا الكود الجديد: Private Sub cmd_Delete_Records_Click() Dim strSQL As String strSQL = "DELETE [tbl_Teacher].* FROM [tbl_Teacher];" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True End Sub Private Sub cmd_Export_Click() Dim ImportFileName As String ImportFileName = CurrentProject.Path & "\tbl_Teacher" & ".xls" DoCmd.TransferSpreadsheet acExport, 8, "tbl_Teacher", ImportFileName, True End Sub Private Sub cmd_Import_Click() Dim ImportFileName As String ImportFileName = CurrentProject.Path & "\tbl_Teacher" & ".xls" DoCmd.TransferSpreadsheet acImport, 8, "tbl_Teacher", ImportFileName, True End Sub جعفر 1153.db2.zip

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

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

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

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

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