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

الحمد لله ان تم الامر على خير تم عمل المطلوب جرب المرفق كشوفات الطلبة الرسمي 2022 - 1.xlsm

وعليكم السلام-وما هو الداعى لذلك وما فائدة ذلك -عموماً -يمكنك ذلك بإضافة هذا الكود فى كل اكواد التكست بوكس بداية من التكست بوكس6 حتى تكست بوك 27 ,,,ولا تنسى تغيير رقم التكست بوكس بالكود Private Sub TextBox6_Change() Me.TextBox6.Text = Format(TextBox6, "0.00") End Sub القيمة رقمين بعد الفاصلة.xlsm

ربما تقارير.xlsm

او يحتاج الى As DAO.Recordset

وهذا رابط للبحث Showing results for 'القروش الجنيهات' in content posted in منتدى الاكسيل Excel . - أوفيسنا (officena.net) بالتوفيق

وعليكم السلام تفضل الملف المرفق : جمع وتلحيق بطريقة القرش والجنيه - سعيد بيرم.rar

وعليكم السلام-بعد اذن الأستاذ محمد يوسف-تفضل فاتورة جديدة12022.xls

اخي ... هذا ليس طلبك في المشاركة علي العموم تفضل فاتورة جديدة2022.xls

وعليكم السلام ورحمة الله وبركاته أخي عمر .. إن كنت تستخدم نسخة 2007 أو أقدم .. فجرب تغيير كلمة Recordset2 إلى Recordset يمعنى شيل رقم 2 من الحكاية .. وجرب 🙂

لقد عرضت لك الحل كاملا نظرا لسرية البيانات وخصوصا بيانات الدخول (اسم المستخدم وكلمة المرور) على موقع رسمي كهذا

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

السلام عليكم من volume انظر الصورة

السلام عليكم الاستاذ الكبير @حسين مامون جزاك الله كل خير و الله يعطيك العافية البرنامج يعمل بشكل جيد 100% كل الاحترام و التقدير لك ملاحظة هل يمكن بعد عملية البحث وضع زر لحذف السطر المظلل و يقوم بحذفها من الشيت اكرر شكري لك في ميزان حسناتك

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

يرجع ذلك لأن الأرقام التي في الخلايا منسقة ك نص ولذلك تجد ظهور مثلث أصفر يخبر بهذا الخطأ the number in this cell is formatted as text والحل تحديد جميع الخلايا ثم الضغط على المثلث الأصفر واختيار convert to number بالتوفيق

اخي شاهد المرفق المصنف1.xlsm

نفس العمل تقوم به عند اغلاق النموذج الثاني ... عند حدث اغلاق النموذج الثاني تضع الكود For Each ctrl In forms![form1].Controls If ctrl.Tag = "*" Then ctrl.BackColor = vbWhite End If Next forms![form1].Detail.BackColor = vbWhite طبعا تضع لون الخلفية الاصلي للنموذج بدلا من vbWhite

الكود لا يضر الموقع ولا يظهر عندهم الكود يقوم بما يقوم به المستخدم ولكن بصورة آلية تحتاج قبل البدء معرفة ID حقل اسم المستخدم وكذلك كلمة المرور وكذلك زر الدخول وبعدها ID لكل حقل سيتم تعبئته من الشيت وكل زر سيتم الضغط عليه لمعرفة ID لعنصر نضغط بزر الفارة الأيمن على العنصر في المتصفح ونختار inspect element وبعدها نستخدم كود انشاء نسخة من كائن متصفح انترنت اكسبلورر بمثل هذا الكود Dim IE As Object, site as String Set IE = CreateObject("InternetExplorer.Application") site = "https://www.example.com/" With IE .Visible = True .navigate site Do Until Not IE.Busy And IE.readyState = 4 DoEvents Loop End With IE.Document.getElementById("username").Value = range("aa1").value IE.Document.getElementById("password").Value = range("ab1").value IE.Document.getElementById("login_go").Click Do Until Not IE.Busy And IE.readyState = 4 DoEvents Loop وهكذا في كتابة قيم الحقول من الشيت نستعمل حلقة تكرارية مثل for - next وهكذا الضغط على اي زر لحفظ البيانات مثلا بالتوفيق

ليس مهم اللقب في المنتدى ...انما عملك عمل خبير

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

الملف مرفق Database511.accdb

هل الموقع يفتح بصورة طبيعية في متصفح انترنت اكسبلورر؟ إذا كانت الإجابة بنعم فمن السهل إنجاز المهمة بالكود وإذا كان الموقع لا يمكن فتحه ويتطب متصفحا حديثا مثل جوجل كروم أو فايرفوكس فالأمر أكثر صعوبة