ابوخليل

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

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

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

هذا تطبيق لما اشار اليه اخونا برقش بعد فتح المستند اضغط Ctrl+T tabTOtext.rar

تم عمل اللازم باستخدام الدالة Dlookup اما كبر حجم الملف فسببه الصور المضمنة الموجودة في التقارير ، يمكنك استخدام صورة واحدة ووضعها في مجلد البرنامج ويتم عرضها في التقارير او النماذج بطريقة الارتباط . ملحوظة للفائدة : يمكنك اختصار النماذج الاربعة والتقارير الاربعة في نموذج واحد وتقرير واحد لاستخراج النتيجة نفسها Ali2.rar

بو حمد حمدا لله على تحقق المطلوب الاستاذ أبو أحمد : وأنت كذلك ،،، وشكرا لمرورك

استخدم هذا السطر في حدث فتح نموذج البداية DoCmd.RunCommand acCmdDocMinimize ثم افتح خصائص النموذج على لسان التبويب "غير ذلك" واجعل القيمتين : "منبثق" ، "شكلي أومشروط" = نعم

لتسلسل الارقام : انقر بزر بالفأرة الايمن على حقل الرقم / خصائص / بيانات غير مصدر البيانات الى = 1 ومجموع تراكمي الى شامل انظر الصورة اما بالنسبة للتقارير حسب الجنسية فجدول البيانات عندك لا يحتوي على جنسيات بل وافد ومواطن عدل البيانات فتظهر لك النتيجة

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

بعد تطبيقك للدرس الماضي : http://www.officena.net/ib/index.php?showtopic=42541 قم بإلغاء عمل الشيفت ، ابحث في المنتدى عن shift

تقضل Ali.rar

انظر هنا تشرح 2007 http://www.officena....showtopic=42445 هذه واحد من كثير من المواضيع ، استعمل البحث فقط