ابوخليل

السلام عليكم عند ترقيم السجلات بغرض التنسيق والفرز والترتيب التسلسي فالاولى عدم استخدام الترقيم التلقائي الخاص بأكسس مع العلم انه ينصح بوجود هذا الترقيم في كل جدول كمفاتاح ومعرف للسجل اما عدم القدرة ( بالطريقة العادية) على استخدام الارقام المحذوفة فهي من ناحية امنية مفيدة كحصر ما تم حذفه مثلا . لذا يفضل البعض عند الحاجة الى الترقيم التلقائي ان يستعين بالترقيم التلقائي المصنوع وهذه احدى الطرق : 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

اجعل هذا السطر يلي سطر فتح النموذج DoCmd.RunCommand acCmdPrint

ضع هذه الاسطر مكان الوحدة النمطية Dim x, xx x = Mid([ProductID], 6, 3) xx = Mid([ProductID], 9, 5) SQty = x SalesPrice = xx طبعا هذا الكود حسب تقسيمك للارقام واهملنا الرقم الاول لانه موجود كما ذكرت اظن الكود واضح ولا يحتاج تفسير

وعليكم السلام ورحمة الله وبركاته بقي عليك ان تلتقط هذين الكودين بين اصبعين اقصد في زرين لان صاحبها لا يريد ان يحرمك لذة العمل . ارتباط وفك ارتباط بأكسل.rar

اليك التعديل آمل ان تكون الاستفسارات القادمة ، كل سؤال في مشاركة جديدة Ali2.rar

في ذيل التقرير اكتب في مربع نص غير منظم : =Count([الاسم])

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

هذا مثال للاستاذ القدير علي العتيبي ( startnet ) وفيه تطبيق لفكرتك textmove26-9-2008.rar