ابوخليل

الى ان يتم اعداد الاحصائية احببت ان اريك طريقة مفيدة لكيفية الارتباط بالصور حيث يكون الارتباط في المجلد الافتراضي لقاعدة البيانات مهما كان موقعه امل ان تجد الفائدة 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

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

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

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

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

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