كل الانشطه

دي صورة اضافة صفوف

انا جريت فقط اضافة صفوف ولكن ظهرت تحت الذكور فقط ولكن اجتاجها تحت الذكور والإناث ولكن فيه مساحة ناحية الشمال في رأس الصفحة كيف نستغلها في كتابة شيئ

هل جربت ؟؟؟ ما النتيجة التي صادفتها ؟؟

اما لمرفقك تم اضافة الحقل 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;

لم تذكر بأي جدول ؟؟؟ لان الجدول tbl_Horaire2 الذي به الحقل Fondationatteignant-quor2 ................................. لايوجد به الحقل Fondation

بعد اذنك أخي الفاضل 1- هل ينفع نستغل المساحة الفارغة في رأس الصفحة في كتابة شيئ ؟ 2- هل ينفع ازود صفوف فارغة في نزيل الصفحة يحيث تظهر في الذكور والإناث زي كده يعني بحيث لو زاد عدد البنون أو البنات يتم تسجيله يدوي بعد الطباعة

السلام عليكم لدي حقلين : حقل Fondation وحقل Fondationatteignant-quor2 هل نسطيع دمج الحقلين في حقل واحد في التقرير اي عندما يكون الحقل Fondationatteignant-quor2 فارغ يظهر الحقل الثاني: Fondation برنامج التوقيت.rar

شاهد المرفق internet.rar

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

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

تفضل .. emad.accdb اتجاه الورقة ولكن بلا أدنى شك أنه ليس الحل الصحيح ,, انا لجأت لكلمة حيلة فقط

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

شكرا جزيلا لكما وبارك الله فيكما لي سؤال من فضلكم : بناء علي ايه تم تحديد الذكور علي اليمين والإناث علي الشمال لي طلب : مفيش تحايل علي التقرير يظهر كده يعني الدباجة تظهر في النصفين

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

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

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

السادة الخبراء الافاضل خالص التحية اليكم مااريد فى الصورة واليكم القاعدة للتعديل عليها Lab_2026.rar

السلام عليكم يمكن عمل ذلك بقك الحماية في بداية اي كود ثم اعادة الحماية في نهاية الكود كلمة الحماية 123 يمكنك تعديلها بالكود جدول الحراسة.xlsm

صراحة لم أفهم قصدك !!! هل تقصد أنك تريد تكرار العملية لزر آخر غير زر (Suivi Vente) ؟ عموما إذا كنت تقصد زر آخر غير زر (Suivi Vente) فيمكنك إستخدام نفس الـ Module أو إنشاء واحد جديد ولكن أهم شرط في الحالتين هو إستخدام أسماء فريدة لكل إجراء بمعنى عدم تكرار التسميات التالية (Mouvementcompany و OpenForm1 و OpenForm2 و ...... و OpenForm14) وكآلية عمل يمكنك تنفيذها يمكنك تمييز كل قائمة بكلمة معينة فمثلاً القائمة الجاهزة هنا نميزها بالكلمة (SouSou) فإذا إحتجنا لقائمة أخرى نقوم بنسخ هذه القائمة ونقوم ببحث وإستبدال لكلمة SouSou وتعديلها بكلمة أخرى تعبر عن القائمة الجديدة هكذا ستحصل على قائمة بدون أي مجهود ولن يتبقى عليك إلا إستبدال أسماء النماذج والتسميات قد يكون الشرح بتطبيق عملي أفضل لذلك قمت بتعديل المثال كالتالي - أعدت تسميات الإجراءات والتسميات الحالية لتمييزها بكلمة (SouSou) - قمت بعملية نسخ ولصق لكل الإجراءات في نفس الوحدة النمطية ثم بحث وإستبدال لكلمة (SouSou) وتعديلها بكلمة (Retour) لكل ما تم نسخه ثم عدلت أسماء النماذج في كل إجراء إلى أسماء النماذج التي تبدأ بحرف C ستلاحظ أني لم أحتاج إلا إلى 8 إجراءات فقط - قمت بعملية نسخ ولصق للقائمة الأولى مرة أخرى ولكن تم اللصق في Module جديد ثم بحث وإستبدال لكلمة (SouSou) وتعديلها بكلمة (Recette) ثم عدلت أسماء النماذج في كل إجراء إلى أسماء النماذج التي تبدأ بحرف D ستلاحظ أني هنا إحتجت لإضافة إجراء جديد لفتح النموذج الاخير الآن ستظهر القائمة الأولى عند النقر على الزر (Suivi Vente) والقائمة الثانية مع الزر (Retour) والثالثة مع الزر (Recette) تم تحديد الازرار كمثال فلغتي الفرنسية صفر كملاحظة أخيرة يمكنك الان تعديل التسميات الخاصة بعناصر القوائم الثلاث وكذلك يمكنك نقل القائمة الثالثة إلى نفس الوحدة النمطية للقائمتين الأخريين ارجو أن يكون الشرح قد وضح لك طريقة العمل بحيث أصبح بإمكانك إنشاء قوائم أو تعدبلها تحياتي internet.rar

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

لم اعدل ملفك ... ولكن عند فتحة ظهرت مرتبة وبدون مشاكل

وعليكم السلام ورحمة الله وبركاته .. مهندسنا الغالي تبارك الله ، ما شاء الله على الأفكار الجميلات الممتعات أحسن الله إليك ، ورفع قدرك على هذه الفكرة الجميلة .. بعد تجربتي الأداة تعمل 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