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

السلام عليكم 🙂 اذا تسمحوا لي بالمشاركة 🙂 لإصطياد رقم الخطأ ، يجب علينا ان نستعمل حدث "on error" ، في النموذج الذي نحصل فيه على الخطأ ، وفي حالتنا ، فهو النموذج الفرعي ، هكذا: Private Sub Form_Error(DataErr As Integer, Response As Integer) MsgBox DataErr End Sub وعند التجربة ، نحصل على هذا: الآن وقد عرفنا رقم الخطأ ، اصبح من السهل التعامل معاه ، هكذا مثلا: Private Sub Form_Error(DataErr As Integer, Response As Integer) 'MsgBox DataErr If DataErr = 3314 Then Response = acDataErrContinue strMsg = "لا يمكن ترك الحقل التالي فارغ " & vbCrLf & _ "المنصرف بالوحدة الصغرى" MsgBox strMsg End If End Sub ونلقى هذه الرسالة الآن: جعفر 1110.Market.accdb.zip

فى البداية اوجه الشكر لكم وانوه ان هذا الموضوع هو تكملة للموضوع التالى الخاص بتحويل الاكسس الى سيكوال انشاء السيرفر وتحويل اكسس الى سيكوال اى انـــــه لابد من تثبيت السيرفر اولا فقط على الجهاز الذى سيكون عليه قاعدة البيانات وتحويل قاعدة البيانات من اكسس الى سيكوال لكى يتم الاتصال بشكل فعلى هنا يعنى هنثبت سيكوال فقط على جهاز السيرفر مش كل الاجهزةة كلانا يعرف كيفية مشاركة الاكسس على الشبكة المحلية فقط هنعمل مشاركة للمجلد الذى يحتوى على قاعدة البيانات وبكدا اى مستخدم على الشبكة المحلية يقدر يستخدم قاعدة بيانات اكسس الموضوع يختلف كثير مع سيكوال تعالو لنقسم الموضوع الى جزئين الاتصال عن طريق الشيكة المحلية الاتصال عن طريق الانترنت 1 - فتح بورت فى الويندوز 1 - فتح بورت فى الويندوز 2 - فتح بورت فى السيرفر 2 - فتح بورت فى السيرفر 3- تثبيت الاى بى للويندوز 3 - فتح بورت فى الراوتر 4 - الحصول على اى بى ثابت اولا الاتصال عن طريق الشبكة المحلية ------------------------------------------------ بعد نثبيت السيرفر وتحويل الاكسس الى سيكوال اى تصدير الجداول من اكسس الى قاعدة بيانات سيكوال هناك امور مشتركة بين الاتصالين وهو فتح بورت فى الويندوز وفتح بورت فى السيرفر اذا نبدأ فى شرح كيفية فتح بورت فى الويندوز عن طريق Windows Firewal كدا فتحنا بورت لسيكوال سيرفر فى النظام طبعا لو عندك برامج حماية غير windows Defender يجب ان تسمح له بفتح البورت ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- والان فتح بورت فى السيرفر كدا فتحنا بورت فى السيرفر نيجى بقى للاتصال من جهاز اخر غير جهاز السيرفر تابع معى اولا يجب معرفة اى بى جهاز الذى عليه السيرفر عن طريق Cmd ثم ipconfig هيظهر الاى بى فى IPv4 Adress اما الثانية فدا عنوان الراوتر طبها الاى بى الخاص بجهاز السيرفر هو 192.168.1.3 وهذا الذى سوف نتصل به من الكمبيوتر الاخر الذى على نفس الشيكة المحلية هنفتح ODBC زى ما عملنا فى الموضوع السابق والخطوة الاهم هى التالية هنكتب اسم قاعدة البيانات اسم السيرفر سيكون كاالتالى الاى بى الخاص بالسيرفر , بورت السيرفر ( 1433 ) كوما وليس نقطة (192.168.1.3,1433 ) وتكمل خطواتك عادى زى الموضوع السابق بقى وبكدا يبقى اتصلنا بجهاز السيرفر ونستطيع نعمل ارتباط لجداول قاعدة البيانات من سيكوال الى اكسس حاجة اخيرة الاى بى الخاص بجهاز السيرفر بيتغير كل شوية ممكن نثبته عن طريق الخطوات التالية هنجيب الاى بى من cmd كدا احنا ثبتنا الاى بى الخاص بالجهاز اللى عليه السيرفر علشان تقدر تدخل بيه من على اى جهاز ------------------------------------------------------- المرحلة الثانية الاتصال بالسيرفر من على النت اى ليس شرطا وجودالمتصل على نفس الشبكة المحلية هى هى نفس الخطوات فقط هنضيف خطوة زيادة الا وهى الحصول على Static IP وفتح بورت فى الراواتر بالنسبة للاى بى الثابت دى خدمة بتقدمها الشركة اللى انت متعاقد معاها على خط الانترنت فى مصر تكلفة الاى بى الثابت عشرة جنيه شهريا من We بتطلبه من الشركة وهى بتثبتلك اى بى عمتا لو عاوز تعرف الاى بى بتاعك تابع الاتى مع العلم ان الاى بى بتغير كل ما تعمل ريستارت للراوتر هتبحث فى جوجل كدا ويطلعلك الاى بى كدا ودا اللى هنقدر ندخل بيه على السيرفر من اى مكان شرط توافر انترنت طبعا مش هتقدر تتصل على السيرفر بالاى بى دا اللى لما تفتح بورت فى الراوتر اللى متصل عليه السرفر تابع معايا انا عندى راوتر تى داتا وهشرح عليه تقريبا هى نفس الخطوات فى كل الروترات فتح بروت فى الراوتر طبعا هتعرف عنوان الراوتر بتاعك من هنا والاى بى اللى هنستخدمه هندخل على المتصفح ونكتب فى عنوان الراوتر وندخل عليه طبعا الاسم وكلمة السر بيبقى موجودين على ضهر الراوتر بعد كدا نفس الخطوات بالظبط كدا يبقى فتحنا البورت فاضل اللاتصال طبعا هتفتح ODBC ذى ما ذكرنا قبل كدا وهتدخل البيانات زى كدا الاى بى , 1433 وتابع بقية الخطوات زى الموضوع السابق علشان تقدر تحضر قاعدة بيانات سكوال على جهازك وتتصل عليه طبعا الشغل اللى مطلوب على جهاز السيرفر الحصول على الى Static IP فى حالة الاتصال عن بعد فتح بورت فى الرواتر فى حالة الاتصال عن بعد تثبيت اى بى الجهاز فتح بورت فى الويندوز فتح بورت فى السيرفر بعد ما تعمل كل دا انت ما عليك الا انك تتصل على السيرفر كما ذكرت دون الحاجة الى تثبيت سيكوال سيرفر على جهازك شكرا لكم كان مفروض فى مرفق بتدخله بيانات السيرفر زى اى بى اسم قاعدة البيانات سيكوال اسم المستخدم لو فى وكلمة السر للسيرفر وهو هينشأ الاتصال اوتامتيك طبعا بعد ما تظبط جهاز السيرفر زى ما قلنا وفى نفس المرفق خيار اخر وهو هتدخل البيانات السابقة اضافة الى اسم جدول موجود على سيكول وهو هيربطهولك تلقائى فى قاعدة اكسس بس الوقت اتاخر اوى وانا بسقط من النوم الصراحة ان شاء الله نقوم بتصميمه غدا السلام عليكم ورحمة الله وبركاته اخوكم السيد جمال 🥰

لم افهم ماذا تريد بالضبط لذلك اقترحت ثلاثة حلول 1-ما هو موجود في الجدول الاول وليس في الثاني 2-ما هو موجود في الجدول الثاني وليس في الاول 3- المشترك بين الجدولين Compaire.xlsx

السلام عليكم بارك الله فيك استاذ سليم فكرة جميله عملت عليها بطريقتي امل ان تثري Ali_Hid1.xlsm

بعد اذن الاخ العيدروس هذا الماكرو Sub Dont_SHow_empty() show_all Range("C3").Formula = "=""""" Range("L3").Formula = "=OR(E4<>""--"",F4<>""--"")" Range("C3").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, _ CriteriaRange:=Range("L2:L3") Range("L2:L3").Clear Range("C3").Clear End Sub '======= Sub show_all() On Error Resume Next ActiveSheet.ShowAllData On Error GoTo 0 End Sub الملف مرفق my_book.xlsm

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

السلام عليكم تفضل فاتورة1.xlsm

عليكم السلام جرب المرفق back.rar

السلام عليكم تفضل Option Explicit Sub Ali_Hid() Dim R As Range Dim Rng As Range For Each R In [E1:E500] If R > "" And R.Offset(0, 1) > "" Then If R = "--" And R.Offset(0, 1) = "--" Then If Rng Is Nothing Then Set Rng = R Else Set Rng = Union(Rng, R) End If End If End If Next R If Not Rng Is Nothing Then Rng.EntireRow.Hidden = True Set Rng = Nothing End Sub

وعليكم السلام-لك ما طلبت ٢٢الخدمات الانتاجية 1كاملة.xlsx

راجع محتوي هذا الرابط لعلك تجد فيه بغيتك

نسأل الله أن يغفر له وأن يرحمه وأن يكرم نزله وأن ينقه من الذنوب والآثام اللهم آمين .... اللهم اجعل ما قدم من خدمة للتعليم والمعلمين والمدارس في ميزان حسناته naderwatfa

استأذنك نشتغل جزئيه جزئيه علشان اقدر افهم ايه الحكمة من تشفير الماك

جزء من الاجابة https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=164142

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

قد لا تستطيع تغيير الرسالة اذا كانت خصائص الحقل في الجدول مطلوب قم بتغيير خصائص الحقل من الجدول الى مطلوب: لا بعدها تستطيع وضع أي رسالة تريد في حدث قبل التحديث للنموذج حتى تستطيع تنفيذ امر الغاء الامر If Nz(Me.[اسم الحقل هنا],"") = "" Then Cancel = True Msgbox "لا يمكن ترك الحقل فارغ", vbExclamation, "قيمة مطلوبة" End If

مساء الخير هذا الملف صممته بيعطينا في التقرير الرصيد التراكمي كشف حساب.accdb

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

تفضل اخي الكريم وللعلم الكود هو من احد المواقع الاجنبية Excel e whatapp.xls

السلام عليكم لقد وجدت الحل المطلوب كاملاً من خلال الرابط الآتي http://allenbrowne.com/ser-62.html شكراً لكل من رغب بالمساعدة و الشكر الخاص للأستاذ @essam rabea

وعليكم السلام -اهلا بك فى المنتدى , كان عليك استخدام خاصية البحث فى المنتدى قبل رفع المشاركة-فهناك العديد من الموضوعات تخص طلبك ومنها : https://www.officena.net/ib/topic/95896-اكتشاف-المتشابه-بين-عمودين/?tab=comments#comment-589619

انت تطلب شئ غير منطقي تطلب تنفيذ شئ وضده بنفس الوقت تطلب ان يكون احد المستخدمين غير قادر على إنشاء سجل جديد ومع ذلك تريد انشاء سجل جديد

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

شوف الحيله دى test2 (2).mdb

جرب المرفق عندي مثله وقمت بتعديله مبيعات.xlsm

اتفضل المستخدم 2 ما بيعرف يعدل على البيانات لكن انا اريده يظهر له سجل جديد بالنموذج لا يوجد به أي بيانات هذا مستحيل يضطلع فقط بخاصية البحث بالنموذج على جلب البيانات الذي يريدها هذا ممكن وتم تنفيذه بالمرفق الاتى test2 (2).mdb

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

جزاكم الله كل خير ونفع بكم الاسلام والمسلمين

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

جرب هذا لعله يروق لك هنا تجد حلا وحيلة تخير ما تريد 111.accdb

بعد اذن استاذنا عصام جرب هذا اذا لعله يقترب من مرادك التنقل بين النماذج.accdb

ملف تجريبي آخر... تقسيم مبلغ الدفع حسب الشرط.xlsm

وعليكم السلام جرب هذا لعله يقترب من مرادك تبيه.accdb

السلام عليكم جرب المرفق لعل فيه ما تريد.... تقسيم مبلغ الدفع حسب الشرط.xlsm

جرب هذه المعادلة =IF(SUMPRODUCT($B$5:B5)>$B$1,"",SUM(B5,-C5)) taksim.xlsm

تفضل اخي اليك الحل تقاطع للتعديل.xlsx

انظر الى ها المرفق ان شاء الله تجد فيه ضالتك Automatically relink Access tables.zip

اخي الكريم بعد محاولات لم اجد الا طريقه واحده لاكنها معقده وليست عمليه بعض الشئ ارفقت لك الملفين بعد التعديل كل ما هو عليك تغيير مسار حفظ الملف في المعادله ملف2.xlsxملف1.xlsx

السلام عليكم في هاتين الخليتين (ذكور - إناث) أبدل الجزئية 1 - بـ 3 - مثل ما فعلت في المرفق... بن علية حاجي 123.xls

السلام عليكم اساتذتى الكرام اود ان اقدم لكم اليوم دالة أعجبتنى -وتقوم هذه الدالة بتحويل التقويم الميلادى الى التقويم القبطى ومن هنا لابد ان نعرف التقويم القبطى ولابد ان نقول نبذة عنه تبدأ السنة الجديدة عادة في 29 أغسطس، عدا السنة التي تسبق السنة الكبيسة حيث تبدأ في 30 أغسطس. للحصول على رقم السنة القبطية، يُطرح من رقم السنة اليوليانية إما 283 (قبل السنة اليوليانية الجديدة) أو 284 (بعدها). ويتكون التقويم القبطى من 13 شهر كالتالى : وهذا هو كود الدالة المستخدمة فى تحويل التاريخ من الميلادى الى القبطى Option Explicit Function CopticDate(WkDate As Date) As String Const YDiff = 284 Dim DateList As Object Set DateList = CreateObject("System.Collections.Sortedlist") Dim T, TT Dim I As Integer, II As Integer Dim WkY As Integer Dim WkM As String Dim WkD As Integer With Sheets("Data") For I = 1 To 13 T = Split(.Cells(I + 1, 3), "/") DateList.Add DateSerial(Year(WkDate), T(1), T(0)) * 1, .Cells(I + 1, 4) Next I End With WkY = Year(WkDate) - YDiff With DateList TT = WkDate * 1 If (TT >= .GetKey(.Count - 1)) Then WkM = .GetByIndex(0) WkD = TT - .GetKey(.Count - 1) + 1 Else If (TT <= .GetKey(0)) Then WkM = .GetByIndex(.Count - 1) II = TT - DateSerial(Year(WkDate), 1, 1) ' FIRST day of the year = 101 WkD = DateSerial(Year(WkDate), 12, 31) - .GetKey(.Count - 1) + II ' LAST day of the year = 1231 Else For I = 0 To 12 If ((TT > .GetKey(I)) And (TT <= .GetKey(I + 1))) Then WkM = .GetByIndex(I + 1) WkD = TT - .GetKey(I) Exit For End If Next I End If End If End With CopticDate = WkM & "/ " & WkD & "/ " & WkY End Function وتستخدم بهذه المعادلة =CopticDate() convert the Christmas calendar to the Coptic calendar.xlsm

تفضل لك ما طلبت الشهور المصرية .xlsm

عليكم السلام اتفضل اخي الكريم اليك الداله التي تقوم بالمطلوب حل مشكلة الخلايا الفارغة مع الدالة VLOOKUP.xlsm

السلام عليكم اقدم لكم نسخه من برنامج كاشير للمطاعم حسب ارقام الطاولات رقم المظلل بالاحمر يعني ان الطاولة رقم ... محجوز يمكنك رجوع اليها وعمل اوردر من تعديل البرنامج سهل للغايه يعمل فقط على الماوس * - الجدول : _ الفواتير المسدده يمكنك رجوع وتعديل عليها عن طريق الجدول وضغط دبل كليك على المراد تعديله * - التقرير :_ *- حذف الفواتير :_ يمكنك حذف الفواتير عن طريق تحديد الرقم وضغط على حذف يمكن استعلام على الفواتير المحذوفه من التقرير - فواتير محذوفه *- نقل الطاولة :_ يمكن نقل الطاولة حسب طلبك بتحديد على الطاولة المراد نقلها واختيار امر نقل الطاولة يظهر مربع تختار رقم الطاولة الجديد بحيث لا يكون مظلل بالاحمر . *- تعديل على الفاتورة : _ في حال رغبت الزبون طلب اوردر تختار رقم الطاولة المظلل بالاحمر وتغضط تعديل الفاتورة وتضيف الاوردر الثاني ويمكنك تكرار العملية في حال تكرار الصنف تضغط دبل كليك على الصنف +1 في حال الغاء -1 يوجد زر بجانب الشاشة الاصناف -1 في حال الغاء الصنف يوجد زر بجانب الشاشة * * - الاصناف : _ يمكنك اضافة اصناف رئيسية واصناف فرعيه الاصناف لا تحتاج الى كود لانها تختار كود اتوماتيكي طباعه الفواتير بشكل جديد دينماكيه صلاحية كامله للبرنامج الدخول : الدعم الفني كلمة سر : 123 يمكنك اضافت صلاحيات ومستخدمين كما قلت لكم نسخه قيد تطوير ... الحقوق النشر محفوظه ... اتنمنى ان ينال اعجابكم لتحميل : _ ‫كاشير-توزيع.xlsb

جرب هذا المعادلة في الخلية D2 ثم اسحب نزولاً =IFERROR(MATCH(A2,$B$2:$B$194750,0),"Not Found") اذا لم تعمل معك المعادلة استبدل الفاصة بفاصلة منقوطة لتبدو المعادلة بهذا الشكل =IFERROR(MATCH(A2;$B$2:$B$19475;0);"Not Found")

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

السلام عليكم برنامج المعلم المحترف * توفير الوقت والجهد ودقة المعلومات * متابعة مستوى الطالب بعمل اختبارات شهرية واستخراج شهادة بالدرجة والتقدير والنسبة لكل طالب * متابعة غياب الطلاب وإبلاغ ولى الامر * متابعة رسوم المجموعات مع امكانية طباعة ايصال دفع واستخراج كشف من دفع رسوم المجموعة ومن لم يسدد * معرفة اجمالى الدخل لكل يوم ولكل شهر مع معرفة اجمالى الخصومات واسببها * تنظيم جدول المجموعات وللجمبع تحياتى

هذا مثال افتح النموذج tbl_main وهناك مربع عدد السجلات يمكن اخفاؤه السجلات الجديده يتم تعديلها . السابقة لابد من النقر على تعديل ثم ادخال الباس وورد 123 بالتوفيق New Microsoft Access Database (4).rar

حياك الله أخوي السالم بعض الكود يكتب كما هو وبدون النظر الى تفاصيله ، ومن ضمنها هذا الكود وخصوصا الكود الذي له علاقة بـ Windows API فلا تدوخ راسك فيها ، سوي مثلي وانسخ والصق جعفر

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