ابوخليل

اخي الكريم في المرات القادمة احرص على اختيار عنوان مناسب يصف الموضوع تم تعديل العنوان اما بالنسبة لمطلوبك فاكتب الكود هكذا : DoCmd.RunCommand acCmdRefresh كما انه يكفي لتحديث النموذج ان تكتب : DoCmd.Refresh أو هكذا : me.Refresh

ليس هناك لازم فيمكن اخراج ما ترغب بطرق مختلفة انظر المرفق ومصدر بيانات النموذج saeyd-12.rar

السبب هو انك جعلت مصدر بيانات النموذج من اكثر من جدول واستعلام لذا لا يمكنك التعديل

تم فصل الموضوع تفضل هذا لتحديد عدد مرات الطباعة ، حيث سيتم طباعة 5 نسخ يمكنك استبدال الرقم 5 بحقل في النموذج Dim i As Integer Do Until i = 5 i = i + 1 DoCmd.OpenReport "rep1", acViewNormal Loop

اخي حسين .. هذه الطابعة لم اعمل عليها من قبل ولكن للفائدة كما ذكرت لك الطابعات بشكل عام تتعامل مع الصفحات فمثلا طابعة البطاقات ( card ) تعتبر البطاقة 8سم في 5سم صفحة كاملة وقس على هذا ,, وهذا كود لطباعة عدد محدد من الصفحات DoCmd.OpenReport "MyReport", acViewPreview DoCmd.PrintOut acPages, 1, 3 الرقم 1 بداية الصفحات و 3 نهايتها ويمكن ان تستبدل الارقام بحقول في النموذج

تم التعديل اما بالنسبة لحقل المجموع + مشاركة سابقة لك تطلب تغيير العدد فقط عند التكرار فالجواب هو ان حقل العدد والمجموع زائدين في شاشة المستخدم ونحتاجهما في فاتورة الزبون فقط (التقرير) او في التقارير الخاصة بالادارة فطبيعي ان يظهر في شاشة المستخدم اربعة سجلات لطلب 4 شاي بسعر 1 ريال لكل طلب ولكنها في فاتورة الزبون ستظهر بسطر واحد 4 شاي بـ 4 ريالات Microsoft2.rar

التحديد يكون لصفحة واحدة وهذا يمكنك من خلال مربع حوار الطابعة والملصقات يختلف عددها في الصفحة الواحدة حسب الرغبة ( حسب المقاسات ) فورقة A4 يمكن ان تحتوي مابين 4 الى 65 ملصق

قيد النظر .. بالنسبة للمشكلة الاولى جرب : اجعل مصدر الفاتورة استعلام معياره رقم الفاتورة

تفضل هذه الروابط تتحدث عن ذلك http://www.officena.net/ib/index.php?showtopic=33549#entry174361 http://www.officena.net/ib/index.php?showtopic=54863#entry346668 ملحوظة : وندوز7 و 8 تحتوي على خطوط الباركود فليس هناك حاجة لجلب خطوط خارجية الى وندوز

طبعا بالنماذج وانما الاستعلامات تصنع حسب حاجة النماذج او التقارير ملحوظة : استخدم استعلاما بديلا لجدول الاسماء كمصدر لبيانات المشروع ، والفائدة ظاهرة حيث سيحتوي الاستعلام على بيانات غير موجودة في الجدول كسنة الميلاد والمحافظة والاسم اللكامل وغير ذلك من الخصائص مثل امكانية الحجب عن الظهور وغيرها كثير

ابحث عن تشفير الجداول داخل قواعد البيانات والافضل هو تكبير قاعدة البيانات بتحويلها الى mysql

لا يهم المهم التسمية بحروف تدل على المسمى انظر المثال المرفق وتصفح الجداول ودقق بنوع البيانات داخل جدول الاسماء احرص ان يكون نوع البيانات المدخلة ارقما ما استطعت في المثال المرفق قمت بربط العلاقات للتوضيح فقط والاولى حذفها وهو ما افعله في اعمالي والسبب ان البيانات التي سيتم ادخالها لاحقا سيكون من خلال مربعات التحرير ومربعات التحرير هي علاقة بحد ذاتها ، لانها محكومة saeyd9.rar

الملاحظات : 1- دوما ارفق مثالك حسب الحاجة فقط اي الجزء المطلوب التعديل عليه فمن غير المستحسن وجود كائنات زائدة هذه الطريقة تساعدك في انشاء مكتبة خاصة بك تشتمل على امثلة صغيرة لمواضيع معينة 2- احرص على تسميات جميع الكائنات من جداول ونماذج وحقول داخلها بحروف اجنبية حتى يسهل عليك تعلم الكود البرمجي وكتابته ويمكنك اظهار اللغة العربية في التسميات التوضيحية (واعلم اني من الغلاة في توظيف اللغة العربية من غيرها ) ولكننا هنا نقرب المعلومة الى المتعلم 3- لاتترك مسافات فارغة بين الكلمات عند تسمية كائن او عنصر ما وانما استعض عن ذلك بفاصلة تحت السطر او ميز بين الكلمات بأن تكتب الحرف الاول من كل كلمة بخط كبير 4- اهتم بحجم الحقل بما يتناسب وحجم البيانات المدخلة فمن غير المناسب ان نجعل حجم حقل الاسم الاول = 255 حرف .. وهكذا 5- لا تبدأ عملك جملة واحدة وتقفز الى درجات اعلى وانت لم تستكمل الاساسات 6- ابدأ عملك بصنع جدول جدول حتى تتيقن انك استوفيت كل شيء عن الجداول انشاء الجداول بطريقة صحيحة هو الاساس الاهم في اي مشروع saeyd8-2003.rar

الاكسس لا علاقة له في ذلك فالاصدار الاحدث يفتح الاصدار الاقدم ولكن العكس لا قبل يومين نصبت برنامج معمول على 2003 نصبته على جهاز يعمل على وندوز8 64 بت والاوفيس 2015 ولم اواجه مشكلة تذكر الا في مكتبة النت XMLHTTP حيث يوجد لها بديل XMLHTTP60 فاستبدلتها ومشي الحال

هي ليست عمود بل حقل وتوزيع الاسم على حقول متعددة افضل بلا شك ومن فوائده ايضا تقليل نسبة الاخطاء اما الجمع واظهاره في التقارير فهو كما ذكرت سابقا يسير نجمع الحقول كما في الجمع العادي ونستخدم العلامة & بالضبط كما نستخدم +

المرفق يشرح الفكرة db1.rar

فيما اذكر الاستاذ محمد صالح له مشاركة في قسم الاكسس تعالج هذه الاشكالية

طبعا ذكرت لك ما يمر بي غالبا والعلاج المتبع وبالنسبة للرسالة فلم ارها و لم تظهر لي من قبل اعانك الله اخي الحبيب

عبدالله ، وعبدالرحمن ............ لا بأس بأن لا نترك بينها فراغا ولكن كيف بــ صلاحالدين ... ونحوه افضل طريقة عند عمل المشاريع هو كتابة الاسم الرباعي مجزأً في حقول عدة وحينئذ نحن بغنى عن اكواد او معادلات اضافية حيث ان تجميع الاسماء كما تعلمون يسير

الرسالة تتحدث عن وجود هذا الحدث في كائن اكتفكس كنترول في احد النماذج والتقارير ولان مشروعك على صيغة MDE فلن تتمكن من الوصول الى سبب المشكلة احسن طريقة للعثور على سبب المشكلة وهو الذي اتبعه دائما : هو انني افتح المشروع الاصل MDB من الفلاشة داخل الجهاز الذي حدثت به المشكلة

مطلوبك واضح والحل هو ما ذكرته لك لعلي اجد متسعا من الوقت وسأعمل لك مثالا يساعدك على فهم ما ذكرت لك

السلام عليكم حلوة جدا تصاميم الواجهات وهذا يدل على صاحبها وذوقه الرفيع واضح ان مطلوبك يتركز حول الترقيم التلقائي المنوع اولا انظر الى هذا الموضوع فهو يتحدث عن هذا الشأن http://www.officena.net/ib/index.php?showtopic=49961#entry305187 ثانيا : وركز معي ؛ عند ربط جدولين رئيسي وفرعي بعلاقة متكاملة ثم انشاء نموذج رئيسي واخر فرعي فاننا حين نختار الرقم المعرف صاحب العلاقة (رقم المجموعة ) في النموذج الرئيسي فانه سينتقل الرقم آليا الى النموذج الفرعي ( رقم المجموعة ) وبكذا تكون قطعت نصف الطريق حينها يمكنك عمل ترقيم تلقائي آخر داخل الفرعي يبدأ من الواحد لتطبيق ما ذكرته اعلاه يمكنك ارفاق مثال بجدولين ونموذجين فقط فقط واجعله على الامتداد mdb

كما هو ظاهر يوضع في حدث عند تحميل النموذج ( نموذج بداية التشغيل )

وجدت في مكتبتي هذا المثال لابن مسقط وهو يعالج هذه الجزئية إيقاف بالمدة.rar

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