ابوخليل

السلام عليكم كل عام وانت بخير اخي وكل احبابك واهل الجزائر اجمعين عملت هذا على عجل ونسيت اني اتعامل مع خبراء يحسبون الازرار انظر التعديل من شريط الادوات / جدول / تحويل / عدة جداول الى نص لا تنسى تخفيض أمان الماكرو الى الحد الادنى دمت بخير 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

لدوال الاكسس انظر هنا https://www.google.com/url?q=http://www.officena.net/ib/index.php%3Fshowtopic%3D30660&sa=U&ei=RdICUMDaCoGb1AW2rf2tBw&ved=0CAUQFjAA&client=internal-uds-cse&usg=AFQjCNF_-pykoxAbqs0aiv7Xpu-_CGrS_g ولاختصار الكائنات احناج لبعض الوقت وذكرني ان نسيت

نعم سينجح وفي هذه الحالة لست بحاجة الى نموذج آخر

تغيب وتجي سالم اخي محمد شكرا لك

الطرق متعددة وهذا أحدها Dim rst As Recordset Set rst = Me.RecordsetClone rst.MoveFirst Do Until rst.EOF If rst![بطاقة تعريف] = Me![بطاقة تعريف] Then MsgBox " رقم بطاقة التعريف تم إدخاله سابقا ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " تنبيه" Me.Undo DoCmd.CancelEvent Exit Do End If rst.MoveNext Loop rst.Close db1.rar

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