اذهب الي المحتوي
أوفيسنا

ابوخليل

أوفيسنا
  • Posts

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

  • Days Won

    245

كل منشورات العضو ابوخليل

  1. في مثالك استخدمت كود الاستاذ يوسف تم اعادة وترتب الكود 1- اعد نسخه ولصقه مرة اخرى 2- غير ما يلزم من اسماء الحقول حسب الذي عندك
  2. المشاركة في تنفيذ فكرة لا يلزم منه كون الفكرة صالحة للتطبيق فهنا مثلا : - هل المبرمج ملزم بتسمية العناصر داخل الفورم وفق تسمية وترتيب معين ؟ وهذه اشكالية ظاهرة - وهل كل النماذج ستشتمل على هذا العدد من الازرار ؟ لنفرض الجواب=لا - ما يدري الاداة بعمل كل عنصر ووظيفته ؟ اقصد كيف يتعامل المستخدم ( المدير ) عند منح الصلاحيات هل عليه ان يجرب ثم يذهب الى النموذج الهدف ليرى النتيجة الرؤية الصحيحة عندي : ( مثلا لو تم عرض عناصر كل نموذج بوظائفها دون الالتزام بتسميات محددة لكان هذا اقرب ) ولكن كيف ؟ شيء آخر احب ان ادرجه هنا وهو الذوق العام للنماذج فأنا كمستخدم يؤلمني ويحز في نفسي ان ارى داخل النموذج عناصر باهتة ، او ان تخرج على رسالة بعدم منحي الصلاحية المفترض ان لايتواجد في النموذج اي عنصر فوق حاجة المستخدم وجهة نظر آمل الا تحد او تثنيك عن عزمك ، فالاستشارة هي مشاركة العقل وفقك الله لكل خير
  3. حول مثالك الى صيغة MDB فلعلك تجد تفاعلا من اخوانك اكثر
  4. جزيت خيرا استاذ يوسف Dim rs As Recordset Dim i As Integer Set rs = Me.Recordset With rs .MoveFirst Do Until .EOF For i = 1 To Nz((Me.txtNoOfPrint), 0) DoCmd.OpenReport "rpt1", acViewNormal, , "id= " & Me.txtId Next i .MoveNext Loop End With Set rs = Nothing
  5. شكرا جزيلا استاذنا الحبيب يوسف واعتقدت ان السائل يريد طباعة الكل فاعددت له هذا .. مع اخذ نصيحة الاستاذ يوسف بالاعتبار Dim i, z, r As Integer Dim rs As Recordset Set rs = Me.RecordsetClone rs.MoveLast r = rs.RecordCount rs.MoveFirst For z = 1 To r Do Until i = Me.code.Value i = i + 1 DoCmd.OpenReport "report", acNormal, , "[number]=" & Me!number Loop rs.MoveNext Next rs.Close Set rs = Nothing
  6. اعتقد انك بحاجة لوجود شرط لتخطي بعض السجلات وعلى العموم يمكن التنفيذ بما يشبه هذه العبارة جرب ووافنا بالنتيجة حيث لا يوجد لدي الان طابعة للتجربة
  7. شكرا لطالب العلم على المساعدة فجزاه الله خيرا اخي الكريم الاستعلامات الالحاقية تحتاج الى زيادة في ضبط الجداول لتلافي التكرار وما تم الحاقه لا يمكن التعديل عليه الا بالحذف والاعادة من جديد او التحديث وكل هذه الطرق فيها عبء كبير وعمليات انت في غنى عنها انظر الى التعديل تم صنع استعلام متجدد باستمرار والذي من خلاله يمكن بناء النماذج والتقارير عليه استعلام الحاقى.rar
  8. الاصل انها تعمل وانما السؤال دوما عن طريقة ايقافها يمكن ان الخلل عندك في الفارة او في عجلتها
  9. انظر هنا http://www.officena.net/ib/index.php?showtopic=44685#entry261065
  10. الطريقة : بعد ان تعد وتعين قاعدة البيانات على التاريخ الهجري ادوات / خيارات/ اعدادات دولية / وقم بالتأشير امام استخدام التاريخ الهجري بعد ذلك الصق هذا السطر في عنصر تحكم الحقل =format(date();"yyyy/mmmm/dd")
  11. تستطيع عمل ذلك وبكل سهولة في : دمج المراسلات في وورد ابحث في قسم الوورد وستجد طلبك بإذن الله
  12. الحمد لله وشكرا لعرض الحل ولكن السؤال يسبب الحيرة : كيف يتم تحديد حجم النموذج المنبثق مع طريقة العرض (نماذج مستمرة ) ليظهر جميع السجلات ليظهر جميع السجلات ؟ هذه جعلتني اقف عندها لان السائل ذكر التحديد لان افضل عرض لاظهار جميع السجلات هو ان يكون النموذج بعرض الشاشة قصدت بتعليقي هذا عموم الفائدة وهو ان كلمة واحدة في السؤال قد تغير فهم المتلقي
  13. انظر هذه الروابط فقد تستفيد منها http://www.officena.net/ib/index.php?showtopic=24823&page=3#entry117202 http://www.officena.net/ib/index.php?showtopic=25483#entry120730
  14. الحمدلله ................. يغلق ...........
  15. تم دمج الموضوعين اخي محمود ... الاستاذ رضوان سبق ان قدم اعتذار لحصول ظرف طارى http://www.officena.net/ib/index.php?showtopic=58516
  16. Docmd.RunSQL"strSql = "DELETE TPstoudnt.*, TPstoudnt.alsaf " & vbCrLf & _ "FROM TPstoudnt " & vbCrLf & _ "WHERE (((TPstoudnt.alsaf)=6));"" الاخطاء : "strSql = هذه جملة زائدة تستخدم في مكان آخر " آخر علامة تنصيص مزدوجة هي ايضا زائدة اذا استبعدنا الزوائد سيصبح الكود هكذا : Docmd.RunSQL "DELETE TPstoudnt.*, TPstoudnt.alsaf " & vbCrLf & _ "FROM TPstoudnt " & vbCrLf & _ "WHERE (((TPstoudnt.alsaf)=6))" ويمكن اضافة اكثر من جملة برمجية وتكون مرتبة حسب الحدث كما ذكر اخونا طالب العلم اما السطر الخاص بمنع التحذيرات فيكتفى بواحد اول الجمل مهما كان عددها ولسطر الآخر في آخرها
  17. رسالة الخطأ طبيعية لان الحقل فارغ استخدم الدالة nz لتحويل الفراغ الى صفر لتصبح الجملة هكذا Dim i As Integer i = Len(Nz([Kwmy], 0)) If i < 14 Then
  18. جزاك الله خيرا حاول ان تخرج بالنتيجة نفسها مع استبعاد الاستعلام والحقل المخفي استخدم متغير مثلا : Dim i As Integer i = Len([Kwmy]) If i < 14 Then
  19. الموضوع هو تحقيقا لطلب احد اخواننا االكرام وفيه يمكن تحديد الازار داخل نظام المستخدمين في المثال المستخدم محمد معرف =1 والسري=1 مسموح له جميع الازرار ما عدا زر الصلاحية والمستخدم ابوخليل معرف=2 والسري=2 مسموح له الصلاحية فقط آمل ان تجدوا الفائدة صلاحية الازرار.rar
  20. لم افهم ؟ كيف اعدل ؟ لكن لا يمكن استرجاع المحذوف ولاضافة حقل ترقيم تلقائي للجدول : بالنقر على الزر الايمن يمكنك فتح الجدول على التصميم ثم تدرج حقل وتكتب اسمه مثلا id وتختار نوعه ترقيم تلقائي ومن خصائصه في الاسفل اجعل القيمة : مفهرس = نعم بدون تكرار
  21. افتح على خصائص النموذج / لسان التبويب تنسيق اجعل القيمة : اشرطة التمرير = لاهذا ولا ذاك
  22. لا اعلم ما لغة البرنامج المربوط مع قاعدة البيانات وتذكر انه تم ادخال اكثر من الف قيد قاعد البيانات سليمة واظن ان البيانات تم حذفها ؟ ملاحظة : لايوجد حقل ترقيم تلقائي ضمن الجداول وهو مهم وفائدته انه يمكن معرفة عدد ومكان السجل المحذوف هذا على حد علمي ، والله اعلم
  23. ارفق الملف هنا للتشخيص
×
×
  • اضف...

Important Information