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

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

الخبراء
  • Content count

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

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

  • Days Won

    5

أبو إبراهيم الغامدي last won the day on December 10 2017

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

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

191 Excellent

8 متابعين

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

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

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

اخر الزوار

594 زياره للملف الشخصي
  1. كل مزود خدمة له إعدادت تخصه من ناحية الأبي والبورت.. لكن الإجراء واحد.. في اعتقادي أن جميع مزودي خدمة الرسائل يوفرون خدمة الشفرة المصدرية لمنتجاتهم.. لو بحثت في الموقع أو تصلت على المزود سوف يقوم بخدمتك!
  2. الرجاء المساعدة فى وضع مسار للصور

    أعتذر إليك عن هذا التقصير.. قمت بإصلاح الخطأ.. كل منتج له نموذج صورة يخصه.. لست ملزما بإغلاق صورة المنتج الظاهرة لترى صورة المنتج الأخرى إليك التعديل:Scc2.zip
  3. إذا كنت تقصد موقع BulkSMS فالموقع يقدم الدعم لمستخدمي أكسس.. الرابط التالي فيه مثال من الموقع لدعم مستخدمي أكسس http://developer.bulksms.com/eapi/libraries/supported/msaccess/ وهذا هو المثال: BulkSMS MS Access Samples.zip
  4. جمع قيم تقريرجدولي أفقيا و راسيا

    إليك التعديل db333.zip
  5. الرجاء المساعدة فى وضع مسار للصور

    إليك ماطلبت... Scc1.zip
  6. برنامج المواعيد كيف يمكن تخطى الجمعة والسبت

    استخدم الشفرة التالية في زر الأمر START Dim I As Integer Dim DATE_POST As Date DATE_POST = CDate(Forms![TEST1]![Date_M]) For I = 1 To Forms![TEST1]![F] If Not Weekday(DATE_POST) Like "[6-7]" Then Me.no = I Me.date = DATE_POST Else I = I - 1 End If DATE_POST = DATE_POST + 1 DoCmd.GoToRecord , , acNewRec Next
  7. اخفاء شاشة الاكسس

    الأمر سهل! افتح الرسام > جديد غير مقاس الصورة إلى 1 بكسل سيصبح مقاس الصورة بهذا الشكل أرجو أن يكون ياستطاعتك رؤية الصورة
  8. اخفاء شاشة الاكسس

    اجعل حجم الصورة 1 بكسل! حيلة سهلة!
  9. كشكول VBA ... متجدد

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

    أهلا بك أستاذ أبو آدم والاساتذة في إدارة المنتدي الكريم الاستاذ أبو خليل و الاستاذ جعفر في اعتقادي أن عدم إلزام السائل بالبحث عن الإجابة أكثر إيجابية، وأكثر إثراءً للحلول، وأوفر للمشاركين بتقديم مالديهم من تجارب في تقديم الحلول، كما أن الأسئلة لايمكن أن تكون جميعها متشابه، أو تكون طلبات السائلين متطابقة.. هذا بعيد.. ثم ما الغضاضة في تكرار الأسئلة؟ هل هو القلق من تكرار الإجابة؟! إن نسبة التطابق بين هذين السؤالين ضئيل جداً! فلو سألتني عن فكرة تسجيل الأحداث على مستوى الحقل في زمن أكسس 2003 لن تكون هي نفسها بالنسة لأكسس 2007، لأن في الأخير إمكانية لذلك لم تكن لم تكن موجودة مسبقا! ثم إن معظم الأسئلة السابقة مغلقة بالإجابات التى ارتضاها السائلون ولا أظن أنا اعادة فتحها أو الإشارة إليها فكرة جيدة! هذا إذا كان الباحث عن الإجابة يريد مناقشتها.. وفي نظري أن تأبين المشاركات السابقة خاصة تلك المتعلقة بإصدارات أكسس 2003 وما قبله أمر أكثر إلحاحا من ذي قبل لأننا بحاجة إلى أن تعلم الجديد! تحياتي لكم
  11. هذا من نبلكما أخواي وسابق فضلكما، ولا أعتقد أن ما قدمته يسمو إلى مقامكما.. ولكنه التواضع المعهود فيكما.. لا أظن أنني أحسن هذا النوع من المشاركات.. أرجو المعذرة..
  12. هل يمكن استخدام ! مع متغير بدلا من اسم الحقل فى جملة اسكيوال

    أهلا بك أستاذي عبدالله فكرة سليمة ومنطقها صحيح.. لكن المشكلة في الإيعاز.. استخدم هذه الشفرة ملاحظة: ليس كل عناصر التحكم في النموذج تعيد بيانات ولذلك يجب وضع شرط لتقيدها Sub ADD_NEW() Dim M As DAO.Recordset Dim C As Control Set M = CurrentDb.OpenRecordset("Employees", dbOpenDynaset) M.AddNew For Each C In Detail.Controls If C.ControlType = acTextBox Then M(C.Name) = C.Value End If Next M.Update End Sub
  13. وعليكم السلام ورحمة الله أهلا بك أستاذ عبد الفتاح ومرحبا.. عودا حميد.. أرجو أن أوفق لإرضاء طموحك.. لأني أتساءل كيف ستقوم باستخدم الطريقة على مستوى المستخدم؟! هل ستسلمة بيانات مفتوحة المصدر؟! أم أن لديك طريقة ما تتيح للمستخدم انتقاء حقول البيانات ومعالجنها ومن ثم تصديرها؟! على كل حال إليك الطريقة.. يمكن تصدير حقول مختارة من جدول أو استعلام عن طريق مزودات البيانات لأكسس (DAO,ADO) عن طريق خصيصة توصيف البيانات لكل منهما.. هناك فروق بسيط بين المزودين لكن سوف أركز على (DAO) لكونة المزود الافتراضي لأكسس.. يمكن توصيف البيانات على مستوى قاعدة البيانات، كما يمكن توصيف البيانات على مستوى مصدر السجلات (Recordset).. صيغة الشفرة لهذه المكونات كالتالي مكون (ِADO) Function OLEDB() As ADODB.Connection Set OLEDB = New ADODB.Connection OLEDB.Open "Provider = Microsoft.ACE.OLEDB.12.0;Data Source =" & CurrentProject.Path & _ "\EMPLOYEES.XLSX;Extended Properties = 'Excel 12.0;HDR=YES;'" End Function مكون (DAO) Function XLDB() As DAO.Database DB_PATH = CurrentProject.Path & "\BOOK2" Set XLDB = OpenDatabase(DB_PATH, True, False, "EXCEL 12.0;HDR=YES;") End Function يكون مصدر البيانات لهذين المكونيين هو ملف أكسل، فإذا كان ملف أكسل موجود مسبقا فإن المكون سيقوم بإدراج ورقة البيانات إلى الملف، أما إذا كان ملف أكسل غير موجود فسيقوم المكون بإنشاء الملف وإدراج ورقة البيانات.. إذا كان ملف أكسل يحتوي على ورقة بيانات بنفس الاسم فسيعيد المكون رسالة الخطأ (3010) مفادها أن ورقة البيانات موجودة مسبقا.. ينطبق ما سبق على مكون مصدر السجلات (Recordset) وهذه صيغته Sub EXPORT_TO_EXCEL_02(SHEET_NAME) '.. EXPORT TO EXCEL USING CURENTDB EXECUTE CurrentDb.Execute "SELECT ID, [LAST NAME],[FIRST NAME] INTO [" & SHEET_NAME & "]IN'" _ & CurrentProject.Path & "\employees'[Excel 8.0;HDR=yes;] FROM EMP1" End Sub يمكن أيضا استخدام (DOCMD.RUNSQL) لكونها تعمد على (DAO) في مصدر البيانات وهذه صيغته Sub EXPORT_TO_EXCEL_01(SHEET_NAME) '.. EXPORT TO EXCEL USING DOCMD RUNSQL DoCmd.RunSQL "SELECT ID, [LAST NAME],[FIRST NAME] INTO [" & SHEET_NAME & "]IN'" _ & CurrentProject.Path & "\employees'[Excel 8.0;HDR=yes;] FROM EMP1" End Sub أرجو ملاحظة أن الأخيرين لهما نفس الصيغة في تعريف البيانات الصيغة المخصصة لتوصيف بيانات أكسل هي "EXCEL 8.0;HDR=YES;" 'تستخدم هذه الصيغة على مستوى قاعدة البيانات [EXCEL 8.0;HDR=YES;] 'تستخدم هذه الصيغة على مستوى مصدر السجلات الرقم في هذه الصيغة يمثل رقم إصدار نسخة الأوفس، وهو هنا للسخة 2003، وأنصح باستخدام هذه الرقم لتجنب وقوع خطأ عدم مطابقة النسخة عند تصدير البيانات... طريقة تصدير البيانات تعتمد على صيغة استعلام عمل جدول (SELECT ... INTO.. IN.. [EXCEL 8.0;HDR=YES] FROM) ..SELECT تأخذ اسماء حقول البيانات ..INTO ينشئ جدول يحمل البيانات العائدة من SELECT .. الجدول هنا هو ورقة البيانات في أكسل ..IN تأخد اسم ملف أكسل مع الدليل [EXCEL 8.0] ثوصيف مصدر البيانات المصدر إليها البيانات FROM تأخذ اسم جدول البيانات في أكسس المثال التالي يوضح كيف يمكن استخددام الطريقة على مستوى المستخدم؛ وذلك بتمكينه اختيار الحقول إما من الجدول أو استعلام ومن ثم تصديرها إلى أكسل Access With Excel.zip
  14. جعل صورة داخل القاعدة وليس خارجها

    أليس هذا سؤالك؟ أين الحل الذي توصلت إليه؟
  15. جعل صورة داخل القاعدة وليس خارجها

    هذه المكتبة تضاف إلى المراجع تلقائيا عند إضافة مكونات Windows Form في النموذج
×