سعيد صواب

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

حياك الله اخي الكريم ماهي الطريقة التي تعتمدها لإضافة المرفقات .. حبذا ترفق مرفق ... بالتوفيق

حياك الله اخي الكريم المرفق لا يعمل اعد تحميله بالتوفيق

حياك الله اخي الكريم وجدت هذا الكود في احد المواقع الأجنبية ... قمت بتغيير نص الرسالة الى العربية .. فقط Private Sub CheckFileSize(strMyFile) Dim objFileSys As Scripting.FileSystemObject Dim objMyFile As File Set objFileSys = CreateObject("Scripting.FileSystemObject") Set objMyFile = objFileSys.GetFile(strMyFile) If objMyFile.Size > 6000000 Then MsgBox "حجم المرفق اكبر من المسموح به ", vbOKOnly Else MsgBox "حجم المرفق مناسب ", vbOKOnly End If Set objFileSys = Nothing Set objMyFile = Nothing End Sub اتمنى يفيدك بالتوفيق

حياك الله اخ سلمان بحسب فهمي للموضوع ان جدول القراءات يعتبر ناقصه وجود كود المركبه ... القراءة تتم للمركبة وليس للمستخدم . وبالتالي يصبح بناء شرط القراءة سهل لوجود مانستند عليه ..... مثلا نضع مربع نص في النموذج الفراعي يأخذ آخر قراء للمركبة بالطريقة التالية. Me.CrRead = Nz(DMax("old_reading", "tb_5", "car_dode=froms!fm_kilometer_sub"), 0) طبعا هذا اذا انا فهمت الموضوع صح وفقك الله اخوي سلمان

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

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

حياك الله ... وبالتوفيق واتمنى ان نصيحتى لم تزعلك ..

حياك الله اخي الكريم ممتاز كذا ... بقي سؤال واحد هل الحقول في النموذج منضمه ام غير منضمه .. اي مصدر بياناتها الجدول مباشرة ام لا .. اذا كانت منضمه فلا اعتقد انه يمكن لأكثر من شخص استخدامها في نفس الوقت والتعديل على نفس النموذج ... لست متأكد 100% ولم اجربها وعل من جرب يفيدنا بهذا الخصوص .. لي تجربه مع العناصر الغير منضمه واستخدام جمل SQL لإدخال البيانات الى الجداول ولا مشكلة فيها مع اكثر من مستخدم . بالتوفيق

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

حياك الله اخي الكريم الحمد لله انك وجدت الخلل اعتقد ان الإفتراضي هو :: بلا فرض صفحة .. ولكن ربما غير بالخطاء .. بالتوفيق

حياك الله هل وضعت القاعدة ك مشترك ..

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

حياكم الله اخواني اخي الشمال :: هل تقصد تسلسل إلى رقم معين بدون بيانات .. أي تقرير خالي لا يحتوي سوى التسلسل ؟؟

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

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

حياك الله اخي الكريم http://www.officena.net/ib/topic/39556-التقريب-للأعلى-فى-أكسيس/

حياك الله ابو تسنيم مافهمتش حاقه

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

حياك الله اخي ابو بسنت وتنسنيم .. الله يخليكم لبعض هذا مثال ان شاء الله يفيدك .. لو فرضنا ان لديك حقل رقم في النموذج وترغب رقمه يتزايد بالشروط اللي حضرتك تريدها ... في حدث عند التحميل للنموذج تضع الكود التالي وبحسب الشرط الذي تريد .. هذا مثلا في حالة رغبة الترقيم يبدأ من 1000 ويتزايد . Me.mbno = Nz(DMax("mbno", "mbeat"), 999) + 1 وهذا مثلا في حال رغبت الترقيم يبدأ من 1 ويتزايد Me.mbno = Nz(DMax("mbno", "mbeat"), 0) + 1 شرح الكود .. me.mbno : تسمية رقم الإذن في النموذج mbno: تسمية رقم الإذن في الجدول mbeat: تسمية الجدول .. المبيعات مثلا .. بالتوفيق

حياك الله اخي ابو عايشه انا لم اجرب الكود ولكن ضعه في حدث عند مفتاح لأسفل للفورم Form_KeyDown كما هو واضح في كود الأستاذ ابو خليل

اخي الكريم نور الدين ممكن ترفق مرفق لنتساعد في الحل بالتوفيق

اخي الكريم هل قمت بتحميل المرفق في مشاركتي الأخيرة ؟؟؟ لأني قمت بإزلة الكود الذي يخفي شريط الأدوات كما اشرت لك في المشاركة الأخيرة .. بالتوفيق

حياك الله اخي تفضل المرفق وجزى الله خير الأخ محمد سلامة صاحب الموضوع والمهتم بالأرشفه للتوضيح وللفائدة :: هذا الكود كان في النموذج frm_main وهو يعمل على اخفاء شريط الأدوات ستحتاجه بالتأكيد في المستقبل القريب قمت بتعطيله فقط .. بدون برامج فك ولا سواه . ستجده في حدث في الحالي للنموذج وباللون الأخضر . DoCmd.ShowToolbar "Ribbon", acToolbarNo بالتوفيق Arcives.rar

اخي الكريم ونيابه عن الأخ محمد علق على امر شفت في لوحة المفاتيح .. ومن ثم اضغط انتر بالتوفيق