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

ابوخليل

أوفيسنا
  • Posts

    12,480
  • تاريخ الانضمام

  • Days Won

    233

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

  1. في الحدث محل المشكلة يأتي قبل السطر الملون بالأصفر تفضل المثال معدلا مطعم وجبات.rar
  2. Me.fary1.Requery Me.ty.SetFocus ' هذا السطر Me.prent2.Visible = False Me.prent.Visible = True
  3. السبب هو ان التركيز عليها وهنا لا يسمح اكسس باجراء الأمر لحظة اكتب لك سطرا يحل المشكلة
  4. يبدو انك لم لما هو مكتوب هنا : وعلى كل تفضل التعديل حيث يتم العودة للشاشة الرئيسية عند ضغط زر الطباعة مطعم وجبات.rar
  5. بالفعل يمكننا استخدام النموذج الفرعي نفسه في الحالتين : في الادخال وفي البحث ولكن هذا يحتاج الى التعامل مع الاحداث الموجودة التعديل عليها كثيرا ايضا لاحظت وجود جداول مؤقتة يتم حذفها عند كل عملية فاتورة ، وانا ارى انه يمكن الاستغناء عنها ، بحيث يتم الإلحاق مباشرة من النموذج الفرعي . لذا اخذت بأسهل طريق للتعديل وهو العمل على نموذج فرعي آخر : بالضغط على زر تعديل بعد ادخال رقم الفاتورة تظهر بيانات الفاتورة ويمكنك التعديل عليها وطباعتها ايضا . للعودة لشاشة الادخال انقر زر حفظ التعديل مطعم وجبات.rar
  6. طلبك لم أفهمه .. اشرح مطلوبك بالتفصيل
  7. اعتقد ممكن .. غدا انظر فيه _ إن شاء الله _
  8. عند الاضطرار .. الجداول المؤقتة مفيدة جدا في العمليات خاصة التي بحاجة الى زيادة في مستوى الأمان يوجد لي موضوع هنا باسم مبيعات مختصر .. استخدمت فيه الجدول المؤقت ولكن الفكرة تختلف قليلا حيث استعنت به لادخال البيانات ثم نقلها الى الجدول الرئيس
  9. حسب علمي لغات البرمجة تعرض البيانات من خلال الاستعلامات : سواء sql او غيرها الحل الآخر : هو بناء جدول مؤقت وسيط يأخذ البيانات من الجدول الرئيس عند فتح النموذج وربطه بالنموذج ويتم (حذفه أو حذف البيانات) عند اغلاق النموذج وهنا انت بحاجة الى ما يشبه كودك الموجود لحفظ التعديل
  10. السلام عليكم نفرض اننا اوجدنا طريقة بمصفوفة او دوارة لتنفيذ الفكرة فيجب ان تأخذ باعتبارك كمبرمج المساحة والوقت الذي سيستغرقه التنفيذ عند فتح النموذج فيما لو بلغت السجلات اعدادا كبيرة كعشرات او مئات الألوف ، لأن الكود سيمر عليها واحدا واحدا . في جعبتي لك اكثر من حل لتطبيق الفكرة ، وبالاصح هما حلان رئيسيان . الحل الأول : وسوف انتظر ردك قبل الانتقال للحل الآخر ، وهذا الحل هو الاسهل والأنسب طلبك هو عدم التمكن من التعديل على البيانات وحفظها الا من خلال زر الحفظ ، وهذا يتحقق اذا تم حماية النموذج من التعديل ووظيفة الزر حينها هو اتاحة التعديل ببساطة وحسب طلبك ان من يتاح له فتح النموذج سيجد زر الحفظ أمامه ويمكنه حينها التعديل والحفظ ، فلو قلت انك سوف تضع ضوابط للزر مثل كلمة مرور ونحوها فلم لا نضعها على زر تمكين التعديل ؟ اتمنى ان ما بينته اعلاه واضحا .. وبانتظار وجهة نظرك
  11. عليكم السلام اكتب طلبك هذا في موضوع جديد وستجد من يساعدك من الاخوة الاعضاء هنا وحبذا ترفق مثالا بمحاولاتك
  12. السلام عليكم اخي الكريم اعتقد رأيت لك اكثر من موضوع حول حذف وإعادة الترقيم التلقائي ومفتاح الجدول واذا لم تخني الذاكرة انني علقت على احدها . نصيحة حيث انك طالب علم وهي : ان تبدأ مما انتهى الآخرون منه . الترقيم التلقائي خاصة اذا كان مفتاح الجدول يجب عدم التعامل معه و عدم اظهاره في الواجهات حيث يمكننا وبعيدا عن مفتاح الجدول عمل ارقام تلقائية عديدة في الاستعلامات والنماذج والتقارير ايضا . ننقل ما تعلمناه : مفاتيح الجداول ملك قاعدة البيانات وهذا يعني ان اي جدول نعمله ينصح ان يشتمل على مفتاح ، و يمنع التعامل معه بالحذف او التعديل .
  13. لا املك طابعة فواتير على الجهاز حاليا ولكن اليك صورة محفوظة من خصائص الطابعة
  14. الحل في خصائص الطابعة تجد ضمن الخصائص : قطع حسب الصفحة قطع حسب المسند اختر قطع حسب المستند ايضا من خصائص الطابعة يمكنك تحديد المسافة الفارغة في اعلى واسفل الفاتورة
  15. هذا السطر يعيد تكبير اطار اكسس DoCmd.RunCommand acCmdAppMaximize انظر المثال المعدل : جعلت عداد الوقت حين فتح البرنامج عند 10 ثواني وعند تحقق التحذير وظهور الرسالة والضغط على زر ok يصبح العداد ثانية واحدة يقوم بالعد تنازليا حتى 100 ثانية ثم يغلق البرنامج وعند الضغط على زر cancel يتم غلق البرنامج مباشرة
  16. ولكن يوجد حل وهو اعادة اكسس الى وضع التكبير عند حدث الرسالة انتظرني سوف اقوم بالتعديل على المرفق
  17. السلام عليكم بالنسبة للنقر على البالون فلا اعتقد ان له ارتباط بأكسس لأنه خارج نطاقه فكما امرنا اكسس بإظهار رسالة من ويندوز فيلزم ان نأمر ويندوز بفتح نموذج من اكسس الحل من وجهة نظري انه عند غلق البالون وبدلا من غلق اكسس يتم اظهار رسالة او مربع حوار من اكسس نفسه لتخيير المستخدم بين الحفظ او الإغلاق وايضا يوجد حل اسهل : فبدلا من هذه الاكواد والكلاس والوحدات النمطية .. وبما ان هناك نموذج سيبقى مفتوحا في الخلفية طيلة مدة الجلسة وهو ما ذكرته في مثالك المرفق فأرى ان يكتفى بأكسس فقط لانجاز هذا الاجراء .
  18. غالبا الوميض يحدث اذا يوجد في الفورم حدث عند عداد الوقت الحل في مثل هذا الحال هو ايقاف هذا الحدث والبحث عن بديل
  19. انا مثلكم حاولت جاهدا ولم اصل الى نتيجة
  20. الحمد لله ان وجدت بغيتك لعلك يوما ما تحتاج لتطبيق هذه الفكرة .. سأكون رفيقا لك في محاولة الوصول اليها . بارك الله فيك اخي ،،
  21. وعليكم السلام ورحمة الله وبركاته ابو غفران انظر الفيديو ادناه حاولت جاهدا من سنين ابحث عن مثل هذا الميزان في الاسواق العالمية وباءت محاولاتي فالفشل صحيح يوجد الكثير مشابه له ولكن المواصفات تختلف خاصة مدخل الكيبل usb لاحظوا انه يوجد برنامج مصاحب يقرأ من الميزان
  22. هذا المنتدى مليء بمثل هذه المواضيع فقط ابحث https://cse.google.ae/cse?cx=partner-pub-4958585055085854:7791406915&ie=UTF-8&q=من+اكسس+الى+وورد&sa=Search
  23. اعتقد فكرة اخونا عمر هي استخراج المجاميع في جدول جديد لاظهارها في التقرير وطبعا يتم حذف بيانات الجدول بمجرد غلق النموذج ، بمعنى ان الفكرة هي اظهار البيانات لحظية مؤقتة قابلة للتغيير والتحديث بالزيادة او النقص . وهنا نستغني عن الجدول وايضا النموذج والأزرار والأكواد المصاحبة هذه الدالة المصنوعة تحقق المطلوب Public Function studentscount(ByVal i As Byte) Dim z As Integer If i = 0 Then z = DCount("[student_name]", "[student]", "[state_code]<3") ElseIf i = 1 Then z = DCount("[student_name]", "[student]", "[state_code]<3 and [school_code]=1") ElseIf i = 2 Then z = DCount("[student_name]", "[student]", "[state_code]<3 and [school_code]=2") ElseIf i = 3 Then z = DCount("[student_name]", "[student]", "[state_code]<3 and [school_code]=3") Else End If studentscount = z End Function ويتم نداءها داخل الحقل سواء في النماذج او التقارير هكذا : للمجموع الكلي = studentscount(0) الابتدائي = studentscount(1) المتوسط = studentscount(2) الثانوي = studentscount(3) وهذا المرفق : إحصاء2_2003.rar
×
×
  • اضف...

Important Information