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

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

الخبراء
  • Content count

    2,627
  • تاريخ الانضمام

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

  • Days Won

    3

عبد الفتاح كيرة last won the day on March 25

عبد الفتاح كيرة had the most liked content!

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

248 Excellent

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

  • الرتبه
    طالب الأكسيس
  • تاريخ الميلاد 01 نوف, 1963

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    teacher
  • Location
    مصر
  • Interests
    excel - Access

Contact Methods

  • MSN
    ahmadkera@hotmail.com
  • Website URL
    http://noormobeen.blogspot.com/
  • ICQ
    0
  • Yahoo
    abokera@yahoo.com
  • Skype
    abdelfattahkeera

اخر الزوار

2,519 زياره للملف الشخصي
  1. ما هذا أترككم ساعات فأعود لأجد كل هذه المناقشات وفقك الله أستاذ رمهان لم أجرب شيئا من هذا أبدا لك مطلق الحرية فى التعديل و التضبيط و نحن نستفيد منك و نحصل على الملف النهائى شكرا لكم
  2. وفقكم الله
  3. السلام عليكم أصل هذا الموضوع هنا أحببت أن أفرد الرد فى موضوع مستقل لنستفيد جميعا إن شاء الله و هو يختص بكيفية المحافظة على الترتيب داخل جدول حسب حقل المعرف فى حال حذف أحد السجلات و هذا هو الكود المستخدم 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
  4. أهلا بك أخى مع أن طلبك ينبغى أن يكون فى موضوع منفصل عما نحن فيه طلبك الأول المحافظة على الترتيب داخل جدول تفضل المرفق افتح نموذج 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
  5. فعلا كود دقيق لأنه محاكاة لعملية الحساب اليدوي جزى الله خيرا من كتبها أقوم باستخدامها فى برامج لحساب سن الطلاب و موجودة فى برنامج كنترول الشهادة الإعدادية
  6. بارك الله فيكم أخ شيفان
  7. أخى الملف بتنسيق 2010 أو أعلى نرجو رفع نسخة بتنسيق 2007 أو 2003
  8. نرجو مساعدة الأخ فيما يطلب
  9. و مصداقا لكلامك و رأيك فأنا أهدى نفسى و أهديك و أهدى الإخوة جميعا هذا الملف الرائع الذى هو ثمرة توفيق الله ثم خبراتكم جلب معايير الاستعلام من جدول بشرطين - ربما نزيد- مع فتح تقرير مبنى على الاستعلام فى كل مرة حسب الاختيار من مربع سرد كما طبقنا على معيار نصى و رقمى - الخطوة القادمة فى التطوير ربط الكود بقيمة الكمبوبوكس حسب أعمدته بديلا عن dlookup وفقكم الله - الملف بصيغة 2003 و 2007 و لا أنسى أن أشكر الأخ @ابا جودى أبا جودى مفتتح هذه القضية جزاه الله خيرا جزاك الله خيرا myfile.rar أستاذ @رمهان
  10. إذن نكتفي بهذا الإنجاز وهو فى حد ذاته كبير إما نجلب المعيار بدون اسم الحقل أو نجلب الجميع باستخدام الكود أيهما ترشح؟
  11. هذه هى الجملة الصحيحة لاستخدام الشرط تحت الحقل مباشرة وفيها يذكر اسم الحقل مباشرة SELECT t1.exmid, t1.exmtotal FROM t1 WHERE ((Eval([exmtotal] & DLookUp("[my_parameter]","tbl_parameters","[select_Parameter] =true"))=True));
  12. عموما أنا وصلت لنتيجة ممتازة للآن شكرا لك و وفقك الله
  13. ممتاز جدا كونها تعمل فى الكود معناه أننا على الطريق الصحيح لكن ما السر وراء عدم عمل الجملة مع الاستعلام جزاك الله خيرا أخ رمهات ووفقك للمزيد أعتقد أن هذا الموضوع لا شبيه له بالمنتدى
  14. تفضل الاستعلام qq1 kemas.rar و هذا المطبق به المعيار تحت اسم الحقل مباشرة بدون حقل إضافى kemas1.rar