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

العفو يا صاحبي .. لا تنس الضغط على أفضل إجابة .. حتى يعلم أن الموضوع تمت الإجابة عليه وحصل المطلوب .

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

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

تفضل ووافنا بالنتيجة .. فيلتر.accdb

تفضل أخي 11.mdb

ممكن ان يكون المطلوب Tawati.xlsm

لا يمكن اخفاء خلية أو مجموعة خلايا يمكن فقط اخفاء عامود أو عدة اعمدة صف أو عدة صفوف

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

تقبل الله منا و منكم الطاعات

بسم الله الرحمن الرحيم تحت شعار كنت قد رفعته سابقا "أتمنى وجود جيل من المبرمجين العرب قادر على الابتكار والمنافسة" أبدأ معكم إخوتي وأحبابي نظرا لما وجدته في الإخوة والأساتذة المهتمين (مثلي) ببرمجة وتصميم المواقع وبرمجة الأكسس والفيجوال بيسك من الاهتمام بالأداة التي تقوم بتحويل قواعد البيانات أكسس إلى ملف sql يمكن استيراده من داخل phpmyadmin ويتم التعامل معه على أنه قاعدة بيانات mysql ونظرا لما لاحظته من الرغبة في عمل البرنامج كمحول لقواعد بيانات mysql المتمثلة في ملف sql وتحويله إلى قاعدة بيانات أكسس توكلت على الله واستعنت به على قضاء حاجتي وحوائج إخواني وأخواتي واليوم أعرض لكم برنامج محول الماس لقواعد بيانات أكسس و ماي إس كيو إل (الإصدار الأول) حيث يحول البرنامج قواعد بيانات أكسس إلى mysql بمجرد الضغط على الزر واختيار قاعدة البيانات المطلوب تحويلها ويقوم أيضا بتحويل ملف sql إلى قاعدة بيانات أكسس وبها الجداول والسجلات الموجودة في ملف sql وبانتظار ملاحظاتكم واقتراحاتكم لتطوير هذه الأداة حجمها 208 كيلو بايت التي تقوم بعمل برنامج DBConvert for Access & MySQL والذي ثمنه 79 دولار وحجمه 17.5 ميجا بايت تقريبا وهذه صفحته وفقنا الله وإياكم إلى كل ما يحبه ويرضاه أخوكم أبو عبد الله محمد صالح mas-access&mysql-converter.rar

السلام عليكم اخوتي الكرام كيف يمكن توزيع جلوس الطلاب ضمن الشروط التالية: 1- المقعد الواحد يجلس فيه طالبان كل طالب من صف 2- القاعة الواحدة تحتوي على 17 مقعد اي ممكن ان تضم 34 طالب ( تتكون القاعة من قطاعين ) 3- ان لايجلس طالبان من صفين بينهما مادة مشتركة ( اي يدرسون نفس المادة ) 4- يمكن أن تستوعب قاعة الاختبار كحد أقصى 30 طالب 5-ترتيب جلوس طلاب الصف الواحد خلف بعضهم وشرط أن لا يتجاور طالبان من نفس الصف توزيع.mdb

وعليكم السلام اخى @ازهر عبد العزيز هل هذا ما تريد ؟ بالتوفيق اخى New Microsoft Access Database (5) - Copy.accdb

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 🌷 والشكر موصول لاخى @فايز.. وهو من يستحق افضل اجابه 🌷 بالتوفيق اخوانى

شكرا استاذ ( فايز ) استاذ ( احمد الفلاحجى )

تفضل عدل تاريخ الكمبيوتر ومن ثم نشط الخلية b2 dt .xlsm

تفضل معادلة صففيف بدون حساب التواريخ المكررة تواتي 19.xlsx

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

مرحبا بعودتك اخى @Abu Farid وكل عام وانت بخير عيدكم مبارك 🌷 جزاك الله خيرا

وعليكم السلام اخى @Ahmed_J بالنسبه ل val فهى لتحويل الرقم من قيمه نصيه الى قيمه رقميه هل هذا ما تريد؟ TEST.accdb

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

وعليكم السلام 🙂 الموقع الذي ارفقت انت رابطه يقول ، بأنه يجب ان يكون عندك ادوبي اكروبات الكامل ، وليس برنامج القراءة : في الرابط التالي ستجد البرنامج المطلوب وطريقة العمل: جعفر

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

وعليكم السلام هل هذا ما تريد ؟ TEST.rar

يمكنك استخدام هذه المعادلة للغيابات الصباحية أما بالنسبة للمسائية فقط عليك استبدال حرف ص وتغييره الى مـ ملحوظة : يمكنك تغيير ايضاً التواريخ التى تريد حساب الغيابات من خلالها وذلك من الخليتين F1 & G1 بصفحة Info =SUMPRODUCT((maroc[[#Headers],[01/06/2020]:[10/06/2020]]>=$F$1)*(maroc[[#Headers],[01/06/2020]:[10/06/2020]]<=$G$1)*(maroc[nom]=$A2)*(maroc[[01/06/2020]:[10/06/2020]]="ص")) anas2021.xlsx

بعد اذن استاذ سليم ولإثراء الموضوع Tawati2.xlsm

تم إضافة مسح النطاق من a2 : p27 بعد الترحيل ترحيل واستدعاء.xlsm

تم وضع عمود اسم الشييت في العمود R جرب هذا ترحيل واستدعاء.xlsm

أخي ابو الحسن كل عام وأنتم بخير اسعدتني المشاركة وخصوصاً أن لي بصمة فيها 🙂

وانت بالف خير استاذنا / @husamwahab رهيب جدا هذا الكود وصغير جدا ولكن ممكن توضيح من حضرتك بعض الشئ الذى فهمته من الكود : If DataErr = 3022 Then انه فى حالة خطأ فى الداتا الاستجابة تساوى صفر لكن ما معنى الرقم 3022 وهل لوكتبته لاى كود يعطى نفس المعنى جزاكم الله خيرا

جربي هذ التعديل وانشاء الله سيعمل Private Sub CommandButton2_Click() n7 = (n6 + n5.Value) End Sub

السلام عليكم احبتي كل عام وانتم بالف خير مشاركة مع اساتذتي Root50.rar

وكل عام وأنتم بخير وتقبل الله طاعتكم وشكرا لك التهنئة اخي احمد

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

تقصد هذا : مثال للتعديل4.accdb

اعدريني لقد اغفلت الاشهر والسنوات ولم اقم الا بالايام المفترض ان يعمل جربي هذا التعديل Private Sub CommandButton2_Click() n7 = DateAdd("d", n5.Text, n6) n7 = DateAdd("M", n4.Text, n6) n7 = DateAdd("YYYY", n3.Text, n6) End Sub

المشكلة في المعادلة لاجمالي الكسور الموجودة كمصدر بيانات بمربع النص (نص35) المفروض تكون : =([tt1]-[نص33]) وبعدين من خصائص مربع النص Properties ومن تبويب تنسيق Format اجعل : المنازل العشرية Decimal Places = Auto أو = 2 حسب ما ترعب مثال للتعديل 3.accdb

أخي الفاضل، بعد ما تنفذ الخطوات اللي تطرق لها الأستاذ أحمد اضف التواريخ في الملف المرفق حددها واضغط على الزر اللي داخل الملف. اللي بيصير وقتها إن الملف تلقائيا بيحرر كل خلية ويضغط إنتر تلقائيا، فبالتالي بتتحدث الخلايا وتتعرف على التاريخ الهجري تحياتي F2 and Enter.rar

خلينا نتابع موضوع تنصيب النواتين على الرابط اعلاه 🙂 جعفر

تفضل أخي رمضان كريم (C1)اخي الكريم فقط اضف القائمة المنسدلة في الخلية من شيت قائمة الزبائن أو انسخ والصق اسم الزبون الارشيف.xls

أستاذ / القول المأثور المعادلة الأخيرة لا يمكن أن تحسب الصفوف المخفية وإن كثر عدد الصفوف

فقط استبدل الرقم 9 واجعله 109 في نفس الدالة دالة sumifs 1مع الفلترة.xlsx

وعليكم السلام 🙂 تفضل ، الكود : Private Sub code_BeforeUpdate(Cancel As Integer) If Len(Me.code & "") <> 0 And Left(Me.code, 1) = 3 Then MsgBox "الرقم يبدأ بالرقم 3" End If End Sub . والاسم : Private Sub name_BeforeUpdate(Cancel As Integer) If Len(Me![name] & "") <> 0 And Left(Me![name], 1) = "S" Then MsgBox "الاسم يبدأ بالحرف S" End If End Sub جعفر 1220.CodeName.mdb.zip

الى اخي ابو احمد وكل من اهتم بالموضوع ان يقوم باعتماد هذا المرفق لانه يحتوى على كل التعديلات الصحيحه واظن ان طلبك يا ابو احمد موجود بالمرفق PHONE BOOK.rar 1 من فضلكم واحد بحمل الملف ويرفعه على رابط اخر سهل مش عارف والله احمله

وعليكم السلام طالما انك لم تقم برفع ملف وشرح المطلوب بكل دقة فكان عليك استخدام خاصية البحث في المنتدى تفضل هذه الروابط قد تفيدك https://www.officena.net/ib/topic/54033-برنامج-الشيكات-مع-التقارير-الاصدار-الثاني-ضاحي-الغريب/?tab=comments#comment-340520 https://www.officena.net/ib/topic/45958-كيفيه-طباعة-الشيك-من-ذلك-النموذج/?tab=comments#comment-272771 وهذا نموذج أيضا بسيط وهذا أيضا برنامج جاهز لإدارة الشيكات bank_cheque_software.xls cheques_management_برنامج_ادارة_الشيكات.rar

الاخوة الكرام فى هذا الصرح العظيم استكمالا لما بدأناه على هذا الرابط http://www.officena.net/ib/topic/63474-الترحيل-بواسطة-refedit1/ أقدم لكم ملف به يوزر فورم للترحيل 1- تقوم أنت باختيار النطاق المراد ترحيله 2 -ثم اختيار الصفحه المراد الترحيل لها(الملف المرفق به عدد 2 شيت يمكن اضافة شيتات اخرى ومن ثم تظهر فى الفورم) 3- ثم اختيار الخليه المراد بدايه اللصق عندها او اختيار عمود محدد للصق جرب المرفق ولا تنسونا من صالح دعائكم باقى افكار اخرى لهذا الموضوع لتطويره والوصول الى ما هو افضل تقبلوا تحياتى واحترامى لكم الترحيل بواسطة RefEdit.zip

إخواني الكرام إليكم الإصدار الأخير من مكتبة الصرح .. Codes Library v1.9.6.rar

كود لعمل نسخة من الشيت الأصلى Sub Copy_ActiveSheet_1() 'Working in Excel 97-2013 Dim FileExtStr As String Dim FileFormatNum As Long Dim Sourcewb As Workbook Dim Destwb As Workbook Dim TempFilePath As String Dim TempFileName As String With Application .ScreenUpdating = False .EnableEvents = False End With Set Sourcewb = ActiveWorkbook 'Copy the sheet to a new workbook ActiveSheet.Copy Set Destwb = ActiveWorkbook 'Determine the Excel version and file extension/format With Destwb If Val(Application.Version) < 12 Then 'You use Excel 97-2003 FileExtStr = ".xls": FileFormatNum = -4143 Else 'You use Excel 2007-2013 Select Case Sourcewb.FileFormat Case 51: FileExtStr = ".xlsx": FileFormatNum = 51 Case 52: If .HasVBProject Then FileExtStr = ".xlsm": FileFormatNum = 52 Else FileExtStr = ".xlsx": FileFormatNum = 51 End If Case 56: FileExtStr = ".xls": FileFormatNum = 56 Case Else: FileExtStr = ".xlsb": FileFormatNum = 50 End Select End If End With ' 'Change all cells in the worksheet to values if you want ' With Destwb.Sheets(1).UsedRange ' .Cells.Copy ' .Cells.PasteSpecial xlPasteValues ' .Cells(1).Select ' End With ' Application.CutCopyMode = False 'Save the new workbook and close it TempFilePath = Application.DefaultFilePath & "\" TempFileName = "Part of " & Sourcewb.Name & " " & Format(Now, "yyyy-mm-dd hh-mm-ss") With Destwb .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum .Close SaveChanges:=False End With MsgBox "You can find the new file in " & TempFilePath With Application .ScreenUpdating = True .EnableEvents = True End With End Sub

السلام عليكم اخي abouelhssan تم عمل تلوين لاول خلية في صف كل من صفحة منه و له و تم عمل شرط لعدم ترحيل او لغاء عندما تضغط علي الخلية مرتان لعد الدبلره و ند الضغط بالخطا تعطيك رسالة تبين لك انه تم الترحيل او الالغاء تم الاخذ في الاعتبار ان الاسماء في شيت البواقي قد تكون مكررة فتم عمل المقارنة بين جمي الخلايا في شيت منه و ما يقابلها في شيت البواقي لحذف الصف المماثل في كل الخلايا و ليس خلية واحدة جرب الملف و اخبرني النتيجة تحياتي New 13.rar

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

حاولت قب ذلك وكانت النتيجة تم حذف المرفق لدواعي أمنية يعلمها المتقدمون وتم التغيير والحمد لله وهديتي لك أخي الكريم أبا مشاري وكل من يريد هذا الموضوع تم عمل دالة لتصنيع ملف test.html لكل عميل بمتغيراته الاسم ورقم المعاملة وتاريخ المعاملة وإرفاقه بالرسالة ملحوظة يلزمك بعض التعديل في الكود الذي يصنع ملف test.html في الدالة وتغيير اسم شركتك أو تغيير الصيغة مع ملاحظة عدم تغيير أكواد html أو أكواد تضمين البيانا داخل الملف كل عام أنتم بخير أخوكم محمد صالح mas_mail2.rar