اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر (معدل)

صباح الخير 

 بعد طبعا قراء منتدى  الرائع عمل كما اقترح على المشرف فى عمل البرنامج ويد اات لتصميم 

ولكن واجعت مشكله ان بعض الخانت اللى بها معادله لاتسنجيب لامر 

Private Sub MCV_AfterUpdate()
    Select Case Nz([MCV], "")
        Case "": Me.m1 = ""
        Case 80 To 95: Me.m1 = ""
        Case Is > 95: Me.m1 = "H" & Space(2) & ChrW("8593")
        Case Is < 80: Me.m1 = "L" & Space(2) & ChrW("8595")
    End Select
End Sub

ظهرت كا فى كل الخانت الا الى بها معادله 

هذا اولا 

 حاولت ارفع الملف كان اكثر

 1  mb 

e.png

تم تعديل بواسطه jjafferr
عمل تنسيق للكود بإستخدام زر القائمة <>
قام بنشر
10 دقائق مضت, labmanger said:

حاولت ارفع الملف كان اكثر

وعليكم السلام ورحمة الله وبركاته

اضغط الملف ببرنامج ال WinRAR مثلا ثم أعد تحميله ..

قام بنشر (معدل)

ابو جودي   الف شكر لمعاليك 

جزالك الله خيرا 

طيب ممكن طلب تانى 

فى خانه ال comment 

 فى تعابير تظهر عند علامات  MCH ,MCH 

 

Private Sub cm_AfterUpdate()
Select Case Nz([MCV], [MCH], "")
Case "": Me.cm = ""
Case MCV = " " And MCH = " ": Me.cm = "There is normochromosis with normocytosis were observed on RBC's."
Case MCV = "L" And MCH = " ": Me.cm = "There is normochromosis with microcytosis were observed on RBC's."
Case MCV = "L" And MCH = "L": Me.cm = "There is hypochromosis with microcytosis were observed on RBC's."
Case MCV = " " And MCH = "L": Me.cm = "There is hypochromosis with normocytosis were observed on RBC's."
Case MCV = "H" And MCH = "L": Me.cm = "There is macrocytosis with hypochromosis were observed on RBC's."
Case MCV = " " And MCH = "H": Me.cm = "There is hyperchromosis with normochromosis were observed on RBC's."
Case MCV = "L " And MCH = "H": Me.cm = "There is hyperchromosis with microcytosis were observed on RBC's. "
End Select

End Sub

على ما فهمت من اظهار 

ولكن لا تظهر هل الترتيب خطا 

وبرجاء الشرح علشان احاول اعمل فى ارقام اخرى 

وشكرا 

 

 

 

تم تعديل بواسطه jjafferr
عند وضع كود في المشاركة، وحتى يظهر تنسيق الكود بالطريقة الصحيحة، يرجى: إستخدام زر القائمة <> ووضع الكود في النافذة المنبثقة

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information