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

وعليكم السلام ورحمة الله وبركاته .. مهندسنا الغالي تبارك الله ، ما شاء الله على الأفكار الجميلات الممتعات أحسن الله إليك ، ورفع قدرك على هذه الفكرة الجميلة .. بعد تجربتي الأداة تعمل 100% عندي . ولكن كان لي نقطة واحدة فقط وهي قراءة الرد من السيرفر بشكل أوضح . ما أقصده هو ، وكمثال بعد محاولات كثيرة حتى تم استنزاف رصيد الـ 50 محاولة المجانية لديكم :- والتنفيذ في الجزء :- Else Dim errTxt As String On Error Resume Next errTxt = http.responseText On Error GoTo 0 DoCmd.Hourglass False If InStr(errTxt, "unknown_foreground") > 0 Then MsgBox "We’re sorry, we couldn’t remove the background." & vbCrLf & _ "Try another image.", _ vbExclamation, "Remove Background" ElseIf http.Status = 401 Then MsgBox "API Key غير صحيح", vbCritical + vbMsgBoxRight, "Remove Background" ElseIf http.Status = 402 Then MsgBox "لم يعد لديك أي محاولات مجانية في هذا الحساب", vbCritical + vbMsgBoxRight, "Remove Background" Else MsgBox "حدث خطأ غير معروف:" & vbCrLf & _ http.Status & " - " & http.statusText, _ vbCritical + vbMsgBoxRight, "Remove Background" End If كما قمت بإيقاف السطر التالي أيضاً :- MsgBox "فشلت العملية" Moosak BG Remover.accdb

اعرض الملف 🖼️ أداة جميلة لإزالة خلفيات الصور | سلسلة هدايا الأكسس | ⭐ 🎁 السلام عليكم ورحمة الله وبركاته لكسر الروتين وعموم الفائدة 😎👌 أقدم لكم أداة جديدة بفكرة جديدة 🙂 :: أداة إزالة خلفيات الصور :: الهدف من الأداة واضح >> وهو ببساطة إزالة خلفيات الصور >> والناتج صورة بخلفية شفافة بصيغة png . ولها استخدامات كثيرة في الاحتياجات العامة أو لتشذيب الصور قبل إدراجها في برنامج الأكسس مثلا .. أو .. أو .. أو .. عدد ما شئت أنا شخصيا أحتجتها في برنامجي (صانع الشهادات) لإزالة خلفيات التواقيع 🖋️📜 ثم إضافتها للبرنامج كمرفق. الأداة فكرتها بسيطة >> الإتصال بموقع remove.bg المشهور عن طريق ال API والعودة بالناتج بدون الحاجة لفتح الموقع. مفتاح الـAPI الحالي هو خاص بي ويمكنكم استخدامه مباشرة ولكنه محدود ب 50 تحويل لليوم .. في حال رغبتك بوضع مفتاحك الخاص ( وهي خدمة مجانية بالمناسبة ) يمكن تغييره في أول صفحة الكود وقد وضحت الطريقة هناك . 🙂 الملف مفتوح المصدر :: ودعواتكم الطيبة 🙂 صاحب الملف Moosak تمت الاضافه 06/22/26 الاقسام قسم الأكسيس  

اما لمرفقك تم اضافة الحقل Fondationatteignant-quor2 للاستعلام Q3 وتعديل استعلامك استعلام1 تفضل المرفق بعد التعديل بطلبك . ووافني بالرد . برنامج التوقيت-1.rar

ممكن ينفذ بالجدول tbl_Employees بالحقلان Fondationatteignant-quorum و Fondation ActiveFondation: IIf(IsNull([Fondationatteignant-quorum]) Or [Fondationatteignant-quorum]="";[Fondation];[Fondationatteignant-quorum]) والاستعلام كله هكذا SELECT tbl_Employees.id_pers, tbl_Employees.date_engage, tbl_Employees.Fondation, tbl_Employees.Nom, tbl_Employees.Nom_Français, tbl_Employees.Prénom_Français, tbl_Employees.[Fondationatteignant-quorum], IIf(IsNull([Fondationatteignant-quorum]) Or [Fondationatteignant-quorum]="",[Fondation],[Fondationatteignant-quorum]) AS ActiveFondation FROM tbl_Employees;

الله ينور عليك أخي الكريم وبارك الله فيك

هههههههه ، اذا كذا الأمور بسيطة .. تتفضل 6NoGi3EQdt14ze2EgDhJikxp gkqDtA9bNm19paxNfgZuuCQQ gDjqVdH6a18n3e4xpTfnJryr sbnYXhbjR7R6DMB5tLYsK5EQ يكفي !!

ياسلام عليك .. أشكرك باش مهندس .. إضافة مهمة فعلا .. 🙂👌 وأدفع ثمن الرصيد اللي خلصته 😅🖐

حياك الله. استعملت نفس الاستعلام. نسخت SQL الاستعلام مصدر بيانات النموذج (لاحظ السهم في الصورة) ، . والصقته وعملت منه استعلام ثابت . ثم عملت عليه التعديل . ثم استعملت هذا الاستعلام المعدل كمصدر بيانات للنموذج

نعم صحيح .. لفصل الذكور عن الإناث في عامودين منفصلين . والتجميع والعرض تم على 3 حقول ( أولاً الصف ، ثانيا الفصل ، وثالثاً الجنس ). طبعاً اعتقد أننا نستطيع الاستغناء عن التجميع للصف بما أنه شرط الاستعلام . والإبقاء على الفصل والجنس فقط .. emad.accdb

do not keep Group togther

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

تمام ،، تفضل أخي أسعد :- emad.accdb

هكذا ؟؟

وعليكم السلام الاستعلام مصدر بيانات نموذج TAB ، حولته من جملة SQL الى استعلام ، حذفت المجاميع ، وعملت عليه هذا التعديل : . . والنتيجة . 1654.Assaker1.accdb.zip

تفضل استاذ @بلال بلال طلبك كما بالرسالة الخاصة ........ بعد التعديل بالاستعلام . ووافني بالرد . البرنامج4-1_2.rar

إضافة للاستاذ كمال تفضل ملف عملي طرح تاريخين.xlsx