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

ابوخليل

أوفيسنا
  • Posts

    11,720
  • تاريخ الانضمام

  • Days Won

    197

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

  1. تم فصل الموضوع تفضل هذا لتحديد عدد مرات الطباعة ، حيث سيتم طباعة 5 نسخ يمكنك استبدال الرقم 5 بحقل في النموذج Dim i As Integer Do Until i = 5 i = i + 1 DoCmd.OpenReport "rep1", acViewNormal Loop
  2. اخي حسين .. هذه الطابعة لم اعمل عليها من قبل ولكن للفائدة كما ذكرت لك الطابعات بشكل عام تتعامل مع الصفحات فمثلا طابعة البطاقات ( card ) تعتبر البطاقة 8سم في 5سم صفحة كاملة وقس على هذا ,, وهذا كود لطباعة عدد محدد من الصفحات DoCmd.OpenReport "MyReport", acViewPreview DoCmd.PrintOut acPages, 1, 3 الرقم 1 بداية الصفحات و 3 نهايتها ويمكن ان تستبدل الارقام بحقول في النموذج
  3. تم التعديل اما بالنسبة لحقل المجموع + مشاركة سابقة لك تطلب تغيير العدد فقط عند التكرار فالجواب هو ان حقل العدد والمجموع زائدين في شاشة المستخدم ونحتاجهما في فاتورة الزبون فقط (التقرير) او في التقارير الخاصة بالادارة فطبيعي ان يظهر في شاشة المستخدم اربعة سجلات لطلب 4 شاي بسعر 1 ريال لكل طلب ولكنها في فاتورة الزبون ستظهر بسطر واحد 4 شاي بـ 4 ريالات Microsoft2.rar
  4. التحديد يكون لصفحة واحدة وهذا يمكنك من خلال مربع حوار الطابعة والملصقات يختلف عددها في الصفحة الواحدة حسب الرغبة ( حسب المقاسات ) فورقة A4 يمكن ان تحتوي مابين 4 الى 65 ملصق
  5. قيد النظر .. بالنسبة للمشكلة الاولى جرب : اجعل مصدر الفاتورة استعلام معياره رقم الفاتورة
  6. تفضل هذه الروابط تتحدث عن ذلك http://www.officena.net/ib/index.php?showtopic=33549#entry174361 http://www.officena.net/ib/index.php?showtopic=54863#entry346668 ملحوظة : وندوز7 و 8 تحتوي على خطوط الباركود فليس هناك حاجة لجلب خطوط خارجية الى وندوز
  7. طبعا بالنماذج وانما الاستعلامات تصنع حسب حاجة النماذج او التقارير ملحوظة : استخدم استعلاما بديلا لجدول الاسماء كمصدر لبيانات المشروع ، والفائدة ظاهرة حيث سيحتوي الاستعلام على بيانات غير موجودة في الجدول كسنة الميلاد والمحافظة والاسم اللكامل وغير ذلك من الخصائص مثل امكانية الحجب عن الظهور وغيرها كثير
  8. ابحث عن تشفير الجداول داخل قواعد البيانات والافضل هو تكبير قاعدة البيانات بتحويلها الى mysql
  9. لا يهم المهم التسمية بحروف تدل على المسمى انظر المثال المرفق وتصفح الجداول ودقق بنوع البيانات داخل جدول الاسماء احرص ان يكون نوع البيانات المدخلة ارقما ما استطعت في المثال المرفق قمت بربط العلاقات للتوضيح فقط والاولى حذفها وهو ما افعله في اعمالي والسبب ان البيانات التي سيتم ادخالها لاحقا سيكون من خلال مربعات التحرير ومربعات التحرير هي علاقة بحد ذاتها ، لانها محكومة saeyd9.rar
  10. الملاحظات : 1- دوما ارفق مثالك حسب الحاجة فقط اي الجزء المطلوب التعديل عليه فمن غير المستحسن وجود كائنات زائدة هذه الطريقة تساعدك في انشاء مكتبة خاصة بك تشتمل على امثلة صغيرة لمواضيع معينة 2- احرص على تسميات جميع الكائنات من جداول ونماذج وحقول داخلها بحروف اجنبية حتى يسهل عليك تعلم الكود البرمجي وكتابته ويمكنك اظهار اللغة العربية في التسميات التوضيحية (واعلم اني من الغلاة في توظيف اللغة العربية من غيرها ) ولكننا هنا نقرب المعلومة الى المتعلم 3- لاتترك مسافات فارغة بين الكلمات عند تسمية كائن او عنصر ما وانما استعض عن ذلك بفاصلة تحت السطر او ميز بين الكلمات بأن تكتب الحرف الاول من كل كلمة بخط كبير 4- اهتم بحجم الحقل بما يتناسب وحجم البيانات المدخلة فمن غير المناسب ان نجعل حجم حقل الاسم الاول = 255 حرف .. وهكذا 5- لا تبدأ عملك جملة واحدة وتقفز الى درجات اعلى وانت لم تستكمل الاساسات 6- ابدأ عملك بصنع جدول جدول حتى تتيقن انك استوفيت كل شيء عن الجداول انشاء الجداول بطريقة صحيحة هو الاساس الاهم في اي مشروع saeyd8-2003.rar
  11. الاكسس لا علاقة له في ذلك فالاصدار الاحدث يفتح الاصدار الاقدم ولكن العكس لا قبل يومين نصبت برنامج معمول على 2003 نصبته على جهاز يعمل على وندوز8 64 بت والاوفيس 2015 ولم اواجه مشكلة تذكر الا في مكتبة النت XMLHTTP حيث يوجد لها بديل XMLHTTP60 فاستبدلتها ومشي الحال
  12. هي ليست عمود بل حقل وتوزيع الاسم على حقول متعددة افضل بلا شك ومن فوائده ايضا تقليل نسبة الاخطاء اما الجمع واظهاره في التقارير فهو كما ذكرت سابقا يسير نجمع الحقول كما في الجمع العادي ونستخدم العلامة & بالضبط كما نستخدم +
  13. فيما اذكر الاستاذ محمد صالح له مشاركة في قسم الاكسس تعالج هذه الاشكالية
  14. طبعا ذكرت لك ما يمر بي غالبا والعلاج المتبع وبالنسبة للرسالة فلم ارها و لم تظهر لي من قبل اعانك الله اخي الحبيب
  15. عبدالله ، وعبدالرحمن ............ لا بأس بأن لا نترك بينها فراغا ولكن كيف بــ صلاحالدين ... ونحوه افضل طريقة عند عمل المشاريع هو كتابة الاسم الرباعي مجزأً في حقول عدة وحينئذ نحن بغنى عن اكواد او معادلات اضافية حيث ان تجميع الاسماء كما تعلمون يسير
  16. الرسالة تتحدث عن وجود هذا الحدث في كائن اكتفكس كنترول في احد النماذج والتقارير ولان مشروعك على صيغة MDE فلن تتمكن من الوصول الى سبب المشكلة احسن طريقة للعثور على سبب المشكلة وهو الذي اتبعه دائما : هو انني افتح المشروع الاصل MDB من الفلاشة داخل الجهاز الذي حدثت به المشكلة
  17. مطلوبك واضح والحل هو ما ذكرته لك لعلي اجد متسعا من الوقت وسأعمل لك مثالا يساعدك على فهم ما ذكرت لك
  18. السلام عليكم حلوة جدا تصاميم الواجهات وهذا يدل على صاحبها وذوقه الرفيع واضح ان مطلوبك يتركز حول الترقيم التلقائي المنوع اولا انظر الى هذا الموضوع فهو يتحدث عن هذا الشأن http://www.officena.net/ib/index.php?showtopic=49961#entry305187 ثانيا : وركز معي ؛ عند ربط جدولين رئيسي وفرعي بعلاقة متكاملة ثم انشاء نموذج رئيسي واخر فرعي فاننا حين نختار الرقم المعرف صاحب العلاقة (رقم المجموعة ) في النموذج الرئيسي فانه سينتقل الرقم آليا الى النموذج الفرعي ( رقم المجموعة ) وبكذا تكون قطعت نصف الطريق حينها يمكنك عمل ترقيم تلقائي آخر داخل الفرعي يبدأ من الواحد لتطبيق ما ذكرته اعلاه يمكنك ارفاق مثال بجدولين ونموذجين فقط فقط واجعله على الامتداد mdb
  19. كما هو ظاهر يوضع في حدث عند تحميل النموذج ( نموذج بداية التشغيل )
  20. وجدت في مكتبتي هذا المثال لابن مسقط وهو يعالج هذه الجزئية إيقاف بالمدة.rar
  21. Private Sub Form_Load() Dim xdate As Date Dim Ndate As String Dim mssg As String xdate = #12/23/2014# If xdate <= Date Then MsgBox "انتهت الفترة التجريبية فضلا اتصل على 123456789" Quit Else Ndate = CStr(xdate - Date) mssg = "المدة المتبقية" & " " & Ndate & " " & "يوم" MsgBox mssg DoCmd.Close End If End Sub
  22. السلام عليكم حاول استيراد كائنات القاعدة هذه في قاعدة جديدة
  23. السلام عليكم اخونا عبدالفتاح اسأل الله الكريم لك العفو والمعافاة اخونا ابو آلاء مطلوبك مقدور عليه ولكني لم اتمكن من رؤية الامثلة بسبب استخدامي لاكسس 2003 المطلوب منك ارفاق جدول ببعض المحافظات واكوادها ايضا جدولا آخر بكم اسم كذا مع ارقامهم القومية اجعل المرفق على الامتداد mdb
  24. dim i as integer i=dlookup("raseed","jadwal") if text1>i then msgbox"الرصيد & i & اقل من المطلوب " Undo exit sub end if text1 هو حقل الطلب raseed هو حقل الرصيد jadwal هو الجدول المشتمل على حقل الرصيد اجعل الكود اعلاه في حدث بعد التحديث لحقل الطلب
×
×
  • اضف...

Important Information