كل الانشطه

لا مانع طبعاً ، سأعطيك ملف به الخطوط المنتقاة لشركة صخر فى العناوين مع كوكتيل من الخطوط الأخري المفيدة Fonts_for_Office وهذه هى خطوط عناوين صخر التى تحدثت عنها سابقاً

أنا الذى قمت بالتعديل فى المثال المرفوع (من لا إلى نعم ) عن البرنامج الأساسي (فى المثال الذي رفعته _أنا_ فى التطبيق الأصلي به خصائص النموذجين " قابل للنقل : لا ") عموماً أشكرك على هذه الفكرة الجميلة التى _أنت_ أضفتها لتحريك النموذج فى المثال ، دائماً نستفيد منكم 😍 ، وإن كنت لن أحتاجها فى هذا الموضوع .

يعني حلي مايستاهل الضغط على تمت الاجابة ؟

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

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

بعض الاوقات هذا لا يكفي ، ويجب تعديل المكتبة في اماكن اخرى. على العموم ، قاعدة البيانات هذه كانت معمولة على الاكسس 2000 ، فمن المتوقع ان لا تشتغل على الاصدارات الجديدة ، وخصوصا نواة 64 بت

انا فقط قمت بإضافة PtrSafe إلى جميع الوظائف والدوال في المديولين .. الخطأ الأول عند تحميل النموذج :- pb.ImageControl = Me.Image0 بعد فتح النموذج وتجاهل الخطأ السابق ، يظهر الخطأ التالي عند الزر :- Private Sub Command30_Click() pb.DIBFlipHorizontal End Sub وهكذا في جميع الأزرار التي تستدعي pb. انا شرحت المشكلة التي قد تواجه بعض المستخدمين الذي قاموا بتحميل الملف والعمل على بيئة 64 وليس 32 . فالملف يعمل بشكل سليم على أوفيس 32

لا ، انا ما عملت اي تعديل اذن احذف الكود الذي يحرك النموذج ، وسيبقى المسمى كما هو والذي يمكنك تحديد اتجاهه. وقد قمت بشرح السبب حسب قرأتي عند البحث عن حل

اعتقد ان الاخ @jjafferr سيرد على هذا التساؤل غالبا مايكون السبب مرتبط بالويندوز ولكن لتعرف السبب بشكل أكيد جرب احد الحلين التاليين - إما تشغيل اوفيس 2016 أو 2019 في نفس البيئة التي يعمل فيها اوفيس 2024 (نفس إصدار ونفس الإعدادات الإقليمية ولغة الواجهة للويندوز) - أو تشغيل اوفيس 2024 في نفس البيئة الخاصة بأوفيس 2019 في الحالتين إذا تغيرت النتيجة سيكون السبب مرتبط بويندوز وإذا ظهرت نفس النتيجة السبب مرتبط بالأوفيس واذا اردت فيمكنك أن تعطينا إسم هذه الخطوط لنقوم بتحميلها وتجربتها ومساعدتك في معرفة السبب الاكيد تحياتي

فى المثال الذي رفعته _أنا_ فى التطبيق الأصلي به خصائص النموذجين " قابل للنقل : لا " لقد قمت بتغيير هذه الخاصية (لنعم) بالمثال حتى تقوم بالتحريك جنباً إلى جنب لترى الفرق بينهما بالطبع الأفضل لى عدم تغيير هذه الخاصية بالبرنامج الأساسي ولا داعى لإضافة lbl_Move_Form شكراً أخى جعفر على اهتمامك ومجهودك

اعطني السطر الذي به المشكلة حتى اعالجه. المبرمج Lebans هو افضل مبرمجي الاكسس في شكل وصور الاكسس ، لهذا السبب لا تجد في موقعه حلول لمعالجة البيانات ، وعادة يترك في الكود جميع انواع المكتبات ، سواء كانت مهمة لذلك الموضوع او لا ، ثم يقوم بتصفيتها في النهاية. والاسهل ان تُدخل الكود في الذكاء الاصطناعي وتطلب منه حذف المكتبات الغير مطلوبة ، وتحويل الباقي ليعمل على النواتين 🙂

تمام أخى منتصر على أي إصدار تمت تجربتك ؟ ، أنا أعتبرها ليست مشكلة بل فضول فى معرفة السبب . كمثال: على جهازي أبناط أفضل الخطوط العربية التى ابتكرتها شركة العالمية وكانت لا تعمل جيداً على كل من أوفيس 2016 ، 2019 لكن فى أوفيس 2024 زانته روعة وجمالاً مع رموز الرياضيات ( بمعنى أنها ظهرت عليه بدون أي مشاكل ) إذن هل السبب في ذلك هو إصدار الأوفيس ، أو في تغيير خصائص النموذج نفسه الذى يعمل عليه ؟ أم الأثنين معاً !!!!

وانا كذلك ما كانت عندي مشكلة. وللاجابة على السؤال وحسب ما قرأت : النماذج/التقارير المنبثقة ، ولأنه بإمكانك اخراجها من اطار برنامج الاكسس ، فيتعامل معها الوندوز ، وتأخذ الاتجاه حسب اتجاه اعدادات الوندوز ، يميناّ او يساراّ ، بينما النماذج ولأنها داخل اطار الاكسس ، فيتم التعامل معها بإعدادات الاكسس ، فتتوسط عرض النموذج. عملت هذه الحيلة: 1. جعلت النموذج بدون برواز . 2. اضفت كائن مسمى واسميته lbl_Move_Form ، ويمكنك تغيير اتجاهه حسب رغبتك . 3. استخدمت الكود التالي لتحريك النموذج ، بعد النقر على هذا الكائن Dim moveFrm As Boolean Dim xDrag As Long Dim yDrag As Long ' Private Sub lbl_Move_Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) moveFrm = True xDrag = X yDrag = Y End Sub Private Sub lbl_Move_Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim xx As Long Dim yy As Long If moveFrm = True Then xx = Me.WindowLeft + X - xDrag yy = Me.WindowTop + Y - yDrag Me.Move xx, yy End If End Sub Private Sub lbl_Move_Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim xx As Long Dim yy As Long xx = Me.WindowLeft + X - xDrag yy = Me.WindowTop + Y - yDrag Me.Move xx, yy moveFrm = False End Sub . والنتيجة 1646.Form_Caption_Direction.mdb

ولكن هذه المشكلة لا تظهر لدى الجميع فأنا عندي يظهر العنوان ناحية اليسار في النموذجين

وعليكم السلام ورحمة الله وبركاته .. واجهتني مشكلة بخصوص الملف A2KPictureBoxVer35 وهو أنه لم يعمل على الإصدار 64 للأسف 🙂 .. وظهر عندي الخطأ التالي عند تحميل النموذج ، بعد تعديل التوافق بإضافة Ptrsafe كتجربة ..

شكرا

حيا الله اخوي ابوخليل 🙂 الحاجة كالتالي: نريد عمل هوية موظف ، فالصورة الخلفية ستكون لشكل الهوية ، وسنحتاج الى احد انواع الباركود سواء Code128 او QR وهو المفضل. انظر المثال للتوضيح: . سؤال: لماذا لا نضع صورة الهوية في خلفية قسم التفصيل ، بحيث يمكن عمل الباركود فوقها (كما في الامثلة اعلاه). الجواب: بعض الاوقات نحتاج الى تحريك صورة الخلفية (بعيدا عن اطراف قسم التفصيل) ، بحيث ممكن نكتب شيء فوقها او على طرفها ، لذلك لابد من طباعة الباركود على كائن الصورة الخلفية

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

السلام عليكم ورحمة الله وبركاته أود أن أحيطك علماً بأن جميع ما قمت به من حلول في المشاركات السابقة، كانت اجتهاداً شخصياً مني ، وذلك بسبب عدم شرح تفاصيل الطلب بدقة، وغياب الشكل المتوقع للمخرجات في بداية طلبك في اول مشاركة. وهنا أود أن أسترعي انتباهك ولجميع احبابنا اعضاء المنتدى الكريم لنقطة تنظيمية وإدارية هامة : عند طرح أي سؤال أو طلب فكرة برمجية مستقبلاً، من الأفضل دائماً تجهيز ورقة عمل (شيت) داخل الملف كنموذج تصوري للنتائج، أو شرح آلية ومكان ظهور المخرجات بدقة (مثل: شكل الجدول المطلوب، وتحديد الأعمدة، وهل تريدها في نفس الورقة أم في أوراق منفصلة؟). وهذا يضمن اختصار الوقت والجهد وتفادي كثرة التعديلات المتكررة. وتكون النتائج تماماً كما تريدها وبتنسيقها الصحيح وتفاعل اعضاء وخبراء المنتدى اكثر. على أية حال، حسب فهمي لطلبك في مشاركتك الأخيرة؛ فقد تم دمج الفعاليات النشطة واللجان الخاملة معاً في شيت واحد متكامل، كما تم تعديل عدد اسماء المشاركين الى 15 عمود في طلب سابق لكم. تقبل وافر شكري، وعميق تقديري لشخصكم . لا تتردد في طلب التعديل ان كان الحل لا يلبى طلبك مؤشر عمل اللجان1 (1).xlsb

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

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

هذا هو السؤال الوحيد الذى لم يرد عليه أى زميل ، وبالطبع لكم عذركم هى ناحية جمالية ليس أكثر ، ولذلك لم يجد أى اهتمام من الأغلبية لكن لاحظت أن هذا الموضوع له ارتباط بضبط خصائص الأكسس نفسه أين بالتحديد ؟ .. لم أتوصل إليه .لأننى قمت بالتجربة على نسخ مختلفة : على أكسس 2003 ( الواجهة العربية ) كانت التسمية لها محازاة إلى اليمين فى النموذجين على أكسس 2007 (الواجهة العربية ) على أكسس 2010 ( الواجهة الإنجليزية ) db.mdb

كود البايثون اجده اسهل من الاكسيل لانه صفحة واحدة HTML تقوم بالبحث فيها CTRL+F ,وعملية سحب 1400 صفحة قد لا تستغرق 5دقائق ممكن تعديل على الكود لاضافة المواضيع الجديدة import requests from bs4 import BeautifulSoup import time, sys sys.stdout.reconfigure(encoding='utf-8') BASE = "https://www.officena.net/ib/forum/89-%D9%82%D8%B3%D9%85-%D8%A7%D9%84%D8%A3%D9%83%D8%B3%D9%8A%D8%B3-access/page" headers = {"User-Agent": "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36"} all_topics = [] #من صفحة 1 الى 50 for page in range(1, 50): # will stop when no topics found url = f"{BASE}/{page}/" print(f"Page {page}: {url}") resp = requests.get(url, headers=headers, timeout=15) if resp.status_code != 200: print(f" ✗ Status {resp.status_code} — stopping") break soup = BeautifulSoup(resp.text, "html.parser") # IPS forum topic links topics = soup.select("a[data-ipshover-target]") # fallback selector if above returns nothing if not topics: topics = soup.select("h4.ipsDataItem_title a, span.ipsType_break a") if not topics: print(" ✗ No topics found — stopping") break page_count = 0 for t in topics: href = t.get("href", "") title = t.get_text(strip=True) if title and "/topic/" in href: all_topics.append({"title": title, "url": href}) page_count += 1 print(f" → {page_count} topics (total: {len(all_topics)})") if page_count == 0: print(" ✗ No valid topics — stopping") break time.sleep(1) print(f"\nTotal: {len(all_topics)}") # Save HTML rows = "" for i, t in enumerate(all_topics): bg = "#f0f5fc" if i % 2 == 0 else "#ffffff" rows += f'<tr style="background:{bg}"><td>{i+1}</td><td><a href="{t["url"]}" target="_blank">{t["title"]}</a></td></tr>' html = f"""<!DOCTYPE html> <html dir="rtl" lang="ar"> <head><meta charset="UTF-8"><title>مواضيع أكسيس - أوفيسنا</title> <style> body {{ font-family: Arial; padding: 20px; background: #f4f6f9; }} h2 {{ color: #1E3A5F; text-align: center; }} .count {{ text-align: center; color: #555; margin-bottom: 16px; }} table {{ width: 100%; border-collapse: collapse; background: white; box-shadow: 0 2px 8px rgba(0,0,0,0.1); border-radius: 8px; overflow: hidden; }} thead tr {{ background: #2E75B6; color: white; }} th, td {{ padding: 10px 14px; text-align: right; font-size: 13px; border-bottom: 1px solid #e0e8f0; }} tr:hover td {{ background: #d6e4f7 !important; }} a {{ color: #2E75B6; text-decoration: none; }} a:hover {{ text-decoration: underline; }} </style> </head> <body> <h2>📋 مواضيع قسم الأكسيس — أوفيسنا</h2> <p class="count">إجمالي المواضيع: <strong>{len(all_topics)}</strong></p> <table> <thead><tr><th>#</th><th>عنوان الموضوع</th></tr></thead> <tbody>{rows}</tbody> </table> </body></html>""" with open("officena_access.html", "w", encoding="utf-8") as f: f.write(html) print("Saved → officena_access.html")

سيدي الكريم بارك الله لك جهدك وجعله في ميزان حسناتك يا رب العالمين عندي سؤال معلش انا اسف جدا عدد اللجان 21 لجنة منهم 11 عملوا فعاليات فتبقى 10 لم يعملو اي فعاليات ومع ذلك وجدت ثلاثة فقط مكتوبين في اللجان بلا فعاليات، فكنت اريد ان اكتب ال21 لجنة كلهم في شيت مؤشر اللجان بحيث اللجان اللي عملت فعاليات بيكون قدامها العدد بتاع الفعاليات واللجان التي ليس لها فعاليات يكون امامها صفر ويلون السطر بلون مثلا وتجمع اللجان الملونة اللي قدامها زيرو فعاليات وعندما تعمل اي لجنة فعالية تستبعد من اللجان الخاملة ولو ينفع اضيف فيه عامود تكتب اسماء الفعاليات بجانب عددهم زي العامود بتاع اسماء الفعاليات اللي مؤشر المشاركين ربنا يكرم حضرتك يا رب وعذرا لاسئلتي ولكني كلي ثقة في واسعك كرمك بعد الله عز وجل

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