شايب
03 عضو مميز-
Posts
304 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
2
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو شايب
-
دالة DLookup لابد للحصول على نتيجة صحيحة ان نستخدم معها معيار فريد وبالتالي عند استخدام between فسوف تعود الدالة باول سجل مطابق فقط لذا فمن الافضل التفكير باستخدام معيار اخر اما اذا كنت مصمم على هذا الاستخدام الغير صحيح DLookup("[pcode]", "lab_all", "[pcode]between 2 and 6 ") اخونا الشايب
-
هل بالامكان تكوين Navigation خاص في نموذج الاكسس ؟؟
شايب replied to gavan's topic in قسم الأكسيس Access
جرب Database1121.accdb -
جرب مع عدم الاقتناع باستخدام حقول مربعات التحرير والسرد في الجداول Estimation.accdb
-
جرب فكرة من افكار طبعا يمكن جعل الرمز الاضافي يستخلص من حدث عند عدم الوجود في القائمة بدون الحاجة لكتابته في نموذج التعديل ولكن مالي مزاج حاليا basep(4).accdb
-
تعدد الشروط يسبب ربكه للكثير عند كتابة المعايير لذا يمكن جمع اكثر من معيار واكثر من حقل وبالتالي نكتفي باستخدام المعيار النصي حتى لو كان احد الحقلين رقمي والاخر نصي
-
التصفية هي وضع معيار معين لاظهار السجلات التي ترغب في اظهارها وليست لاخفاء البيانات اما عند رعبتك في جعل النموذج فارغ من البيانات فيمكن استخدام الخاصية DataEntry ولها قيمتان نعم يكون النموذج لادخال بيانات فقط وعند تحديدها الى لا فسيتم عرض البيانات و لاستخدام الخاصية مع النموذج الفرعي في زر امر او اي حدث مناسب لك ضع الامر التالي Me.test.Form.DataEntry = True test هو اسم النموذج الفرعي ولعكس العملية Me.test.Form.DataEntry =False الشايب
-
اصبت في الاولى ولم تصب في الثانية اخونا الشايب هاوي ولا يضع نفسة في مصاف الاساتذة رحم الله امرئ عرف قدر نفسه
-
لا لا اكمل باقي الرد الفكرة انه يمكن تنفيذ عدة امور واختصار بعض الاجراءات مثلا بدلا من الحقل المحسوب نستفيد من حدث بعد التحديث لتنفيذ عدة عمليات الحصول على ترقيم بالكود غير قابل للتكرار الحصول رمز الكتاب بنفس الطريقة بدون الحاجة الى حقل محسوب في الجدول امكانية تعديل رمز الكتاب وفقا لطلبك مع ذلك ننتظر رأي الاساتذة ربما لديهم افكار افضل فإنْ يكُ صدرُ هذا اليوم ولّى .. فإنّ غدًا لناظِرِه قريبُ
-
بالتوفيق ان شاء الله الشكر لله سبحانه
-
مصدر سجلات النموذج كتاب هو جدول كتاب وهذا ما يقوم به الكود وهو يقوم بتغير اي رمز من ت الى ت-خ اما اذا ترغب عن طريق استعلام تحديث فالاخ محمد البرناوي اشار الى الطريقة ولكن لابد من الانتباه لنقطة مهمة رمز الكتاب مصدره حقل محسوب ياخذ قيمته من خلال حقل الرمز وحقل الرقم [الرمز] & "" & [الرقم وهذ النوع من الحقول لايتم التعديل عليه وانما يتم التعديل على مصدره وهذا ماعملته في الكود اعلاه وللتوضيح اكثر لنتمكن من تعديل الحقل رمز الكتاب لابد من تعديل مصدره لكونه حقل محسوب وهو متوافق مع ما اشار اليه الاستاذ محمد في الصورة المرفقة سواء كان التعديل بالكود او بالاستعلام هل توجد طريقة لتنفيذ التعديل فقط على رمز الكتاب وبقاء حقل الرمز بدون تغيير نعم ممكن بعد تعديل نوع الحقل من محسوب الى نص ونجعل قيمة الحقل في حدث بعد التحديث لحقل رقم الكتاب الشايب
-
عمل جميل ورائع ويسهل العمل ولكن من وجهة نظر الاخ شايب ان الافضل لمن يرغب تعلم البرمجة تعلم كنابة الشروط لدوال تجميع المجال وغيرها من معايير وخصوصا ان المعايير ليس معقدة وتحتاج فقط الى معرفة انواع الحقول وكيفية استخدام علامات التنصيص وفقا لنوع الحقل ووجهة نظري ليست للتقليل من عمل الاستاذ بل هو عمل ابداعي ومجهود جبار يدل على تمكن وعقلية مبدعة تفكر خارج الصندوق قبل فتره قصيرة احد المحاسبين استخدم الالة الحاسبة مرتين لعملية بسيطة يستطيع طالب في الصف السادس حسابها ذهنيا ! الشايب
- 14 replies
-
- 1
-
- الكاتب الذكي
- دوال المجال
-
(و3 أكثر)
موسوم بكلمه :
-
مشاركة مع الاستاذ خليفة فكرة من ضمن افكار وبدون الحاجة الى تقريرين الملف مرفق اخونا شايب gestion(1).accdb
-
مشلركة مع الاساتذة يمكن كما اشار الاساتذة باستعلام تحديث ويمكن بكود يتعامل مع مصدر السجلات Dim rs As DAO.Recordset Dim a As Integer Set rs = CurrentDb.OpenRecordset("كتاب") For a = 0 To rs.RecordCount - 1 rs.Edit If rs!الرمز = "ت" Then rs!الرمز = rs!الرمز & " - خ " End If rs.Update rs.MoveNext Next a rs.Close Set rs = Nothing Me.Refresh الملف مرفق اخونا الشايب basep.accdb
-
الفضل لله وحده اخي مع تمنياتي لك بالتوفيق الشايب
-
البحث في اكثر من حقل دون استخدام الاستعلامات
شايب replied to مالك درويش ابو تيمور's topic in قسم الأكسيس Access
تواضع من معلم واستاذ قدير بل انتم الاساتذة ونحن نتعلم منكم بالتوفيق استاذ مالك 😃 -
البحث في اكثر من حقل دون استخدام الاستعلامات
شايب replied to مالك درويش ابو تيمور's topic in قسم الأكسيس Access
عمل جميل من الاساتذة ولكن لا اعلم لماذا صاحب المثال استخدم قائمة القيم مصدرا للقائمة بينما قيمة هذه الحقول مدرجة في الجدول لو اسند هذه القوائم للجدول لكان بالامكان الربط بين هذه القوائم لعمل فلترة لها بحيث عند اختيار رقم1 تظهر الاسماء المرتبطة في قائمة الاسماء برقم واحد وكذلك الامر للقائمة الثالث اذا تم اختيار الاول تظهر القائمة الثالثة الاسماء المرتبطة به فقط وهنا لا اتحدث عن الفلترة النهائية التي عملها الاساتذة وانما خطوة قبل ذلك وهي فلترة القوائم وجعلها مرتبطة ببعضها وامر اخر استخدام الجدول مصدر للقائمة يعني عن اضافتها يدويا عند اضافة سجلات جديدة اخونا الشايب -
مساعدة في الإكمال التلقائي للبيانات في مربع النص
شايب replied to عبدالقدوس48's topic in قسم الأكسيس Access
ماتبحث عنه هو ما اشار الية الاستاذ خليفة هناك فرق بين الحقل النصي والكمبو بوكس والفيديو الذي اشرتم له يستخدم كمبوبوكس ويوجد بالموقع العديد من الامثلة لذلك مع كل ذلك هل يمكن عملها باستخدم مربع نص الاجابة نعم هذا الرد للتوضيح فقط لعدم الاقتناع بالفكرة مع انها تؤدي المطلوب الشايب -
مشاركة مع الاساتذه الكرام الاخ شايب يعتقد ان فكرة نموذج بحث التي اشار اليها الاساتذة فكرة معقولة ولكن يمكن التوصل للمطلوب بدون الحاجة الى ذلك حيث ان اخفاء او اظهار تبويب استبدال في نافذة البحث مرتبط بحالة التعديل للنموذج نعم او لا وبالتالي يمكن اضافة السطر Me.AllowEdits = False قبل الكود الذي تستخدمه ولكن لابد ان تعيد تغيير الخاصة الى نعم بعد تنفيذ البحث او في اي حدث اخر لتتمكن من تعديل البيانات في النموذج اخونا الشايب
-
إظهار الاختيارات المحددة من مربع قائمة في مربع نص
شايب replied to moho58's topic in قسم الأكسيس Access
امين لنا ولكم ولكل من مر من هنا ولا ننسى الاستاذ @Foksh راعي الاولة اخونا العزيز شايب 🌹 -
إظهار الاختيارات المحددة من مربع قائمة في مربع نص
شايب replied to moho58's topic in قسم الأكسيس Access
الشكر لله استاذنا ايضا ممكن نستخدم الامر التالي للوصول للنتيجة Dim x As String Dim i As Integer For i = 0 To lst_XX.ListCount - 1 If lst_XX.Selected(i) = True Then x = x & " - " & lst_XX.Column(0, i) End If Next i x = Mid(x, 4) DoCmd.OpenReport "rap_1", acViewPreview, , , , x الشايب -
إظهار الاختيارات المحددة من مربع قائمة في مربع نص
شايب replied to moho58's topic in قسم الأكسيس Access
تعديل بسيط على السطر الاخير بتحميل قيمة ماتم اختيار في امر فتح التقرير Dim selectedItems As String Dim x As String For Each selectedItem In Me.lst_XX.ItemsSelected selectedItems = selectedItems & " - " & Me.lst_XX.Column(0, selectedItem) Next selectedItem x = Mid(selectedItems, 4) DoCmd.OpenReport "rap_1", acViewPreview, , , , x الملف مرفق الشايب base_1.accdb -
ممكن ايضا الوصول للنتيجة باستخدام دالة العد Dim x As Byte x = DCount("*", "[Valueco]", "[txtdatay]='" & Me.name2 & "'") If x = 0 Then MsgBox "أدخل الإسم الصحيح" End If الشايب
-
إختيار واحد أو اختيار متعدد من مربع قائمة لعرض تقرير
شايب replied to moho58's topic in قسم الأكسيس Access
تفضل يا ابا البشر وانا كان فيها لزوم مالا يلزم حيث يمكن ان نصل للنتيجة بدون جداول مؤقتة واستعلام الحاق واستعلام تحديد وايضا بدون الحاجة الى انشاء استعلام بالكود كما في الطريقة على كل حال مرفق الملف حسب الطريقة الثانية وسوف اشير الى الطريقة الثالثة في رد اخر مع التأكيد ان اخونا شايب مجرد هاوي ويترك التجويد للاساتذة basey(٢)(1).accdb -
إختيار واحد أو اختيار متعدد من مربع قائمة لعرض تقرير
شايب replied to moho58's topic in قسم الأكسيس Access
الطريقة الثانية وهي لا تحتاج الى جدول مؤقت ولا استعلام الحاق فقط امر انشاء استعلام برمجيا بالكود والطريقة تعمل بشكل صحيح جزاك الله وامين لنا ولكم اتفق معكم استاذنا اخونا الشايب