Jump to content
أوفيسنا

Hawiii

03 Special Member
  • Content Count

    122
  • Joined

Community Reputation

80 Excellent

1 Follower

About Hawiii

  • Rank
    Name

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    هاوي
  • Location
    السعودية
  • Interests
    التعلم

Recent Profile Visitors

400 profile views
  1. الله يبارك في الجميع حل اضافة السجلات بدون تكرار لجدول آخر ممكن عملها باستعلام واحد فقط. لكن كان ودي أشارككم بحل بالكود أقوم فيه فقط بتحديد المكرر وأراه بنظري أنسب من عمل جدول آخر ولكن لم أرى أي إشارة بقبول المشاركة. نشارككم في مواضيع أخرى إن شاء الله.
  2. لو تزودوني بنسخة 2007 حتى أقدر أشارككم بفكرة ثالثة تختمر في رأسي.
  3. في نفس المكان أخي ، خاصية القيمة الإفتراضية Default Value موفقين
  4. أعتقد أن صاحب هذا الموضوع أول من كتب كود الشجرة في مواقع الأكسس العربية على الإطلاق. ليت كل من ينقل عنهم ولو جزئيا ذكر المصدر وإن كان يجهله فليذكر اسم المنتدى وإن لم يتذكره فليوضح أقلها أن (الأصل) ليس من جهده. مثال لعرض الشجرة - قسم الأكسيس Access - أوفيسنا (officena.net) تقبل الله صيامكم وقيامكم
  5. ويمكنك أيضا استخدام دالة التاريخ: = DateSerial(2020,1,1) وهي (عندي) أفضل من كتابتها بين علامتي الرقم وخصوصا لتجنب الخلط بين اليوم والشهر. كذلك تحتاج أن تجعل نوع الحقل تاريخ فربما النوع عندك نص.
  6. الحقيقة لم أجد أي مرجع يذكر موضوع هذا العدد وأنا أضفت حقول أكثر من عشرة للتجربة ولم أجد أي رسالة خطأ في الكود.
  7. المثال نفسه جمعت فيه ثلاث الطرق السابقة وأضفت عليه رابعة بعد الإستفادة من الطريقة الثالثة طريقة الأستاذ خالد يعني المثال فيه أربع طرق الآن Private Sub Product_NO_AfterUpdate() 'Hawiii Dim rst As DAO.Recordset Dim flds As Variant Dim fldsArray Dim fld As Field Dim count As Integer On Error Resume Next '------------------------------------- Const tableName As String = "Products" Const fldsKey As String = "Product_NO" '------------------------------------- Set rst = CurrentDb.OpenRecordset(tableName, dbOpenSnapshot) With rst For Each fld In .Fields
  8. شكرا لك أخ خالد ، أكيد شرحك مو لي 😃 ملخص الفكرة للمبتدئين : هو تجميع لعدة قيم حقول في متغير نصي واحد وهو هنا باسم (A) عن طريق البحث بدالة DLookup ثم نجري عملية عكسية بتفكيك قيمة المتغير النصي إلى عدة قيم وتخزينها في مصفوفة وهي هنا باسم (x) عن طريق دالة Split
  9. جميل الأخ خالد ، معلومة جديدة لي ، ولأول مرة أتعرف على هذه الطريقة في استخدام دالة DLookup ، لعلها مستجدة في الإصدارات الجديدة. ليتك استخدمت نفس أسماء الحقول لتكون المقارنة أسهل وأكثر فائدة للمبتدئين.
  10. ولاني نسيت أزيل .Fields حيث لا داعي لها هنا ، هنا أرفق لكم التعديل: Private Sub Product_NO_AfterUpdate() Dim rst As DAO.Recordset On Error Resume Next Set rst = CurrentDb.OpenRecordset("Products", dbOpenSnapshot) With rst .FindFirst "Product_NO=" & Me.Product_NO If Not .NoMatch Then Me.Product_Name = !Product_Name Me.Product_price = !Product_price Me.Product_Image.Picture = "" Me.Product_Image.Picture = CurrentProject.Path & "\Images\" & !Product_Image Else Me.Product_Name = Null Me.Product_price = Null
  11. شكرا للدكتور على المثال وزيادة في الإثراء ، هذه طريقتي في الوصول للبيانات Private Sub Product_NO_AfterUpdate() Dim rst As DAO.Recordset On Error Resume Next Set rst = CurrentDb.OpenRecordset("Products", dbOpenSnapshot) With rst .FindFirst "Product_NO=" & Me.Product_NO If Not .NoMatch Then Me.Product_Name = .Fields("Product_Name") Me.Product_price = .Fields("Product_price") Me.Product_Image.Picture = "" Me.Product_Image.Picture = CurrentProject.Path & "\Images\" & .Fields("Product_Image") Else Me.Product_Name = Nul
  12. تقبل الله منكم صالح الأعمال.
  13. الحل في الإستعلام PreviousDate.rar
  14. شكرا لكم جميعا كل ماكتبه الأستاذ محمد طاهر جميل ماعدا الإقتباس أعلاه وذلك لأن ليس كل المواضيع عبارة عن اسئلة وتحتاج إلى إجابة ، وقد اقترحنا (أنا وغيري) أن من يسأل في موضوع قديم يتم حذف سؤاله ويرشد إلى فتح موضوع جديد ويشير فيه إلى الموضوع القديم ، ويبقى الموضوع القديم مفتوحا. أعتذر ولكن ردي كان بعد استفزاز شديد وربما لو كنت أشارك أيام شبابي لكن الرد أكثر عنفا وقسوة 🙂 كأنك تتحدث بلساني ولكن عباراتك أبلغ وأوضح فشكرا لك.
  15. @sandanet خذوهم بالصوت لا يغلبوكم ، يا أخي موضوعي اقتراحا وليس أمرا ، وأنا وضعت اسم الأستاذ محمد طاهر في المشاركة الأولى رغبة مني في سماع رأيه ، فهل يمكنك التمهل حتى يتفضل بإبداء رأيه ، أتمنى أن لا تكون من المشرفين حتى لا تستخدم قمعك معي ومع غيري.
×
×
  • Create New...

Important Information