ابوخليل

اخي الكريم احمد صحيح اني عملت قبل سنوات على قاعدة بيانات sql لكني لست خبيرا فيها لذا تلاحظ اني استعنت بخبير في هذا المجال حين قدمت لك المساعدة في هذا الموضوع علما اني متأكد انك سوف تجد الحل ، فقط المحاولة والبحث في قوائم القاعدة

الاستاذ خليفة غفل ان يضيف علامة التنصيص المفردة ليصبح السطر : Set rs = CurrentDb.OpenRecordset("Select * From Stock Where id='" & Me.article &"'") جرب لعل تضبط معك

GoDaddy

اخ عزيز وغالي .. لك كل المحبة والتقدير قد يجد مني البعض بعض الحدة ولعل هذا طبع جبلت عليه ، وكما تعلم يصعب تقويم الغصن بعد جفافه ، ولكني ان شاء الله لم ولن اتجاوز إلى ما ذكرت ..

الاشياء المنطقية بالامكان تحقيقها .. في عالم البرمجة لا يوجد كلمة لا يمكن فما كان مستحيلا بالأمس يمكن تحققه اليوم وانت تريد مربع الحوار ان يظل مفتوحا لتختار الصور واحدة بعد الاخرى دون الرجوع الى الزر .. ولكن يجب ان نراعي بعض الأمور 1- وظيفة الزر انه يتفحص المتغيرات ليختار منها الذي لا يحمل قيمة 2- لكل متغير مربع صورة تخصه في النموذج 3- تصور انك ستجلب الصور من اكثر من مكان على الحاسب 4- في الغالب المرفقات عبارة عن مستند او صورة واحدة 5- لو سلمنا ان مربع الحوار سيبقى مفتوحا فسوف نضطر الى اغلاقه يدويا اخيرا رحم الله امرءاً عرف قدر نفسه .. فليس لدي تصور لتنفيذ الفكرة .. فلعل احد اخواننا الخبراء لديه تصور وتمكن من ذلك هذه يسيرة يمكنك عملها ... قم بتصغير المربعات واجعلها بجانب بعض واضف مربعا رابعا ولو كان خاليا واحط الكل باطار ..

جرب هذا =iif(DLookUp("[ShiftType]";"QSUnit";"[QSUnit]![empName]=[EMPN]and [UNIT]=[UNIT] and [D] =10")=null;Nz(DSum("[blance]";"recept";"[acc_no_recpt]=" & [Forms]![n_name]![av1] & "AND date < [Forms]![n_name]![av3]");0);0)

اتوقع ان الاخ يريد طباعة ما يكتبه في النموذج بدون تحديد عدد السجلات وخاصية ادخال البيانات في النموذج = نعم هذه فيها اشكالية لان البيانات لا تدرج في الجدول الا بعد تحديث النموذج ، وعند التحديث تختفي البيانات من النموذج فأنا عملت في المثال ادناه تحديث للحقل او السجل فقط ، وحتى نتمكن من التصفية من خلال النموذج اضفت حقل لتاريخ اليوم انظر المثال المعدل ووافنا بالنتيجة Database6.rar

زودنا باسم الجدول واسم الحقل

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

اقرأ ما سألتك عنه جيدا اي نموذج ؟ في المثال نموذجان

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

هذه صورة للتقرير عندي بعد تطبيق الدالة على الحقلين الاخيرين وهذا مثالك بعد التعديل test11.rar

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

تفضل Public Function SubSalary3(fld As String) Dim i As String i = DLookup("[النسبة]", "tp2", "[المنصب]='" & fld & "'") SubSalary3 = i End Function نناديه هكذا Me.a5 = SubSalary3(a4)

اضف للكود الدالة NZ واجعلها ترجع x عند عدم البيانات هذا كود لآخر حقل عندك ...............طبق على البقية =nz(DLookUp("[ShiftType]";"QSUnit";"[QSUnit]![empName]=[EMPN]and [UNIT]=[UNIT] and [D] =10");"x")

لانك في مربعات التحرير اعتمدت على القيم فهكذا ستكون الوحدة النمطية : Public Function SubSalary3() Dim i As String i = DLookup("[النسبة]", "tp2", "[المنصب]='" & Forms!form1!a4 & "'") SubSalary3 = i End Function ونناديها هكذا : Me.a5 = SubSalary3() لو بنيت مربع تحرير المنصب في الجدول الرئيس على جدول tp2 وجعلته عمودين .. ويكون العمود الافتراضي رقمي ومخفي والعمود الظاهر هو قيمة النسبة لامكن بناء وحدة نمطية مختلفة

الاصح بين الجدولين هو tp2 لانه قابل للزيادة وبالنسبة لطلبك هذا السطر يقوم بالمهمة ضعه في حدث بعد التحديث لحقل المنصب Me.a5 = DLookup("[النسبة]", "tp2", "[المنصب]='" & Me.a4 & "'") اذا تريده عن طريق وحدة نمطية عامة سوف ازودك بالجملة البرمجية

الخلل في تصميمك للتقرير ، حيث انك جعلت ارتفاع التفصيل كبير جدا انظر التعديل Database5.rar

كانت اجابة الخبير انه في قاعدة connection string sql حاجة اسمها time out اتأكد منها وقال انه ما يستبعد يكون من الاستضافة بس الاول يتأكد من قاعدة البيانات

ممكن ليه لا على كل حال ارسلت استفسار الى خبير في قواعد بيانات sql ومنتظر رده بالنسبة للاستضافة يوجد استضافات مدفوعة ورخيصة والمبلغ يحدده حجم بياناتك .. فقط ابحث ... انا تعاملت سنين مع جودادي لا باس بها

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

جربت على اكثر من برنامج والنتيجة لا يوجد اي شيء في قاعدة البيانات فقط جداول النظام عادة هذه البرامج تسترجع الجداول او بعضا منها

تفضل ارسال 3 صور دفعة واحدة ويمكنك زيادتها لا حظ بعد تحميل الصور عند التركيز على الحقل تظهر الصورة الاخرى جربت المرفق وتم الارسال بنجاح .. انظر الصورة من بريدي ارسال اكثر من صورة بالبريد.mdb

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

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