ابوخليل

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

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

سببه خلل برمجي عند التحويل من 2007 او 20010 الى 2003

اشكر اخواني على هذه الفوائد واحب ان اضيف فائدة : 1- نحن لسنا في حاجة ( غالبا ) الى اتنظيم والترتيب داخل النماذج وانما نقوم بذلك عند العرض في التقارير وهذه الخدمة متوفرة ومهياة داخل التقارير . 2- يمكن استعادة الارقام المفقودة في الترقيم التلقائي برمجيا واستخدامها كسجلات جديدة ، وهنا ينتفي التعارض مع الجداول المرتبطة .

استخدم الدالة iif مثال : mytext:iif([myfild]<0;0;[myfild]) myfild هو اسم الحقل الذي تريد تطبيق الشرط عليه

تفضل من هنا ستجد ما يفيدك https://www.google.com/url?q=http://www.officena.net/ib/index.php%3Fshowtopic%3D25364&sa=U&ei=Au4SUPG2FcjAhAfnz4DIDA&ved=0CA0QFjAEOAo&client=internal-uds-cse&usg=AFQjCNF5F2mQXg3w18YrJQ7D6jrX0BMwVQ

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

السلام عليكم عند ترقيم السجلات بغرض التنسيق والفرز والترتيب التسلسي فالاولى عدم استخدام الترقيم التلقائي الخاص بأكسس مع العلم انه ينصح بوجود هذا الترقيم في كل جدول كمفاتاح ومعرف للسجل اما عدم القدرة ( بالطريقة العادية) على استخدام الارقام المحذوفة فهي من ناحية امنية مفيدة كحصر ما تم حذفه مثلا . لذا يفضل البعض عند الحاجة الى الترقيم التلقائي ان يستعين بالترقيم التلقائي المصنوع وهذه احدى الطرق : me.text=Dmax("text","mytble")+1 وهناك طرق اخرى عديدة تستخدم في النماذج والتقارير وكذلك الاستعلامات . لدي تعليق على ما تفضل به اخي محمد ايمن صحيح ... بشرط حذف جميع السجلات من الجدول قبل عملية الضغط وليس هذا ما اردت التعليق عليه وانما حول مسألة اختيار : ( ضغط عند الاغلاق ) وهي تجربة احببت نقلها اليكم : هناك علاقة او سبب بين ضرب ( تلف ) قاعدة البيانات وهذا الخيار

حتى لوكانت الطابعة على الشبكة فهي معرفة على جهازك هل جربت الخط Arial ؟ قد تحتاج الى اعادة تنصيب اوفيس ( اذا كنت تملك اسطوانة الاوفيس فقد يستغرق منك ذلك دقائق قليلة )

وجدتهما في مكتبتي PSchool.rar School.rar

جرب : احذف تعريف الطابعة / اعادة تشغبل الكمبيوتر / اعادة تعريف الطابعة

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

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

هنا http://www.officena.net/ib/index.php?showtopic=42639

شكرا للاخ محمد السوداني توافقنا في لحظة الرد

تفضل تم التعديل Database2.rar

الى ان يتم اعداد الاحصائية احببت ان اريك طريقة مفيدة لكيفية الارتباط بالصور حيث يكون الارتباط في المجلد الافتراضي لقاعدة البيانات مهما كان موقعه امل ان تجد الفائدة AliAbdalla.rar

تم التعديل انظر الاستعلام داخل النموذج تم اعتماد تاريخ النهاية فإن كان فارغا يحتسبه من تاريخ اليوم حساب المدة2.rar

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

في مثالك المرفق المدة محسوبة فعلا بالسنين ؟ وضح ما الذي تريده بالتحديد ؟

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

بل هي فكرتك وانما انت دفعتنا الى المحاولة كل عام وانت بخير

رفقا اخي ... كل عام وانت بخير بالعكس فأنا اعطيتك مجمل الحل يتبقى فقط تنسيق رقم وتطبيق الشروط اما تفصيلك الاخير فالواجب انك بينته في البداية حتى تتضح الرؤية تفضل وحدة نمطية كاملة حسب رغبتك بالتمام فاذا لم يتحقق الشرط يأخذ القيمة من الوحدة النمطية القديمة Private Sub ProductID_AfterUpdate() Dim x1, x2, x3 x1 = Mid([ProductID], 1, 5) x2 = Mid([ProductID], 6, 3) x3 = Mid([ProductID], 9, 3) & "." & Mid([ProductID], 12, 13) If x1 = 50001 Or x1 = 60001 Or x1 = 70001 Or x1 = 80001 Or x1 = 90001 Then ProductID = x1 SQty = x2 SalesPrice = x3 Else With CodeContextObject .SalesPrice = DLookup("[SalesPrice]", "[ProductsOthers]", "[ProductID] = forms!S![SExtendedDetails].form![ProductID]") End With End If End Sub

تمام .. هذا يعني انك لم تطلع على المثال المرفق في مشاركتي السابقة

ولكنه عندي يعمل Exam2.rar