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

وانا كذلك ما كانت عندي مشكلة. وللاجابة على السؤال وحسب ما قرأت : النماذج/التقارير المنبثقة ، ولأنه بإمكانك اخراجها من اطار برنامج الاكسس ، فيتعامل معها الوندوز ، وتأخذ الاتجاه حسب اتجاه اعدادات الوندوز ، يميناّ او يساراّ ، بينما النماذج ولأنها داخل اطار الاكسس ، فيتم التعامل معها بإعدادات الاكسس ، فتتوسط عرض النموذج. عملت هذه الحيلة: 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

السلام عليكم الموقع https://zingl.github.io يعرض طريقة لعمل الباركود Code128, QR, Aztec, DataMatrix بالكود ويدون الاستعانة ببرامج خارجية. في الموقع مرفق اكسس (وقد عملت تعديل بسيط عليه لعمل الصور التالية ، والمرفق موجود في اسفل المشاركة) ، وهنا اعرض مثالين على العرض: . . طبعا Code128 غير مناسب للكلمات الطويلة. الكود يقوم بعرض الباركود داخل حقل نص Textbox ، وهو يستعمل Line لعمل الباركود : . المشكلة ان الاكسس يقوم بتنفيذ الامر Line على خلفية التقرير/النموذج ، وبعدها يقوم بعرض بقية الكائنات ، بمعنى ، اذا وضعنا كائن/حقل صورة خلف حقل نص الباركود ، فاننا لا نستطيع رؤية الباركود ، لأنه اصبح خلف الصورة. في الصورة التالية ، التقرير الاول هو ما تم عرضه سابقا ، بينما في التقرير الثاني وضعت صورة زرقاء خلف كائنات/حقول الباركود: . ونتيجة التقرير الثاني: . مع وجود الصورة في الخلف ، المطلوب اظهار الباركود على الصورة ، وبأي طريقة. من تجربتي ، لإظهار الباركود ، يجب وضعه في كائن/حقل صورة ، امام الصورة الخلفية. ارفق لكم من نفس الموقع ، مرفق اكسل كذلك. ومن موقع www.lebans.com ارفق قاعدة البيانات A2KPictureBoxVer35.accdb ، والتي بها نموذج و مكتبات قد تساعد الذكاء الاصطناعي بالعمل (نعم ، قد يحتاج الى مساعدتك في توجيهه). QR_barcode.accdb A2KPictureBoxVer35.accdb barcode.xlsm

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

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

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

كود البايثون اجده اسهل من الاكسيل لانه صفحة واحدة 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")

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