f16

اخي ابو بسملة شكرا على مجهودك الرائع وقد استفد من الكود كثيرا

ا/ عصام اشكرك على هذا الكود الرائع .. لقد استفد منه كثيرا تحياتي لك . اخوك

أخي عصام اشكرك على مجهودك وعلى سعت صدرك اسائل الله ان يجزيك خير على ما تقدمه من مساعدة الاخرين اخوك عمار

حياك الله أ/ عصام وضعت مثال لما اريده . في المثال ثلاث مجموعات موجودة في جدول المجموعات ويوجد ايضاً اصناف في جدول الاصناف ، ويوجد نموذج ادخال الاصناف الجديدة عند كتابة رقم المجموعة واضغط على انتر يقوم بعمل صنف جديد . اريد ان يقوم النموذج بعمل ترقيم لثلاثة الارقام الأولى من اليمين ولا يوقوم بتغيير رقم المجموعةمثل هذا (999)100 ولا يقوم بتغيير رقم المجموعة على رقم المجموعة ان تبقى كما هي بدون تغيير مع خالص شكري مثال اوفيسنا حد الترقيم التلقائي.rar ا/ ابوعبدالله اشكرك على ما تفضلت به لقد قمت بوضع مثال في المشاركة السابقة انظر اليه . اتمنى ان اكون قد وفقت في الشرح جزاكم الله خير

أ/ عصام احييك في البداية على حرصك على مساعدة الاخرين لك مني التحية والأعزاز وبعد انا لدي جدول به اصناف تتبع المجموعات فمثلاً مجموعة الملابس تبداء برقم 100 ومجموعة الادوات الكهربائية تبداء برقم 200 تحت مجموعة الملابس يوجد اصناف على الشكل التالي 100001 جاكت جنز 100002 بنطلون جنز 100003 قميص رجالي وهكذا المجموعة الثانية يوجد بها ايضا اصناف على الشكل التالي 200001 مصباح كرستال 200002 مصباح ذهبي 200003 مصباح اصفر وهكذا اريد عند ترقيم الاصناف ان يتوقف الرقم لكل مجموعة عند حد معين لا يزيد عنه يعني مجموعة الملابس اريده ان يتوقف عن الترقيم عند ما يصل الى الرقم 100999 ومجموعة الادوات الكهربائية اريده ايضا ان يتوقف عن الترقيم عند العدد 200999 وهكذا بقية المجموعات . ارجو ان اكون قد وفقت في الشرح . وارجو المعذرة منك أ/ عصام على كل حال . اخوك

ا/ عصام اشكرك على ردك الكريم وعلى الكود الجميل لاكني ربما لم اوفق في طرح سؤالي بشكل سليم على كلاً سأبحث عن طريقة اخرى اجد فيها مبتغاي اكرر شكري لك شكرا اخي عبق الرياحين على ردك وعلى ما بذلته من جهد

اسعد الله مسائكم جميعاً كيف يمكن وضع نهاية للترقيم بأستخدام الدالة dmax بحيث اريد ان يتوقف مثلا عند الرقم 999 شاكرا ومقدرا اخوكم من فضلكم ليس هناك داعى لعمل اقتباس عند الرد فهذا يقوم بدوره بتشتيت المطلع والباحث عن نفس الموضوع مستقبلاً , ولابد من تحديد أفضل إجابة من قبل صاحب المشاركة عند الحصول على الإجابة الصحيحة وذلك بتفعيل علامة الصح من على يمين المشاركة الصحيحة

ا/ عصام اشكرك على هذا الابداع ، بارك الله فيك . اضفت الى المثال اضافات كبيرة وجميلة تستحق الأشادة

شكرا اخي ياسين على تعبك . حلك جميل .. يقارب الحل الذي سبق وأن قمت بعملة المشكلة انه في حالة العودة الى الصنف مرة اخرى لتعديل الكمية لا يستجيب وذلك لان الاستعلام قد قام بتحديث الكمية وهذا في الحياة العملية لا يصلح فقد يخطاء المدخل للبيانات ويحتاج الى تعديلها .

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

اشكر الاخوة أ/ عبدالطيف سلوم و أ/ خالد على ردهم الكريم اخي خالد انا بالفعل قمت بتجربة المعادلة التي اشرت اليها ولاكنها لا تجدي نفع اخي عبداللطيف سأعمل على ما تفضلت به

الاخوة الاكارم السلام عليكم اخواني احتاج الى معرفة كيفية عمل جمع للحقل المحسوب في التقرير مرفق مثال وما اريده هو اجمالي حقل المدين . قد ربما يكون الحل سهل ولاكني لم اتوصل أليه ارجو المساعدة مع خالص شكري وتقديري مثال اوفيسنا جمع حقل محسوب في التقرير.rar

الاخوة الكرام السلام عليكم ورحمة الله هل يوجد مكان اضع به كود في حدث عند تصغير النموذج وليس في حدث عند تغيير حجم النموذج بمعنى اريد ان اضع كود عند ما يقوم المستخدم بضغط على زرار تصغير النموذج اريد ان يقوم الكود بعمل تصغير لقاعدة البيانات ككل وليس فقط النموذج المفتوح . اخوكم

اشكرك اخي زياد على مرورك الكريم المثال وضعته في ردي على ا/ جعفر بارك الله فيه ولكم جزيل الشكر

اشكرك اخي جعفر على هذه المعلومات القيمة الذي دعاني الى محاولة فهم الكود هو انه لم يعمل لدي بالشكل المطلوب هذا مثال لما يشبه المثال الذي اريده وقد وضعت الكود السابق فيه ولاكنه لم يضبط تماماً مع شكري وتقديري لما تبذله من مجهود وعلم مثال اوفيسنا تسطير التقرير.rar

اسعد الله مسائكم اخواني اعضاء المنتدى الرائع اخواني الأعزاء كيف يمكنني فهم الكود التالي Private Sub تفصيل_Print(Cancel As Integer, PrintCount As Integer) Dim ctl As Control Dim MaxHeight As Long MaxHeight = 0 For Each ctl In Me If TypeOf ctl Is TextBox And ctl.Section = 0 Then If ctl.Height > MaxHeight Then MaxHeight = ctl.Height End If Next For Each ctl In Me If TypeOf ctl Is TextBox And ctl.Section = 0 Then Me.Line (ctl.Left, 0)-(ctl.Left, MaxHeight) End If Next Me.Line (Me.Width - 3, 0)-(Me.Width - 3, MaxHeight) Me.Line (0, MaxHeight)-(Me.Width - 3, MaxHeight) End Sub Private Sub Report_Page() 'تحميل خيارات الرسم عند فتح الصفحة Me.ScaleMode = 3 Me.ForeColor = 0 Me.DrawWidth = 3 End Sub حيث قمت بتجربة الكود في مثال ولم يضبط تماماً ارجو ان اجد من اعضاء المنتدى من يفهم هذا الكود ويرشدني الى طريقة كتابتة حتى افهمه جيدا واستطيع ان اعمله في امثلة مختلفة بدلاً من نسخة ولصقة دون علم ما فيه ولكم جزيل الشكر

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

الشكر لكم جميعاً على ردكم على سؤالي انا وجدت مثال يعمل بشكل رائع ولاكني لم افهم طريقة عملة سأضعة على الموقع واتمنى ان تشرحو لنا كيفية عمل هذا الكود هذا المثال وجدته في موقع اخر للاخت زهرة ولكم جزيل الشكر مثال على توسعة الحقول في التقرير.rar

الشكر لكم جميعاً على ردكم على سؤالي انا وجدت مثال يعمل بشكل رائع ولاكني لم افهم طريقة عملة سأضعة على الموقع واتمنى ان تشرحو لنا كيفية عمل هذا الكود هذا المثال وجدته في موقع اخر للاخت زهرة ولكم جزيل الشكر مثال على توسعة الحقول في التقرير.rar

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

مرحبا اخي فارس بني هلال المشكلة هي انني عند فتح جهاز الابتوب وتشغيل قاعدة البيانات مباشرة اجد ان قاعدة البيانات تفتح لاكن لا يظهر النموذج الرئيسي الذي انا وضعته عند فتح قاعدة البيانات الذي يج ظهر شاشة الاكسس لمدة 3 ثوان ومن ثم يظهر النموذج الرئيسي بمعنى لو ان المستخدم فتح قاعدة البيانات مباشرة بعد تشغيلة الكمبيوتر سيعلم ان قاعدة البيانات معمولة على الاكسس . ارجو ان تكون الفكرة اتضحت

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

شكراً لكم اخواني الكرام على مجهودك الكبير قد فهمت ما تقصدونة وهذه طريقة جميلة في اخفاء شعار الاكسس مع تحياتي اخوكم

اخي فارس بني هلال قمت بعمل نفس الخطوات التي ذكرت ولاكن لا اجد اي نتيجة مرفق صورة أُذكر هل هذه الطريقة التي اخبرت عنها ستعمل على اخفاء قاعدة البيانات عند الفتح ام اني فهمت شيئ اخر ارجو ان يتسع صدرك لي مع تقديري لجهدك ووقتك .

اسعد الله مسائكم اخواني الكرام بعد ان اضع الصورة من نوع bmp بجوار قاعدة البيانات وبنفس الاسم ماذا بعد ذلك هل اذهب الى قاعدة البيانات واضع كود او أي شيئ اخر ، ارجو الدعم في ذلك فأنا لم اقم بعمل شيئ مشابه لهذا من قبل مع تحياتي اخوكم f16