kkhalifa1960

استاذ @شريف كونكت مصدر بيانات النموذج (Main) عن طريق استعلام مرتبط الجدولان (f1)و (f2) مايصير حفظ بيانات لأنه أصبح الاستعلام لا يقبل تعديل أو اضافة . وحد الجدولان بجدول واحد (جدول) وليس استعلام أو مثلاً النموذج مصدره الجدول (F1) .و باقي حقول الجدول (F2) اجعلها غير مرتبطة واعمل لها (UpdatQuery) وشغله عن طريق زر الحفظ

تفضل استاذ @moho58 . basen.rar

تفضل استاذ @صالح الصالحي تجميع الحقول حسب (Data Type) مثل (Number) أو (Date) أو (yes/no). الكل يعمل مع الموديول ووافني بالرد . Collect(All Data Type.)InTextBox.rar

مشاركة مع معلمي واستاذي @jjafferr تفضل استاذ @figo82eg محاولتي من خارج الصندوق . اليك الشرح والمرفق . ووافني بالرد DDChangeButtonColor.rar

تفضل المرفق وزي ماأنت شايف يعمل جيداً . حاول تحل المشكلة لديك . نزل أكروبات ريدر جديد . DDAdd&DeletePDF.LAST.rar

أخي الفاضل استخدام اللغة العربية لأسماء (الجداول - النماذج - الاستعلامات -........................) وبارامتراها بيلخبط البرمجة فأنصحك باستخدام اللغة الانجليزية . أما البيانات استخدم أي لغة . تم اضافة كل الحقول كما بالمرفق .ووافني بالؤد اذا كان هذا طلبك اضغط أفضل اجابة . المشاركات والوظائف السابقة-3.rar

تفضل استاذ @صالح الصالحي حسب مافهمت . طالع الاستعلام (Q_Tasks) والنموذج (Form1).ووافني بالرد . المشاركات والوظائف السابقة-2.rar

اعتذر لرفع ملف تجريبي . اليك المرفق بعد التجريب . هل اشتغل معك ظهور ملفات PDF من قبل ؟ . اذا كان شغال يبقى المشكله كانت في الترقيم المتكرر . واحنا حليناها . DDAdd&DeletePDF.LAST.rar

تفضل استاذ @2saad طلبك حسب مافهمت اليك الشرح والمرفق .ووافني بالرد . noha-1.rar

تفضل استاذ @صالح الصالحي حسب مافهمت . طالع الحقل (AA) بالاستعلام (Query1).ووافني بالرد . المشاركات والوظائف السابقة-1.rar

هذا كان لطلب سابق لأحد الاخوة لما يكون الحقل خالي يعتبر قيمته عند الجمع صفر (لأنه عند جمع الحقول لا يجمع حقل خالي يعطي (Erorr)) . أما لطلبك نضع تحت الحقل الشرط أكبر من صفر (0<) أو لا يساوي صفر (0<>)

تفضل استاذ @walid7799 توني مسوي مثال مثل طلبك . تفضل المرفق . DDTestSunNull.rar

استاذ @حسين مامون شرح أكثر من ممتاز .جزاك الله خير.

ممكن مرفق بسيط لطلبك وانشاء الله خير .

تفضل استاذ @2saad حسب مافهمت تفضل المرفق . DDTestSunNull.rar

بالنسبة ل أولاً وحسب الصورة يوجد ماسج بالاعلى لابد من تنزيل اكروبات ريدر حسب الويندوز لديك (32 بت أو 64 بت) وهذا البرنامج متوفر بالنت . ثانياً وثالثاً ايضاً من الصورة انت اضفت الصورة الاولى تمام وحبيت تضيف صوره اخرى لنفس المريض ولكن لم تضغط على اسم المريض مرة أخرى كي يتغير الترقيم .. ( أنا عالجت ذلك بالمرفق التالي) DDAdd&DeletePDF.LAST.rar

تفضل استاذ @jo_2010 المرفق بعد التعديل . DDAdd&DeletePDF.LAST.rar

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

تفضل استاذ @jo_2010 المرفق بعد تعديل بعض الاخطاء وعمل ترقيم الصور حسب اسم كل مريض . DDAdd&DeletePDF.LAST.rar

حسب معلوماتي لا يوجد تخزين مؤقت بالاكسس .

1- لابد من الضغط new اختيار اسم المريض فى كل مرة لاضافة الملفات الخاصة . 2- اريد عدم اضهار رسالة فى كل مرة اضيف ملف جديد تم عمل اللازم . 3- تفضل المرفق في ثوبه الجديد وتم التجريب من اضافة وحذف صورة وحذف مجلد بما فيه (اقرأ التعليمات) أعلى النموذج . ووافني بالرد . ولا تنسى أفضل اجابة اذا الامور مشيت تمام . DDAdd&DeletePDF.rar

؟؟؟؟؟؟ . صور الخطأ وارسله .

تفضل استاذ @gavan أولاً مسامحة على التأخر عليك لمشغوليتي مع أفاضل مثلك (وتعب نظري جداً) . ثانياً وحسب ماسرده لك استاذنا @ابوخليل تفضل محاولتي . ووافني بالرد . DDTestSearch .rar

تفضل استاذ @jo_2010 المرفق بعد التعديل ( عند اضافة المجلد إذا موجود يعطيك ماسج المجلد موجود مسبقاً واذا غير منشأ يعطيك ماسج تم انشاء المجلد بنجاح ). واذا حبيت تلغيهم أو تلغي احداهما .اذهب لمحرر الاكواد واعمل كما بالمسجات بالموديول التالي . اضافة (') قبل الماسج . Sub CreateFolder() On Error Resume Next Dim folderPath As String folderPath = Me.PatientName.Value If Len(Dir(CurrentProject.Path & "/" & "My Programs/" & folderPath, vbDirectory)) = 0 Then MkDir CurrentProject.Path & "/" & "My Programs/" & folderPath 'MsgBox ("تم انشاء المجلد بنجاح") Else 'MsgBox ("المجلد موجود مسبقا") End If End Sub انا عملت بعض الادخالات للتجارب ممكن تطالعهم قبل الحذف ...ووافني بالرد. DDAdd&DeletePDF.rar

استاذ @Zooro1 اذا كان هذا طلبك اضغظ على أفضل اجابة .