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

الحمد لله تم الامر والشكر لله ثم للاخ fokh طبعا اضطرت ان انشئ اب بي اي وهمي حتى استطعت ان اجرب والاكواد واهندل الرسبونس الراجع ان شاء الله ان اتيح لي مجال ساشرح كيف يتم انشاء api مخصص مزيف مع headers حتى يتم اختبار الاكواد بفيديو لاني عانيت كثيرا حتى توصلت للطريقة واريد ان اسهل على من بعدي جهد العناء

بسم الله الرحمن الرحيم السلام عليكم ورحمه الله وبركاته اساتذتي واخوتى هذا الملف به فهرس لجميع المنتدي ليسهل البحث للاعضاء يوجد فورم يمكنك البحث بها كما يمكنكم استخدام الفلتر العادي وبمجرد الضغط على اي نتيجه من نتائج البحث يتم فتح صفحتها في المنتدي ولا انسي فضل استاذي الكبير ياسر خليل على المساعده في عمل الملف تم تحديث الملف يوم الخميس الموافق 10 - 04 - 2025 فهرس منتدي الاكسيل.xlsb

وعليكم السلام 🙂 طريقة بسيطة لعدة اوامر iif متداخلة : . جعفر

المشكلة عندك في اعدادات اللغة في وندوز المثال يعمل على اعدادات اللغة الانجليزية والعربية وجهازك اعتقد اللغة الافتراضية فيه هي الفرنسية

السلام عليكم ورحمة الله وبركاته قمت بعمل ملف من إكسل لتوزيع المراقبين على قاعات الإمتحان كلمة السر 127899 إبدأ بورقة ورقة عند الوصول للورقة 3 ( التوزيع ) ينتهي الادخال اليدوي في ورقة التوزيع ابدأ بزر زر الورقة الثالثة تعبأ بالزر الأول ثم الثاني ( ممكن أن تنقر على أي خلية لمعرفة عدد أيام المراقبة ) في ورقة الجلسات بعد أن تنتهي من كتابة كل بياناتك قم بتظليل الخلايا الفارغة ( في الأعمدة x:ba ) وانقر على زر delete احتياطا الورقة الرابعة والخامسة تعبأ بالزر الثالث الملف يتسع ل 60 معلم ( مراقب ) و 30 ( جلسة اخنبار " في أيام محتلفة " ) و 30 ( قاعة اختبار ) الملف تم عمله بسرعة بناء على طلب أحد الإخوة قد أقوم ببعض التعديلات توزيع المراقبين.xlsm

تفضل ................. Private Sub Hb_AfterUpdate() Me.rb = IIf([Hb] >= 10 And [Hb] <= 16, "normal", IIf([Hb] > 16, "up", "down")) End Sub

المثال يعمل بشكل صحيح لدي عند اضافة صنف يعمل وعند قراءة الصنف يعمل يعمل باستخدام الباركود ويعمل بكتابة رقم الاركود بشكل يدوي الشايب

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

وعليكم السلام ورحمة الله وبركاته بارك الله فيك أخي الكريم ماجد تَيِّم (أبو عبد الرحمن) وجعله الله في ميزان حسناتك يوم القيامة

السلام عليكم ورحمة الله وبركاته الأخوة والأخوات الكرام قد تم طرح موضوع قريباً طلب لإخفاء نافذة الطباعة وقد قمت بطرح فكرة لتحويل الجدول إلي ملف HTML وعملت عليها وأضفت لها بعض التحسينات + إمكانية طبعتها الي ملف PDF بصمت باستخدام المتصفح جوجل كروم شرح بسيط 1- يتم استدعاء الكود من خلال الأمر GenerateHtmlReport_TEST 2- يتم التعديل علي sqlStr 3- فيما يخص إعداد نموذج HTML يستوعب جميع الاحتياجات أمر صعب للغاية ولكن يمكن عمل نموذج خاص لكل حالة وسيعمل بشكل جيد فيما يخص النسخة الخاصة بـ البريد الالكتروني فهناك المزيد من التعديلات حتي ننتج ملف يحتفظ بتنسيقه عند وضعه داخل البريد أسئل الله التوفيق والسداد إذا أتسع الوقت والجهد سوف أقوم ببعض التعديلات الأخرى "إن شاء الله" لا مانع من أن يتفضل أحداً علينا بلمسته الطيبة ويضيف او يعدل *ملحوظة فيما يتعلق بنسخة البريد الالكتروني بعد انتاج الصفحة فقط قف علي محتواها وقم بتحديد الكل ثم انسخ المحتوي وألصقه داخل البريد الجديد بالتوفيق Export_Print_Table_To_Html_FN1.accdb

كما قال الأخوة الأفاضل قد لا نتمكن في الوقت الحالي من عمل ذلك او يمكنك البحث عن إضافة لبرنامج الاكسيس (Add-IN) قد يكون هناك ما يمكنك من ذلك وللعلم فيما يخص تحويل الـ HTML وجدت هذه الأداة (wkhtmltopdf) وتستخدم عن طريق الأوامر وتدعم التحويل إلي PDF و صور بإمكانيات جيدة ولكنها لا تدعم الـ CSS او لا تدعم من CSS 3 فما فوق رابط الموقع https://wkhtmltopdf.org/ رابط طرق الاستخدام : https://wkhtmltopdf.org/usage/wkhtmltopdf.txt لمعرفة الأوامر من خلال CMD "C:\Program Files\wkhtmltopdf\bin\wkhtmltopdf.exe" --Help "C:\Program Files\wkhtmltopdf\bin\wkhtmltoimage.exe" --Help كما يوجد اداتين ولكن لم يتم التجربة ولكن بحاجه إلي تجهيز حتي تتمكن من استخدامها https://github.com/Sicos1977/ChromiumHtmlToPdf https://github.com/puppeteer/puppeteer

عليكم السلام ورحمة الله وبركاته حتى يعمل الكود تلقائيا يجب ربطه بحدث مثل تغيير التحديد أو تغيير محتوى الشيت وهذا الكود في حدث تغيير محتوى الشيت Private Sub Worksheet_Change(ByVal Target As Range) Rows("1:16").EntireRow.Hidden = 0 For r = 1 To 16 If Range("b" & r).Value = 0 Then Rows(r & ":" & r).EntireRow.Hidden = True End If Next r End Sub بالتوفيق للجميع

وعليكم السلام 🙂 الفرز يجب ان يكون عن طريق حقل المعرف. الاستعلام: . والدالة في الوحدة النمطية: Function Concat(PR As Double) Dim rst As Recordset Dim i As Long, RC As Long Set rst = CurrentDb.OpenRecordset("select [Category] From PRindex Where [PuReq]=" & PR & " Order by [المعرف]") rst.MoveLast: rst.MoveFirst: RC = rst.RecordCount For i = 1 To RC Concat = Concat & "," & rst!Category rst.MoveNext Next i Concat = Mid(Concat, 2) rst.Close: Set rst = Nothing End Function . والنتيجة: 1617.PRindex.accdb.zip

Me.Page Me.PageFooter Me.PageFooterSection Me.PageHeader ! Me.Pages فأكملة على الفكر @ابو البشربستخراج فهرس للكل صفحة وترتيب الصفحات 😇 (تجربه) بس بعدين تعدل Close Function Pusse And Add TimerTr ... Control = "-" whit Completed صمم تقرير للفهرسة مع استعلام 2024.rar

بل هو مرتبط اخي المنهندس @Eng.Qassim في بداية الموضوع توهمت انت المطلوب هو تسلسل السجلات ... ولكن بعد ان قرأت الموضوع مرة اخرى اتضح لي ان المطلوب تسلسل صفحات حسب المجموعات .... انظر الصور لعلها تغني عن الشرح .... حيث تم استغلال اسم رأس المجموعة وادخالها في متغير للاعتماد عليها في ترقيم الصفحات

اولا حاول وضع الكود في Module 2) النطاق ("Idate") غير موجود عندك على الملف ممكن تشرح لي ما تحاول فعله ؟