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

ايضا مشاركة مع اخي الاستاذ @محمد أبوعبدالله تفضل ... Public Function CountChar() As Integer Dim StringToSearch As String, Character As String StringToSearch = Me.txtTest CountChar = 0 For i = 1 To Len(StringToSearch) ms = Mid(StringToSearch, i, 1) Strr = Nz(DLookup("n", "Tbl1", "[l] = '" & ms & "'")) Strr2 = Strr2 + Strr Me.kan = Strr2 Next i End Function تم استدعاء الكود ... Call CountChar kan_1238.mdb

السلام عليكم افتح موديول جديد وضع به الكود التالي ووظيفته حذف جميع المسافات بالنص Function NoSpace(X3 As String) As String Dim X5 As String X5 = RTrim(X3) Do While InStr(X5, " ") > 0 X5 = Left(X5, InStr(X5, " ") - 1) & Mid(X5, InStr(X5, " ") + 1) Loop NoSpace = Trim(X5) End Function وفي النموذج اضف مربع نص جديد لكتابة النص به وضع به الكود التالي في حدث عند الخروج On Error GoTo Err: If IsNull(Me.Text79) Then DoCmd.CancelEvent Else X1 = NoSpace(Me.Text79) ' Debug.Print X1 Me.[1].Value = Mid(X1, 1, 1) Me.[2].Value = Mid(X1, 2, 1) Me.[3].Value = Mid(X1, 3, 1) Me.[4].Value = Mid(X1, 4, 1) Me.[5].Value = Mid(X1, 5, 1) Me.[6].Value = Mid(X1, 6, 1) Me.[7].Value = Mid(X1, 7, 1) Me.[8].Value = Mid(X1, 8, 1) Me.[9].Value = Mid(X1, 9, 1) Me.[10].Value = Mid(X1, 10, 1) Me.[11].Value = Mid(X1, 11, 1) Me.[12].Value = Mid(X1, 12, 1) Me.[13].Value = Mid(X1, 13, 1) Me.[14].Value = Mid(X1, 14, 1) Me.[15].Value = Mid(X1, 15, 1) Me.[16].Value = Mid(X1, 16, 1) Me.[17].Value = Mid(X1, 17, 1) Me.[18].Value = Mid(X1, 18, 1) Me.[19].Value = Mid(X1, 19, 1) Me.[20].Value = Mid(X1, 20, 1) Me.[21].Value = Mid(X1, 21, 1) Me.[22].Value = Mid(X1, 22, 1) Me.[23].Value = Mid(X1, 23, 1) Me.[24].Value = Mid(X1, 24, 1) Me.[25].Value = Mid(X1, 25, 1) Me.[26].Value = Mid(X1, 26, 1) Me.[27].Value = Mid(X1, 27, 1) Me.[28].Value = Mid(X1, 28, 1) Me.[29].Value = Mid(X1, 29, 1) Me.[30].Value = Mid(X1, 30, 1) End If Err: حروف.rar تحياتي

السلام عليكم ورحمة الله في الملف المرفق تجد، إن شاء الله، ما طلبته بعد بعض التعديلات والإضافات... سولار وزيوت2021.xlsx

اخي الكريم ... ليس كل من دخل الموضوع لديه قارئ باركود ... انظر دائما للجانب المشرق . ان اناسا مثلي استفادوا من مناقشاتك ... كل الاحترام لجميع الاراء ...

عملت لك مصدر للتقرير وهو عبارة عن استعلام باسم Query1 أحسن لك من هالمعادلات وهالعركة مع التفاصيل. اليومية_هاوي.accdb

ادري انه صفر انت بنفسك روح مصنف (ورقة١) وحط ارقام جوال من عندك وارجع لمصنف (sheet1) وبيطلع لك الارقام بسبب دالة vlookup واضغط على الكود هتلاقي انه مش يعمل

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

طبقت الكود المعدل واشتغل تمام لكن ظهرت لي مشكلة عند الترحيل لـ chassis no. إلى ورقة car'scod تنتقل البيانات إلى جميع اصناف السيارات عدا ISUZU ترحل إليه آخر صنف فقط من المرحل . يرجى التكرم بحل هذه المشكلة مرفق لكم الملف وقد حددت البيانات باللون الأحمر في ورقة ALL DATA وايضاف في ورقة car'scod باللون الاخضر على الاصناف الشغاله و بالاحمر على ISUZU وهي خلايا فارغه . مع جزيل الشكر ,,, برنامج السيارات 1.xlsm

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

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

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

جرب هذا الاختصار Dim str As String searchtext.SetFocus str = Me.searchtext.Text str = Replace(str, "أ", "ا") str = Replace(str, "إ", "ا") str = Replace(str, "آ", "ا") str = Replace(str, "ة", "ه") str = Replace(str, "ى", "ي") Me.searchtext = Replace(str, "ؤ", "و") بالتوفيق

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Private Sub nihayat_altarkhis_Exit(Cancel As Integer) If [aintiha alsijil] > [nihayat altarkhis] Then DoCmd.CancelEvent MsgBox "التاريخ اكبر من التاريخ المطلوب" ElseIf [nihayat aldaman albankii] > [nihayat altarkhis] Then DoCmd.CancelEvent MsgBox "التاريخ اكبر من التاريخ المطلوب" End If End Sub Database72.rar تحياتي

اخى الحبيب بارك الله فيك وجزالك الله كل الخير مجهود عظيم من انسان اعظم بارك الله فيك وذريتك وسامحنى ان كنت اثقل عليك. كنت اريد ربط زر طباعة بيانات الطالب بأخر صفحة فى الشيت ( بيان قيد الطالب) ربط جميع البيانات فى صفحة بيانات الطالب بصفحة الصف ( ترحيل جميع البيانات ) عند كتابة الرقم القومى يتم استخراج تاريخ الميلاد والسن فى 1/10 فى الشيت الخاص بالصف هل من الممكن ربط خلية البحث عند الضغط عليها بحيث تظهر جميع اسماء التلاميذ التى تم تسجيلها عند اختيار الصف مثلا عند اختيار الصف السادس تظهر اسماء تلاميذ الصف السادس فقط بدلا من كتابة الاسم فى شريط البحث وهكذا جميع الصفوف ودم لنا معلما عظيما نتجرع منه علما لا ينسى بيانات التلميذ.xlsb

جزاك الله كل خير وجعله الله في ميزان حسناتك😘

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

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

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

ومن اين نجد اسم الموظف في الجدول اخي انت استخدمت مربع تحرير وسرد في الجدول لاختيار اسم الموظف والحقل الذي يحتوي القيمة حقل رقمي لذا يظهر لديك عند العرض الاسم ولكن القيمة الفعليه المخزن في الجدول رقم الموظف لذا الكثير من الخبراء لا ينصحون باستخدام مربعات التحرير في الجدول وانما في النموذج هذا الموضوع يحتوي على نصائح مفيدة لتجنب بعض المشكلات 👇 ايضا استخدام dsum في التقرير بشكل كبير يسبب بطئ اكثر من 17 دالة !! كما انني اشرت في ردي السابق 👇 وهذا ليس انتقاص لعملك اخي ولكن دائما هناك اطرق افضل للوصول للنتيجة اخيرا الفكرة التي اشار اليها الاستاذ الفاضل هاوي جديرة بالاهتمام انا لم احمل ملفة ولكن استخدام الاستعلام اسرع وافضل واكثر مرونه من صف عدد كبير من الدوالة وتعقيدات المعايير وفقا لانواع الحقول المختلفة ملاحظة في حقل اجمالي النقدية الخارجة انت استخدمت الدالة في جدول "Pa_yme2" لم اجده ضمن الجداول ربما لم ابحث جيدا او خانني النظر الملف مرفق اليوميه2.accdb

طيب ممكن مرفق أو الكود وطريقة كتابتك له ..... ادرج الكود هنا حتى نفهم المشكلة أو ارفق مثال مصغر لتقريرك ....

كل من جرب الأكواد ، همش الكود الذي احتوته مشاركتي. شيء غريب وسلوك يحتاج إلى دراسة 😇

السلام عليكم ورحمة الله يمكن استعمال معادلة الصفيف التالية (في خلية غير مدمجة): =INDIRECT("C"&MATCH(1;SUBTOTAL(3;INDIRECT("C"&ROW($8:$100)));0)+7) وهي معادلة صفيف حيث يجب تأكيدها بالضغط على : CTRL+SHIFT+ENTER وفي الملف المرفق تطبيق مباشر لهذه المعادلة... أرجو أن تفي الغرض المطلوب... ملاحظة: المعادلة لا تعمل عند الفلترة بعدة شروط أو عند إلغاء الفلترة (وهي في هذه الحالات تعطي الكلمة في الصف الأعلى بداية من الخلية C8).. كيف ربط وتغيير محتوى الخلية بعد الفلترة.xlsx

الإخوة الكرام .. أفادني مؤخرا أحد الأخوة ممن عنده بعض المعلومات عن أكسس بتعديل الكود ليصبح هكذا: Dim str As String searchtext.SetFocus str = Me.searchtext.Text Me.searchtext = Replace(str, "أ", "ا") str = Me.searchtext.Text Me.searchtext = Replace(str, "إ", "ا") str = Me.searchtext.Text Me.searchtext = Replace(str, "آ", "ا") str = Me.searchtext.Text Me.searchtext = Replace(str, "ة", "ه") str = Me.searchtext.Text Me.searchtext = Replace(str, "ى", "ي") str = Me.searchtext.Text Me.searchtext = Replace(str, "ؤ", "و") وأصبح الكود يعمل بشكل جيد ويستبدل جميع الحروف المطلوبة ولكن هل توجد صيغة تختصر هذا السطر المكرر، أم أن هذه أفضل صياغة للكود

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

الحقول النصية لها طريقة تختلف عن الحقول الرقمية عن التواريخ استبدل المكتوب لديك بالتالي على الترتيب للاول =DSum("[am_Cash]";"ca_sh";"[Nu_ca1]=1" & "and [na_cash]='خارج'" & "and [Da_Cash]=" & Format([tx2];"\#mm\/dd\/yyyy\#")) للثاني =DSum("[am_Cash]";"ca_sh";"[Nu_ca1]=2" & "and [na_cash]='خارج'" & "and [Da_Cash]=" & Format([tx2];"\#mm\/dd\/yyyy\#")) الملف مرفق مع عدم الاقتناع تحياتي وتقديري اليوميه.accdb

برنامجك الاساسي في الموضوع في بدايته ليس فيه تراجع .... جرب المرفق الذي في بداية الموضوع !!!!!!!!!!

جرب هذا الكود ... ضعه بعد امر الطباعة .... ملاحظة لم اجرب الكود Reports("فاتورة").Printer.PaperSize = acPRPSB5 acPRPSB5 يمثل ورق B5 و acPRPSA4 يمثل ورق A4 جرب واعلمنا بالتجربة ...

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

انظر للمرفق البيانات.accdb

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

تفضل أخي الكريم يمكنك استخدام دالة معرفة udf لجلب معيار او معيارين للفلتر في الخلية وتكون فارغة في حالة عدم تشغيل الفلتر Function AutoFilter_Criteria(Rng As Range) As String Dim str1 As String, str2 As String Application.Volatile With Rng.Parent.AutoFilter With .Filters(Rng.Column - .Range.Column + 1) If Not .On Then Exit Function str1 = CStr(.Criteria1) If .Operator = xlAnd Then str2 = " AND " & CStr(.Criteria2) ElseIf .Operator = xlOr Then str2 = " OR " & CStr(.Criteria2) End If End With End With AutoFilter_Criteria = Replace(UCase(Rng) & ": " & str1 & str2, "=", "") End Function ولاستدعائها =AutoFilter_Criteria(C7) بالتوفيق

ربما تفيدك هذه المواضيع https://www.officena.net/ib/search/?q=الباركود الاكسل&updated_after=any&sortby=relevancy&search_and_or=and بالتوفيق

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

خلاص الحمدلله حصلت الإجابة على سؤالي شكرا لكم للإستفادة الدالة هي : Filter حيث انها تكون في اوفيس 365 واوفيس 2022 لاحقاً حسب علمي إن شاء الله. =FILTER(الزبائن!$E$5:$E$20000;الزبائن!$O$5:$O$20000=E3;"")

وهذا برنامج جديد يشبه السابق واسميته برنامج الحراسةبرنامج الحراسة1.4.xlsm

السلام عليكم ورحمة الله وبركاته أعجبني جدا برنامج بنك الأكسس للأخ إكسير وأحببت أن أضيف إليه بعض الإضافات وبالفعل تم التواصل مع الأخ إكسير وبارك وأيد هذه الإضافات وإليكم الإضافات الجديدة 1-عدم التقيد بالتحميل من ملفات منتدى الفريق العربي فقط بل يتعدى إلى أي موقع على النت 2-عدم التقيد بامتداد الملف وهوrar بل يمكنك تحميل جميع الملفات بجميع الإمتدادات 3-إمكانية إضافة أقسام جديدة مثل صور و فيديوتعليمي وكتب وورد مثلا 4-يمكنك حذف القسم الذي لا ترغب فيه حتى وإن كان بداخله ملفات فسيتم حذف المجلد بكل محتوياته ويمكنك بعدها تغيير اسم القسم والمجلد وإنشاء الجديد 5-إمكانية إضافة صفحة الملف على النت للرجوع إليها لمزيد من التفاصيل حول الموضوع ويمكنك فتحها من داخل النموذج بزر الأمر الموجود 6-إمكانية فتح مجلد الملف بعد تحميله من نفس نموذج التحميل أما عن طريقة الاستخدام فهي نفس الطريقة المستعمله في مثال الأخ إكسير مع فارق بسيط وهو وضع رابط الملف كاملا وليس رقمه فقط وكذلك وضع رابط الصفحة كاملا مع ملاحظة معرفة امتداد الملف وكتابته في خانة امتداد الملف بنموذج إضافة ملف بدون النقطة مثل rar أو zip أو mdb وهكذا بدون النقطة بين اسم الملف وامتداده ملحوظة ترقيم الملفات والأقسام ترقيم تلقائي ولا علاقة له برقم الملف في الموقع أرجو من الإخوة ذكر آرائهم في المثال والاقتراحات حتى يتم تطويره والوصول به للكمال الممكن مع تحيات أخوكم محمد صالح bank_files.rar

شكرا لجميع الإخوة على المرور ويهمني أكثر النقد البناء حتى نطور المثال للأفضل مع العلم هذا رابط المثال الأول قبل التعديل لتروا الفرق http://www.arabteam2000-forum.com/index.php?showtopic=135433

بارك الله فيك أخي drem_works مجهود رائع إلى الأمام

الإخوة الأعزاء أعضاء ومشرفي المنتدى شكرا جزيلا على ما قدمتم لي من مساعدات وهذه آخر نقطة أحتاجها في برنامج كبير جدا أقوم بتصميمه وهذه النقطة تدور حول دخول المستخدمين باسماء مرور مختلفة وكلمة سر واحدة وأريد إذا كان اسم المرور m يفتح النموذج aa في وضع يسمح للمستخدم التعديل في السجلات من 1 إلى 3 فقط وإذا كان اسم المستخدم mm يسمح له بتعديل السجلات من 4 إلى 6 فقط وإذا كان اسم المرور mmm يسمح له بتعديل السجلات من 7 إلى 9 ويا حبذا لو منعنا تحركه داخل النموذج خارج النطاق المحدد له لا أدري أهذه النقطة ممكن عملها أم لا ولكنها غلبتني ولم اجد لها حل نسيت .... كلمة المرور 123 للكل واسم المستخدم هو ما ذكرت m & mm & mmm editrec.rar

وطريقة أخرى مربع التحرير والسرد مبني على استعلام اضغطي على علامة التجميع سيجما في هذا الاستعلام فينتج في الاستعلام تجميع حسب أو group by واغلقي واحفظي

هذا هو المثال بعد التعديل أخي الكريم db.rar

أخي الكريم يمكنك الاستعانة بالمثال المرفق وهو للأخ maxxin في منتديات المحيط العربي محمد صالح Duration.rar

أخي الكريم أبو عمر افتح نموذج جدول 1 في المثال الخاص بي ستجد في خصائص مربع النص التاريخ في حدث عند النقر =PopCalendar() هذا هو الرابط بين النموذجين والوحدة النمطية والسلام عليكم ورحمة الله وبركاته

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

من المعروف أنه يمكن عمل ترقيم تلقائي للإستعلام عن طريق dcount حينما يكون في الاستعلام حقل رقمي نستعمله في ايجاد ترتيب القيم من الأصغر إلى الأكبر أو العكس وسؤالي هو ماذا لو كان الاستعلام لا يحتوي على حقل رقمي ويحتوي فقط على خانة الاسم وأريد ترقيم الاستعلام بناء على ترتيب خانة الاسم تصاعديا أو تنازليا مزيد من التوضيح يوجد جدول به حقل واحد هو الاسم وتنسيقه نصي أريد عمل استعلام يحتوي على خانتين فقط هما الاسم من الجدول وخانة الترتيب فمثلا لوكان بالجدول أسماء مثل أحمد محمد محمود وليد أسماء فالتريب التصاعدي لهذه الأسماء هو أحمد أسماء محمد محمود وليد وما أريده عمل خانة للترتيب بجانب الاسم تدل على ترتيب الاسم في الترتيب الهجائي التصاعدي لتظهر كما يلي: الاسم الترتيب أحمد 1 أسماء 2 محمد 3 محمود 4 وليد 5 وهكـــــــــــــــــــــــــــــــــــــــــــــــــــــذا

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