اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

أبو إبراهيم الغامدي

أوفيسنا
  • Content Count

    368
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    8

أبو إبراهيم الغامدي last won the day on يوليو 3 2019

أبو إبراهيم الغامدي had the most liked content!

السمعه بالموقع

408 Excellent

عن العضو أبو إبراهيم الغامدي

  • الإسم الفعلي
    عبدالعزيز الغامدي

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    موظف
  • البلد
    السعودية
  • الإهتمامات
    قواعد بينات أكسس

اخر الزوار

2,196 زياره للملف الشخصي
  1. أهلا @Abou Hussien أعتذر إليك لعدم الرد في الوقت المناسب.. بالنسبة لتصدير البيانات فيمكنك استخدام معالج البحث في المنتدي لكون هذه الجزئية من السؤال قد سبق الإجابة عنها بطرق مختلفة.. أما ما يتعلق بتحديث وإضافة البيانات فيمكن عمل ذلك بخطوة واحدة عن طريق استعلام التحديث بالطريقة الموضحة بالشفرة أدناة.. -- بما أن كلا القاعدتين لها نفس أسماء الجداول وأسماء الحقول أيضا فنحن بحاجة إلى تمرير اسم قاعدة البيانات فقط. أعتذر عن عدم شرح الشفرة لضيق الوقت.. لكن يمكنك أن تسأل عن أي جزئية غير مفهومة! Sub UPDATE_BILL_HEAD_TBL(DATA_SOURCE As String) CurrentDb.Execute _ "UPDATE BILL AS P RIGHT JOIN [" & DATA_SOURCE & "].BILL AS F " _ & "ON (P.BILL_NUM=F.BILL_NUM) " _ & "SET P.BILL_NUM=F.BILL_NUM, P.BILL_DATE=F.BILL_DATE, " _ & "P.CLIENT_NAME=F.CLIENT_NAME, P.PAID=F.PAID, P.DETAILS=F.DETAILS" End Sub Sub UPDATE_BILL_DETAIL_TBL(DATA_SOURCE As String) CurrentDb.Execute _ "UPDATE BILL_DETAIL AS P RIGHT JOIN [" & DATA_SOURCE & "].BILL_DETAIL AS F " _ & "ON (P.BILL_NUM=F.BILL_NUM) AND (P.ITEM_NUM=F.ITEM_NUM) " _ & "SET P.BILL_NUM=F.BILL_NUM, P.ITEM_NUM=F.ITEM_NUM, P.PRICE=F.PRICE" End Sub المرفقة يوضح آلية التحديث والإضافة: Uptate Data Example.zip
  2. أهلا @عبق الرياحيين بدلي هذا السطر listBoxWorksheets.RowSource = objWsh.Name بهذا listBoxWorksheets.AddItem objWsh.Name Import Excel.zip
  3. مبارك عليك شارة الخبراء.. متفائل خيرا بهذا الاستحقاق..
  4. بل أرجو أن تفتح مشاركة جديدة تبحث فيها الأفكار المحاسبية وتطبيقاتها على قواعد بيانات أكسس 🤔
  5. أهلا ناقل.. يمكن العثور على معلومات وافية مع المثال عن هذه الخاصية في تعليمات أكسس على الرابط التالي.. Recordset.Bookmark property .. DAO والمصورات التالية ترجمة فنية للمقال من كتاب دليل اللغة Visual Basic مع المقدمة الملهمة..
  6. أهلا أحمد.. لا تقلق أنت بحاجة إلى عمل استعلام جدولي فقط..! هذا يتطلب إجراء تعديل على نوع بيانات التاريخ؛ وهذا يمكن معالجته عند تصميم الاستعلام.. أيضا نحن بحاجة إلى مناقشة إشكلات مخرجات التقرير المتعلقة بالسنة والشهر.. أولا أن بيانات السنة هي من نمط البيانات غير الثابت؛ بمعنى أن طرفة الأخير غير معلوم الحد، ولهذا لا يمكن تكديس بياناته كأعمدة رأسية! لأن به اشكالات متلقة بتصميم التقرير وبعرض الورقة.. بخلاف الأشهر فهي معلومة الحد، لكن يبقى اشكال ملائمة هذا الحد للطباعة الرأسية للورق القياسي إليك المثال: سجل رواتب الموظفين.mdb
  7. هو مدونات الفريق رابطها في أعلى الصفحة تحت تبويب [تصفح الموقع]
  8. إذا دعني أنهي مداخلتي في هذه المشاركة لأنك وصلت لطلبك.. إذا أرت إثراء الموضوع والتوسع في استخدام Web Browser Object فيمكنك فتح نقاش في حائط الموقع للتخلص من قيود السؤال والجواب..
  9. أظن أنك تسأل عن النماذج (Forms) وليس الروابط (Links) ولهذا لم تلبي الشفرة متطلباتك.. من مراجعتي للمشاركات السابقة أرى اهتمامك منصب على نموذج نسجيل الدخول. لم لا تحدد موقعا معينا نقوم بالعمل عليه حتى نصل إلى النتيجة المرضية لك.. للعلم.. يعتمد الغرض Web Browser على محرك الاصدار السابع لــ Internet Explorer وهناك مواقع لا تقدم مساندة لهذا الإصدار.
  10. نعم يمكن.. الشفرة التالية تطبع نص الرابط في النافذة السريعة Sub OPEN_LINKS() Dim WD As Object Set WD = Me.WebBrowser0.Document Dim I As Integer For I = 0 To WD.links.length - 1 Debug.Print WD.links(I).innertext Next End Sub
  11. ما أقصده؛ لماذا تريد فتح صفحات الويب داخل Web Browser Object .. أريد أن أوضح هنا أن الحدث Document_Complete لا يقع إلا مرة واحدة عند اكتمال فتح الصفحة التي تم استدعاها عن طريق الإجراء Navigate. وللتخلص من هذه الإشكالية يمكن استخدام الحدث Download_Complete
  12. أ.صالح.. يمكن الوصول إلى ما تريد إذا شاركتنا الفكرة التي تريد الوصول إليها..
  13. أهلا بالجميع.. أهلا أ. @صالح حمادي ... أ. @رمهان يتعمد احراجي دائما.. الروابط في صفحة الويب لها تابع الروابط (Links) يمكن استهدافه والتعديل على خصائصه.. الرابط له خصيصة تدعى الهدف (TARGET) هي التي تتحكم في وجة الرابط.. يمكن التعرف عليها من الرابط التالي Anchor target Property الشفرة التالية تقوم بتغيير قيمة الخصيصة للفتح في الداخل.. Private Sub WebBrowser0_DocumentComplete(ByVal pDisp As Object, URL As Variant) Dim WD As Object Set WD = Me.WebBrowser0.Document For I = 0 To WD.links.length - 1 WD.links(I).Target = "_self" '//WD.links(I).Target = "_blank" Next End Sub يمكن التبديل مع السطر المعطل لمعرفة الفرق.. :: للفائد.. النماذج لها نفس الأسلوب مع التابع (Forms) :: المثال.. ويب.accdb
  14. أ. محمد.. أنت تفحص سجلات لم تتحرك من مكانها.. لكونها لا تتضمن المنهج (MoveNext) لتدوير السجلات الأمر الآخر أن السائل يريد عمل دورة السجلات وفتح النماذج لغرض معين لم يفصح عنه! وهذا أحد الإرباكات في السؤال! لكون النماذج سوف تقوم بالتبديل بين الفتح والإغلاق بسرعة كبيرة حتى آخر سجل يقف عليه المؤشر! أما المشاركة الأخيرة فليست ضمن دائرة السؤال
×
×
  • اضف...