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

أبو آدم

أوفيسنا
  • Content count

    3,250
  • تاريخ الانضمام

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

  • Days Won

    25

أبو آدم last won the day on March 30

أبو آدم had the most liked content!

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

572 Excellent

11 متابعين

عن العضو أبو آدم

  • الرتبه
    فريق الموقع
  • تاريخ الميلاد 17 يون, 1965

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

  • Gender (Ar)
    ذكر
  • Job Title
    مدير تنفيذي لشركة خاصة
  • بلد الإقامة
    المملكة الأردنية الهاشمية

اخر الزوار

3,754 زياره للملف الشخصي
  1. قم بتحديد عرض الحقول في حدث عند التحميل
  2. الترقيم التلقائي

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

    كود للدوران ضمن مجموعة خلايا في الاكسيل وتثبيت منضومة ارقام
  4. الغاء رسائل الاكسس

    شكرا و أحسن الله اليك
  5. منع التكرار في النموذج الفرعي

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

    لنلق نظرة على مثال بسيط جدًا لإنشاء Class Alt+F11 Insert Module Class Module يظهر لنا محرر Visual Basic قبل البدء بكتابة الكود يفضل ان نثبت إسم للوحدة النمطية و ليكن clsCustomer في المحرر نكتب ' Class name: clsCustomer Public Name As String قم بحفظ الاجراءات و اخرج من الوحدة النمطية و لنقم مثلاً بانشاء نموذج جديد و نفتح عرض التصميم ، و في محرر Visual Basic نضع الروتين التالي Private Sub sfPrint() End Sub حيث نقوم بتعريف اسم زيون جديد حسب المعرف في clsCustomer باستخدام العبارة ، و هي اساسية لتعريف الزبون الجديد Dim oCustomer As New clsCustomer ثم نستخدم خاصية الاسم name. لهذا الزبون الجديد و نسند له القيمة ' Set the customer name oCustomer.Name = "Nart Lebzo" ثم نحدد الاجراء المراد تطبيقه ' MsgBox the name MsgBox oCustomer.Name و بذلك يصبح الكود كما يلي Private Sub sfPrint() ' Create the object from the class module Dim oCustomer As New clsCustomer ' Set the customer name oCustomer.Name = "Nart Lebzo" ' MsgBox the name MsgBox oCustomer.Name End Sub ثم نقوم ( مثلا ) بانشاء زر أمر نضع خلف حدث النقر الكود التالي لاستدعاء الروتين الذي يطبق clsCustomer Private Sub Command0_Click() Call sfPrint End Sub و للحديث بقية ......
  7. ممكن شرح مفصل عن طريقة استخدام class

    يتم تعريف كل كائن في Visual Basic بواسطة Class و الذي يحوي و يفصل المتغيرات والخصائص والإجراءات والأحداث الخاصة بالكائن ، و تصبح هذه الكائنات ممثلة ل Class ؛ و بذلك يمكنك إنشاء العديد من الكائنات التي تحتاج إليها بمجرد تعريف و إنشاء Class. Class ، تحدد و تعرف الصفات المميزة للكائنات الخاصة بنا . و للتعامل مع الكائن و مميزاته و اجزائه ، لا بد من إنشائه بموجب Class و هنا نستخدم Class لإنشاء تعريف لكائن مخصص . يصبح الاسم الذي قمت بحفظ Class به هو اسم الكائن المخصص الخاص بك. تصبح الإجراءات Sub Sub و Function التي تحددها داخل Class أساليب مخصصة للكائن. تصبح إجراءات الملكية العامة Let و Property Get و Set Property خصائص الكائن. و للحديث بقية ....
  8. الترقيم التلقائي

    اطلعت على المرفق حسب المرفق رقم المستعير عندك مرتبط مع الترقيم التلقائي للمستعير من جدول البيانات
  9. منع التكرار في النموذج الفرعي

    ارفق قاعدة للتطبيق مع بعض المعلومات في الجداول ... لطفا
  10. أخي العزيز حاليا لا يخطر ببالي روتين أو كود لفلترة مربع التحرير بذاته ، و قد لا يكون متاحاً بهذه الصورة و لكنني حسب تحليل المرفق و طلبك أقترح عليك تحويل مربعات التحرير في النموذج الى مربعات نص اضافة مربع تحرير و سرد بمصدر معلوماته ، و ليكن اسمه Images و خلف حدث ( بعد التحديث ... AfterUpdate ) ، ضع الكود التالي : Private Sub Images_AfterUpdate() If IsNull(Me.Image1) Then Me.Image1.SetFocus Me.Image1.Text = Me.Images.Column(0) End If If Not IsNull(Me.Image1) And IsNull(Me.Image2) Then Me.Image2.SetFocus Me.Image2.Text = Me.Images.Column(0) End If If Not IsNull(Me.Image1) And Not IsNull(Me.Image2) And IsNull(Me.Image3) Then Me.Image3.SetFocus Me.Image3.Text = Me.Images.Column(0) End If If Not IsNull(Me.Image1) And Not IsNull(Me.Image2) And Not IsNull(Me.Image3) And IsNull(Me.Image4) Then Me.Image4.SetFocus Me.Image4.Text = Me.Images.Column(0) End If End Sub حيث يفحص مربع النص Image1 فان كان خاليا يقوم باضافة القيمة المختارة اليه ، و الا ينتقل لمربع النص Image2 فان كان خاليا يقوم باضافة القيمة المختارة اليه ، و هكذا و في حال ضرورة تعديل اسم اي صورة قم بحذف محتويات مربع النص الخاص بها و اختر من مربع التحرير و السرد قيمة جديدة ، سيتم نقلها للحقل الفارغ . حاليا .... مجرد اقتراح شكرا
  11. ممكن شرح مفصل عن طريقة استخدام class

    اخوتي الفضلاء في اللغات البرمجية مثل # C و Java ، يتم استخدام Class لإنشاء الكائنات ، و لها مرادف في VBA في Access ، هناك نوعان من الوحدات النمطية : الوحدات النمطية القياسية والوحدات النمطية للفئة Standard modules and class modules موضوع حديثنا هنا والوحدات النمطية للفئة Class ، و هي مصنع الكائنات و خصائصها ، لذا لا بد لنا ان نعرج قليلا على أهم مفاهيم الكائنات في Visual Basic . الكائن هو مزيج من الكودات و البيانات التي يمكن التعامل معها كوحدة واحدة ، و يمكن أن يكون الكائن جزءًا من التطبيق ، مثل عنصر تحكم أو نموذج ، ويمكن أن يكون التطبيق بأكمله كائنًا . عند إنشاء تطبيق في Visual Basic ، تعمل باستمرار مع الكائنات ، و الغالب فيها هي الكائنات التي يوفرها Visual Basic ، مثل عناصر التحكم والنماذج وكائنات الوصول إلى البيانات. Dim db As DAO.Database Dim qd As QueryDef Dim ctl As Control Dim pag As Page كما يمكنك أيضًا استخدام الكائنات من التطبيقات الأخرى داخل تطبيق Visual Basic. Dim ExcelSheet As Object Set ExcelSheet = CreateObject("Excel.Sheet") و الذي يهمنا هنا انه يمكنك أيضًا إنشاء كائناتك الخاصة وتحديد خصائصها و طرق عملها ، و تكون هذه الكائنات مثل اللبنات الجاهزة للبرامج - فهي تتيح لك كتابة الكود مرة واحدة وإعادة استخدامها مرارًا وتكرارًا عند الحاجة لها . و كأي شيئ آخر هناك حسنات و معيقات لاستخدام الكائنات الخاصة في التطبيقات ، ومن الحسنات ، إتاحة بناء التطبيق ككتل معتمدة على الكائنات التي يتم انشاؤها ، ويكون من السهل فحص و اختبار أجزاء التطبيق ، و اذا اضطررنا ( كما يحدث غالبا ) لتعديل او تحديث الكود ، تجنبنا حدوث مشكلات في أجزاء أخرى من التطبيق ، و يبقى دائما من السهل إضافة كائنات بين التطبيقات . أما المعيقات فتتمثل في الجهد والوقت الأطول ( في البداية ) لإنشاء التطبيقات و خاصة عند التحليل و التخطيط ، ولكن على المدى الطويل سيكون هناك توفير للوقت بالاضافة الى كودات يسهل التعامل معها و تحديثها و تعديلها ، كما أنه ليس من السهل دائمًا تحديد ماهية الكائن و خصائصه ، كما أن معظم المبرمجين ( و خاصة الجدد منهم ) يجدون صعوبة ( في البداية ) بفهم الكائنات و الوحدات النمطية للفئة Class . وللحديث بقية ...
  12. ممكن شرح مفصل عن طريقة استخدام class

    نعم اخي العزيز ممكن و لكن امهلني لتجهيز الشرح ، لعموم الفائدة شكرا
  13. هل يمكن توضيح الغاية اذا سمحت شكرا
  14. هل تقصد بالفلترة - فلترة مصدر المعلومات و الابقاء على المطابق فقط اذا كان كذلك ... هل يمكن توضيح الغاية اذا سمحت شكرا
  15. ارفق قاعدة للتطبيق ... لطفا
×