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

عبد الفتاح كيرة

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    3,015

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

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

  • Days Won

    4

 نوع المحتوي 

كل منشورات العضو عبد الفتاح كيرة

  1. عبد الفتاح كيرة
    جيد لكن كلا الكودين فيه اضطراب فى العمل جربت الحذف ثم - بدون انتقال للسجل التالى (البقاء فى المكان) أضغط زر الأمر لإضافة سجل يختار رقم سجل موجود أصلا لعله يحتاج إلى ضبط
  2. عبد الفتاح كيرة
    ما هذا أترككم ساعات فأعود لأجد كل هذه المناقشات وفقك الله أستاذ رمهان لم أجرب شيئا من هذا أبدا لك مطلق الحرية فى التعديل و التضبيط و نحن نستفيد منك و نحصل على الملف النهائى شكرا لكم
  3. عبد الفتاح كيرة
    وفقكم الله
  4. عبد الفتاح كيرة
    السلام عليكم أصل هذا الموضوع هنا أحببت أن أفرد الرد فى موضوع مستقل لنستفيد جميعا إن شاء الله و هو يختص بكيفية المحافظة على الترتيب داخل جدول حسب حقل المعرف فى حال حذف أحد السجلات و هذا هو الكود المستخدم Option Compare Database Private Sub Form_Current() If Me.NewRecord Then Dim MySQL As String, MyDB As DAO.Database, rst1 As DAO.Recordset Dim rst2 As DAO.Recordset MySQL = "Select [DashNum] From tblTest Order By DashNum;" Set MyDB = CurrentDb() Set rst1 = MyDB.OpenRecordset(MySQL, dbOpenSnapshot) Set rst2 = rst1.Clone rst1.MoveFirst: rst2.Move 1 'move to the 2nd Record in rst2 Do While Not rst2.EOF 'If the difference between 2 consecutive Dash Numbers is not 1, since 'they are ordered, this would indicate a gap in sequence If rst2![dashnum] <> rst1![dashnum] + 1 Then Me.dashnum = rst1![dashnum] + 1 rst2.Close rst1.Close Set rst2 = Nothing Set rst1 = Nothing Exit Sub End If rst1.MoveNext rst2.MoveNext Loop rst2.Close rst1.Close Set rst2 = Nothing Set rst1 = Nothing End If End Sub المحافظة على الترتيب.rar
  5. عبد الفتاح كيرة
    أهلا بك أخى مع أن طلبك ينبغى أن يكون فى موضوع منفصل عما نحن فيه طلبك الأول المحافظة على الترتيب داخل جدول تفضل المرفق افتح نموذج 1 مرر للسجل الثانى أو الثالث اضغط زر حذف نموذج ووافق على الحذف اضغط زر إضافة نموذج لاحظ النتيجة المحافظة على الترتيب.rar وفقك الله وهذا هو الكود المستخدم يوضع فى حدث " فى الحالى" للنموذج Option Compare Database Private Sub Form_Current() If Me.NewRecord Then Dim MySQL As String, MyDB As DAO.Database, rst1 As DAO.Recordset Dim rst2 As DAO.Recordset MySQL = "Select [DashNum] From tblTest Order By DashNum;" Set MyDB = CurrentDb() Set rst1 = MyDB.OpenRecordset(MySQL, dbOpenSnapshot) Set rst2 = rst1.Clone rst1.MoveFirst: rst2.Move 1 'move to the 2nd Record in rst2 Do While Not rst2.EOF 'If the difference between 2 consecutive Dash Numbers is not 1, since 'they are ordered, this would indicate a gap in sequence If rst2![dashnum] <> rst1![dashnum] + 1 Then Me.dashnum = rst1![dashnum] + 1 rst2.Close rst1.Close Set rst2 = Nothing Set rst1 = Nothing Exit Sub End If rst1.MoveNext rst2.MoveNext Loop rst2.Close rst1.Close Set rst2 = Nothing Set rst1 = Nothing End If End Sub
  6. عبد الفتاح كيرة
    تمام
  7. عبد الفتاح كيرة
    وفقهم الله نحسبهم على خير
  8. عبد الفتاح كيرة
    بارك الله فيكم أخ شيفان
  9. عبد الفتاح كيرة
    أخى الملف بتنسيق 2010 أو أعلى نرجو رفع نسخة بتنسيق 2007 أو 2003
  10. عبد الفتاح كيرة
    نرجو مساعدة الأخ فيما يطلب
  11. عبد الفتاح كيرة
    و مصداقا لكلامك و رأيك فأنا أهدى نفسى و أهديك و أهدى الإخوة جميعا هذا الملف الرائع الذى هو ثمرة توفيق الله ثم خبراتكم جلب معايير الاستعلام من جدول بشرطين - ربما نزيد- مع فتح تقرير مبنى على الاستعلام فى كل مرة حسب الاختيار من مربع سرد كما طبقنا على معيار نصى و رقمى - الخطوة القادمة فى التطوير ربط الكود بقيمة الكمبوبوكس حسب أعمدته بديلا عن dlookup وفقكم الله - الملف بصيغة 2003 و 2007 و لا أنسى أن أشكر الأخ @ابا جودى أبا جودى مفتتح هذه القضية جزاه الله خيرا جزاك الله خيرا myfile.rar أستاذ @رمهان
  12. عبد الفتاح كيرة
    إذن نكتفي بهذا الإنجاز وهو فى حد ذاته كبير إما نجلب المعيار بدون اسم الحقل أو نجلب الجميع باستخدام الكود أيهما ترشح؟
  13. عبد الفتاح كيرة
    هذه هى الجملة الصحيحة لاستخدام الشرط تحت الحقل مباشرة وفيها يذكر اسم الحقل مباشرة SELECT t1.exmid, t1.exmtotal FROM t1 WHERE ((Eval([exmtotal] & DLookUp("[my_parameter]","tbl_parameters","[select_Parameter] =true"))=True));
  14. عبد الفتاح كيرة
    عموما أنا وصلت لنتيجة ممتازة للآن شكرا لك و وفقك الله
  15. عبد الفتاح كيرة
    ممتاز جدا كونها تعمل فى الكود معناه أننا على الطريق الصحيح لكن ما السر وراء عدم عمل الجملة مع الاستعلام جزاك الله خيرا أخ رمهات ووفقك للمزيد أعتقد أن هذا الموضوع لا شبيه له بالمنتدى
  16. عبد الفتاح كيرة
    تفضل الاستعلام qq1 kemas.rar و هذا المطبق به المعيار تحت اسم الحقل مباشرة بدون حقل إضافى kemas1.rar
  17. عبد الفتاح كيرة
    عند محاولة التعويض عن اسم الحقل ينتج خطأ Eval(DLookUp("[fieldn]";"tbl_parameters";"[select_Parameter] =true") & DLookUp("[my_parameter]";"tbl_parameters";"[select_Parameter] =true"))
  18. عبد الفتاح كيرة
    و هذا يعمل مباشرة تحت حقل الجمع بدون حاجة لحقل إضافى Eval([exmtotal] & DLookUp("[my_parameter]";"tbl_parameters";"[select_Parameter] =true"))=صواب ممتاز جدا هذه النتيجة
  19. عبد الفتاح كيرة
    الحمد لله مليون إعجاب أستاذ رمهان نجاح مبهر بل أيضا جعلت نص المعيار كاملا فى الجدول فصار أكبر من 200 أنت أنشأت حقلا يقيم ما إذا كانت القيمة أكبر من 200 هذا الحقل يعطى صواب و خطأ و جعلت المعيار له صواب ===== بينما أنا كنت أركز طريقة الحل على وضع المعيار فى الحقل [exmtotal] و مرة أخرى تقدم لنا Eval خدمة عظيمة وفقكم الله الآن نستطيع وضع معاييرنا كلها فى جدول و الإشارة إليها
  20. عبد الفتاح كيرة
    الآن استطعنا تخزين نص المعيار فى جدول جزاك الله خيرا لكن المطلوب هو استخدام الحقل الذى به المعيار فى الجدول فى تصفية بيانات فى استعلامات أخرى مثلا فى هذا الاستعلام فى المرفق أردت تصفية البيانات فى حقل الجمع لتكون أكبر من 200 فكيف يمكن استخدام المعيار فى الجدول ليتم الحساب؟ كما بالصورة حاولت استخدام dlookup لجلب نص المعيار لكن يعطينى رسالة خطأ نوع البيانات غير متطابق وشكرا لمساعدتك المرفق بصيغة 2003 و 2007 لمن يريد المساعدة مرفق.rar
  21. عبد الفتاح كيرة
    ماشى الحال يصير خير إن شاء الله
  22. عبد الفتاح كيرة
    شكرا جزيلا لك سأطلع عليه إن شاء الله عندما أفتح الكمبيوتر
  23. عبد الفتاح كيرة
    ياريت يا أبا جودى ينفع ياللا همتك معانا بمثال
  24. عبد الفتاح كيرة
    السلام عليكم موضوع بحثت عنه قديما و لم أتوصل لإجابة شافية - هذا إذا افترضنا أنه ممكن- معيار الاستعلام هل يمكن تخزينه فى جدول و نستدعيه بدالة dlookup لا أقصد قيمة المعيار بل أقصد صيغة المعيار مثلا: لو كان المعيار : >7 أو يشتمل على محددات مثل > < or and <> هل يمكن تخزين صيغة المعيار كاملة فى حقل بجدول و استدعاؤها بدالة البحث أو حتى تخزينها فى مربع تحرير و سرد أفيدونا فى هذا الموضوع أفادكم الله
  25. عبد الفتاح كيرة
    أشكرا أخى @أبو عبدالله الحلوانى بارك الله فيك
×
×
  • اضف...

Important Information

  I accept