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

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

عذرا أخي الكريم قواانين المنتدى لا تسمح بكسر حماية البرامج ::بالتوفيق::

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

السلام عليكم ورحمة الله وبركاته عندي وورد 2016 ، تظهر أرقام الصفحات على الشاشة عربية (هندية) ، ولكن عند الطباعة أو إذا حفظت الملف بصيغة pdf تنقلب إلى انجليزية!! أرجو المساعدة مشكورين... علما أن الأرقام الأخرى ليس فيها مشكلة، وإنما المشكلة فقط في أرقام الصفحات في الهوامش

البرنامج يحتوي على كائن عنصر Actevix وهذا الكائن بحاجة الى مكتبة خارجية ( برنامج او تعريف) جرب تشغله على اصدارات احدث من اوفيس يمكن انها تشتمل على هذه المكتبة

تفضل تم حل المشكلة ::بالتوفيق:: رواتب 2أرتكيا.rar

تفضل استاذى الكريم 3مشكلة.xlsx

فى هذه الحالة يمكنك تجربة الملف التالى مشكلة2.xlsx

تفضل اخى الكريم مشكلة.xlsx

السلام عليكم ورحمة الله ضع هذا الكود فى حدث الفورم Private Sub TextBox1_Change() Dim Arr As Variant, Temp As Variant Dim i As Integer, j As Integer, p As Integer Dim x, y As Integer Arr = Range("A2:E12").Value ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) For i = 1 To UBound(Arr, 1) If Arr(i, 1) = Me.TextBox1.Value Then p = p + 1 For j = 1 To UBound(Arr, 2) Temp(p, j) = Arr(i, j) Next x = x + Temp(p, 3) y = y + Temp(p, 4) End If Next Me.ListBox1.List = Temp Me.TextBox2 = x Me.TextBox3 = y End Sub

استاذ عبد الله الله يبارك في عمرك ويكرمك ظبط معايا الله يوفقك متشكر جدا جدا جدا جدا

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

السلام عليكم أستاذي @kaser906 أولا أنا اعتذر علي عدم توفيقي في صياغة السؤال .. فأنا لم أقصد أبدا إنساب الفضل لنفسي في معرفة الكود ولكني أخطأت في الصيغة والمدلول ثانيا شكرا جزيلا لحضرتك أخي الكريم @kaser906 فقد نبهتني الي خطأي .. وعليه فأنا أعتذر لاستاذي الفاضل @jjafferr الذي لولاه بعد الله سبحانه وتعالي ما (وفقت ) الي معرفة الكود أعتذر مرة أخري

تفضل عزيزي افتح frm3 واعطني صورة منه كلمة المرور 123 dbx.rar

السلام عليكم ورحمة الله أخي الفاضل محمدنجار شكرا جزيلا على تجاوبك معي .... ولكن في حلك وجدت مشكلة عدم البحث حقل البحث يعطي رسالة خطأ وبالنسبة للنقر على الاسم ماشاء الله يعمل على كل حال تم بفضل الله حل السؤال على نفس المرفق الأول ونفس النماذج فقط تم إضافة حقل العامل الى الاستعلام وكتابة الكود مرتبط بحقل ( رقم_المعرف ) وهذا الحل في المرفق التالي ‫‫Zah_UP -18.rar

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

تفضلى هذا حل بالمعادلات الى ان تقومى بارشادات استاذنا الكبير سليم صف ثاني.xlsm

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

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

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

السلام عليكم فضلا ابو زاهر لا تضع في المثال الا الكائنات المراد التعديل عليها اختصار الامثلة مطلوب تفضل تم التعديل ظهور نوع المستند.rar

اين وجدت حل المشكلة ؟ أخي الكريم في ردودك ارجع الفضل لأصحابه فأن لم تقدم الشكر لمن قام بمساعدتك او تقييم اجابته لك فقط ارجع فضل حل المشكلة إليه حتى من قام بعمل الكود الاساسي لك لم تذكره وهو استاذنا القدير @jjafferr وقد ارجعت التوفيق الى نفسك بقولك لقد وفقت ::بالتوفيق::

تم حل المشكلة راجع هذا الملف رواتب أرتكيا.rar

وعليكم السلام اضف هذا السطر الى الكود قبل rst.Update rst!emp_code4 = emp_code3 ::بالتوفيق::

يجب قبل الحفظ تغيير الإعدادات من لوحة التحكم شاهد المرفق المرفق وقم بتحويله إلى pdf ترقيم.docx

جرب الملف المرفق وإذا المشكلة لم تنتهي اتبع الإرشادات التي بالملف ترقيم.docx

شكرا اخ عمر الان خلينا نفكر خارج الصندوق وبعيد عن عرض الدخول والخروج بصف واحد السؤال : 1. هل تريد حسبة الفرق بين الدخول والخروج ؟ ولو كذلك ستجمعهم وهذا هو ساعات العمل ؟ 2. ماهي الآلية لديك لاقتران الدخول والخروج لسجلين ؟ اي على اي اساس اعتبر ان السجل هذا هو خروج للدخول هذا ؟ تحياتي

ممكن أن تستخدم كود لوضع المعيار الذي تريده من داخل الكود نفسه و ذلك بعد ازالته من الاستعلام أي لاتضع في الاستعلام اي معيار مطلوب قيمته Dim Re, fe As dao.Recordset Set fe = CurrentDb.OpenRecordset("LastPeriod") fe.Filter = "[EntryID] = " & Me.Number1 fe.Requery Set Re = fe.OpenRecordset

جرب المعيار التالي في الحقل بالاستعلام الذي يطلب قيمة من النموذج [Forms]![Form1]![Number] حيث Number الحقل الذي في الواجهه (النموذج) و Form1 اسم النموذج الذي يوجد به الحقل الواجهه هذا ما فهمته من سؤالك وشوف المثال F12.rar

اذا كان الاستعلام فيه متغير براميتير ( اي يطلب ادخال قيمة معلمه ) لن يقبله و كذلك اذا كان الاستعلام نفسه معتمد على استعلام آخر فيه براميتر , لذا عليك اما الاستغناء عن البراميتر , أو وضع شرط بقيمه لحقل الاستعلام