كريمو2

إرفق قاعدتك لنرى مالمشكلة ؟

شكرا أخي الكريم هل لقيت نظرة على المشاركة رقم 29

اسف استاذي تسرعت في الرد قبل الوصول الى نقطة مهمة وهي مازال تخلاط في المبالغ بين الموننين والموظفين كانت اول رؤية لي في صحة كتابة الملاحظات ولم اتفطن لجمع المبالغ الا في الحين لاحظ في التقرير كريمو 1 لدية مبلغ 85,750.00 من اين له هذا المبلغ هو متحصل فقط على 10…

شكرا لك أستاذي جعفر هو المطلوب بارك الله فيك يعجز لساني حقا عن تقديم الشكر ماعساني الا ان ارفع يدى للمولى تعالى أن يوفقك ويحميك من كل مكروه يارب أتمنى أني لا اجد صعوبة في هذا الشأن مستقبلا

أخي الكريم جعفر بارك الله بك وعليك وفيك اولا انت إشتغلت على إسم هذه النسخة Obsérvation2014_2014-09-23.rar نعم لم يتم فيها تغيير الكود الى If Err.Number = 3021 Or Err.Number = 3061 Then ولكن مش مشكلة هذه المشكلة ظهور الملاحظات كما في الصورة ولعلمك ماغيرت شيئا و…

اخي جعفر :) المطلوب شيء بسيط ولكن وصول الفكرة هي الأصعب مطلوبي هو ظهور ماكتب بالملاحظات في الفورمات التالية حسب الشهر : FrmCompany وبه نموذج فرعي FrmBillsub هذا ألأخبر به مربعين نص Bill_Date و Obsérvation FrmCridi وبه نموذج فرعي FrmCridi_sub هذا ألأخبر به مربع…

اخي جعفر بارك الله فيك نعم وهو كذالك قضي على الميساج ولكن بقي مشكل لازلت اعاني منه منذ تعديلك اول مرة على برنامجي ولكن تفطنت اليه مؤخرا وهو عدم ظهور ملاحظات الممون في الفورم FrmCompany في التقرير وحسب رأي يوجد اختلاط بين ارقام الموظفين بارقام الممونين اي Compa…

منتظر مساعدتكم

عيدكم مبارك وكل عام والأمة الإسلامية بالف خير نأمل ان تكون الدكتورة ومشرفة قسم الأكسس "أم عهود " بالف خير ونلتقي بها بعد العيد مباشرة

ارجو المساعدة بالمطلوب أعلاه Obsérvation2014_2014-09-28.rar

اخي واستاذي جعفر السلام عليكم ورحمة الله تعالى وبركاته لقد إتبعت كل الخطوات التي أعنتني بها سابقا في ظهور الملاحظات بالتقرير مع جمع القيم او الأسماء ولكن وقعت بخطأ كما هو مبين بالصورة أدناه وبعد الضغط تكرارا على 'موافق' يفتح التقرير على صحة جمع المبالغ ولكن بد…

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

شكرا أخي جعفر بارك الله فيك

السلام عليكم إخواني اريد مساعدة بخصوص التعديل على كود "الغاء الأمر" يخرج البرنامج نهائي كما في الصورة Sub ExitMicrosoftAccess_Click() If MsgBox("عزيزي المستخدم قبل الخروج ! هل توافق على إجراء نسخة إحتياطية", _ vbQuestion + vbOKCancel, _ "خروج من النظام") = vbO…

هاهو الملف fonction.rar

بقي نفس الشيء مرة يظهر ومرة يختفي عند إختيار "أعزب" Private Sub Form_Current() On Error GoTo HandleErr If Not IsNull([PicFile]) Then [imgPicture].Picture = [PicFile] SysCmd acSysCmdSetStatus, "Image: '" & [PicFile] & "'." Else [imgPicture].Picture = "" SysCmd …

بقي نفس الشيء مرة يظهر ومرة يختفي عند إختيار "أعزب" Private Sub Form_Current() On Error GoTo HandleErr If Not IsNull([PicFile]) Then [imgPicture].Picture = [PicFile] SysCmd acSysCmdSetStatus, "Image: '" & [PicFile] & "'." Else [imgPicture].Picture = "" SysCmd …

بقي نفس الشيء مرة يظهر ومرة يختفي عند إختيار "أعزب" Private Sub Form_Current() On Error GoTo HandleErr If Not IsNull([PicFile]) Then [imgPicture].Picture = [PicFile] SysCmd acSysCmdSetStatus, "Image: '" & [PicFile] & "'." Else [imgPicture].Picture = "" SysCmd …

شكرا لك اخي fwares لقد وضعت الكود في الفورم عند الحدث "في الحالي " ولكن تحت كود اخر وهو Private Sub Form_Current() On Error GoTo HandleErr If Not IsNull([PicFile]) Then [imgPicture].Picture = [PicFile] SysCmd acSysCmdSetStatus, "Image: '" & [PicFile] & "'." El…

السلام عليكم إخواني كيف يتم تصحيح هذا الحدث كي يتم إخفاء مربع نص اسم الزوجة عندما يكون مربع نص ComboBox مكتوب فيه "أعزب" او "عزباء" ويظهر عندما يكون "متزوج " Private Sub ComboBox_AfterUpdate() If Me.ComboBox.Value = "متزوج" Then Me.اسم_الزوجة.Visible = True Me…