اخواني مشرفي واعضاء المنتدى
السلام عليكم ورحمة الله وبركاته
تحية طيبة وبعد
بصراحة انا كنت متابع معكم في هذا المنتدى الرائع منذو فترة قصيرة وفي
الحقيقة والله اعجبني هذا المنتدى المفيد لعل الله يحفظكم ويزيدكم علما و ان
شاء الله افيدكم وتستفدوني ،،،،،،،،،،،،،،،،،،،،،،،،،،،،،،
بالنسبة لسؤالي بارك الله فيكم جميعا واسكنكم فسيح جناته
انا عملت برنامج وارجو اصلاح المشكلة الصغيرة مرفق لكم البرنامج وفيه شرح السؤال وجزاكم الله خير ،،،
تحياتـــي
ابو عبدالحميد
اخواني يبدو ان الملف حجمه كبير
ماني عارف ايش المشكلة بالرغم انني حذفت البيانات في الجدول
و عليكم السلام
حاول تضغط الملف بWinZip
:D
مرحباً بك أبو غازي
اشكرك على ردك السريع حفظك الله
بالنسبة للملف حجمه الاصل 6.364كلوبايت
وبعد الضغط اصبح 524.كلوبايت
وماهو راضي نفس المشكلة بالرغم انني مو أول مرة ارسل ملفات
ارسلت كذا مرة في بعض المنتديات المشترك بها
ولم اعرف ماهي المشكلة؟
طيب ممكن تضع بريدك لإرساله إليك إذا كان مافي مانع؟
تحياتي
ابو عبدالحميد
أنا مستجد مثلك:o
بس والله كنت حاب أساعدك في تنزيل الملف;)
ممكن تكتب سؤالك هنا و ان شاءالله
الشباب ماراح يقصرو معاك في الشرح
أخوك أبو غازي
السلام عليكم
بالنسبة الى حجم الملفات فإن إدارة المنتدى حددت حجم المرفقات بــ 500 كيلوبايت
بإمكانك ظغط البرنامج ببرنامج الوين رار فهو أفضل من ناحية الضغط من برنامج الوين زيب
تحياتي
;)
أعرض المشكلة وأن شاء الله سنساعدك
السلام عليكم ورحمة الله
اخواني الاعضاء حاولت في ضغط البرنامج بــ win.rar حتى اصبح حجمه اقصى شي 513 كلوبايت ، عموماً أنا احاول اشرح لكم البرنامج بالصور المرفق لكم
بالنسبة للبرنامج اللي صممته انا ليس لي وانما لأحد المستشفيات الحكومية لبنك المختبر وهو ( برنامج المتبرعين ) الدين يتبرعون لله من أجل الثواب عند الله ، فأرجو ايجاد حل لهذه المشكلة وجزاكم الله الف خير
بالنسبة للكود لمربع تحرير وسرد لي (نتيجة الفحوصات)واعتقد لا يوجد خطأ بالكود وانما في النموذج الفرعي في الصورة رقم 2
Private Sub is_mar_AfterUpdate()
If Me.is_mar = 1 Then
'Me.is_mar = " غير سليم"
Me.a.Enabled = True
Me.b.Enabled = True
Me.c.Enabled = True
Me.d.Enabled = True
Me.f.Enabled = True
Me.SetFocus
Else
'Me.is_mar = " غير سليم"
Me.a = Null
Me.a.Enabled = False
Me.b = Null
Me.b.Enabled = False
Me.c = Null
Me.c.Enabled = False
Me.d = Null
Me.d.Enabled = False
Me.f = Null
Me.f.Enabled = False
Me.SetFocus
End If
End Sub
بالنسبة للكود لمربع تحرير وسرد لي (نتيجة الفحوصات)واعتقد لا يوجد خطأ بالكود وانما في النموذج الفرعي في الصورة رقم 2
Private Sub is_mar_AfterUpdate()
If Me.is_mar = 1 Then
'Me.is_mar = " غير سليم"
Me.a.Enabled = True
Me.b.Enabled = True
Me.c.Enabled = True
Me.d.Enabled = True
Me.f.Enabled = True
Me.SetFocus
Else
'Me.is_mar = " غير سليم"
Me.a = Null
Me.a.Enabled = False
Me.b = Null
Me.b.Enabled = False
Me.c = Null
Me.c.Enabled = False
Me.d = Null
Me.d.Enabled = False
Me.f = Null
Me.f.Enabled = False
Me.SetFocus
End If
End Sub
================
تحياتي
ابو عبدالحميد
هذا الموضوع مغلق.
