DR WALID SALAH

الاستاذه الافاضل 

لكم منى افض تحيه وتقجير على التنوع فى الاجابات ولكم جزيل الشكر 

واخص بها  اخي @ابا جودى على تبيسط المعلومه 

 وللجميع بلا استناء 

الاستاذه الافاضل 

اشكال الاسهم ARROWS SYMBOLS

هل يمكن ان تظهر 

مع H  يظهر علامه  وهكذ 

واذا حبيت اظهر الى اشكال اخرى SYMBOLS 

شكرا 

رائع الف لا تليون شكر  وعظمه على عظمه 

ايه الجمال ده اسلوب بيسط وراقى 

استاذنا يشرفى ان اكون تلميذ وليس طالب 

تحباتى اليكم والى منتدنا الرائع

الف شكر استاذنا هذا ليس مستغرب على كرمك وعلمكم 

بس ممكن تشرح لى الكود علشان افهم .

الف شكر الكلمات تعجز عن الثناء عليكم 

هل ينفع اطلع التعليقين total cholesterol and Triglycerides  بكود واحد وفى نفس المبربع  تحت بغض  

للمثالين السابق

 Triglycerides =600 

total cholesterol= 7.2

increase the risk of heart disease please check for ECG 

High  risk of heart disease

استاذتى الافاضل  

كتب الكود التالى بس امرين فقط اللى ظهر  ممكن تصحيح 

النتايج بين 5.2 - 6.2 كيف  تظهر 

والا اقل من 5.2 مضبوط اللى كتبه انه  يبقى فاضى 

الاصل فى النتيجه تظهر حسب الترتيب التالى CHOLESTEROL

Desirable : < 5.2  
Borderline : 5.2 - 6.2
High : >= 6.2

انا كتبت

() Private Sub Total_Cholesterol_AfterUpdate
    Select Case Nz(Total_Cholesterol.Value, "")
   ""     Case
       

  "" = Me.Text15

 Case Is  > 5.2             
           ""  = Me.Text15
              
             Case Is = 5.2 ,IS =6.2
              "Me.Text15 = "Borderline

        Case Is < 5.2
         "  Me.Text15 = "Desirable
        Case Is >= 6.2
           " Me.Text15 = "High  risk of heart disease 
    End Select

End Sub

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

test comment.accdb

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

 السلام عليكم

اسعد الله صباحكم 

فى جدول form  هناك  comment  ارغب باظهاره   تعليق عند ظهور رقم معين 

الجدول ب  Triglycerides  عند كتابه الرقم اعلى من 500 

يظهر فى الكومنت  

increase the risk of heart disease please check for ECG 

تلقائى بدون كتابه 

واذا فى اكثر من تعليق اضيف  نفس الشى والا احتاج اعمل خانه ليها ايضا 

شكرا 

test comment.accdb

السلام عليكم عند ملف اكسيل لصوره دم 

وبه اوامر لاظاهر العالى من القيم مع كتابه comment  عاوزه احوله الى اكسس 

ينفع 

أرجو من  الكل   أومن يعرف الإجابة توضيح ذلك إن أمكن .

تفضل أخوانى الكريم ،،، هذا مثال

----------------------------------------------------------------------------

Option Compare Database
Option Explicit

Public txtScrollStatus As String ' Needed for

Private Sub Form_Load()
' شريط متحرك بأعلى النموذج
Me.Caption = "........... office line  ..........."

' شريط متحرك بالنموذج
Me.lblScrollingLabel.Caption = "walid salah  ......................... "

' شريط متحرك بأسفل النموذج
txtScrollStatus = " allah" & Space(25)

End Sub

' Special Note ...........
' Set Form's Timer Interval to 100
Private Sub Form_Timer()

' Produce the Scrolling Text in Caption on the Form
Me.Caption = Mid(Me.Caption, 2, _
 (Len(Me.Caption) - 1)) & Left(Me.Caption, 1)

' Produce the Scrolling Text in Label on the Form
Me.lblScrollingLabel.Caption = Mid(Me.lblScrollingLabel.Caption, 2, _
 (Len(Me.lblScrollingLabel.Caption) - 1)) & Left(Me.lblScrollingLabel.Caption, 1)

' Produce the Scrolling Text in Status Bar of Access
SysCmd acSysCmdSetStatus, txtScrollStatus
txtScrollStatus = Mid(txtScrollStatus, 2, (Len(txtScrollStatus) - 1)) & Left(txtScrollStatus, 1)

End Sub

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

- 

text bar move.zip

السلام عليكم

اخوانى الاعزاء هناك تطبيقات من بعض الزملاء او اود ادخال تعديلات عليها لكم لاتعمل لدى وخصوصا المغلقه منها

والغريب ان معظمها فى الازرار وبعد فتح VB لها يطلع صحيح فما هو المشكله ورايكم الفنى ؟؟؟ وشكرا

متال الزميل المبدع  أبو آدم

رابطه المثال

http://www.officena.net/ib/index.php?showtopic=36147

لايعمل لدى ما المشكله

السلام عليكم

قمت بعمل محاوله لحساب عدد الساعات العمل

ساعه الدخول

ساعه الخروج

المرتب المرتب مقسموم على الشهر (القيمه اليوميه)

المرتب فى الساعه كام

المشكله هنا هو الفرق فى عدد الساعات مش مضبوط مع العلم بان الساعه بنظام 24 ساعه

وشكرا للزملاء

timeDatabase2.rar

جزاكم الله خير الجزاء و نفع بكم

يوجد ملف به كلمة مرور ارجو كتابتها

شكرا اخى الفاضل

بس ماضهل الاختيار انا اسف بس عند اختيار من  مربع السرد لم يظهر الاختصار فى المربع تلقائى

شكرا لمساعتك

السلام عليكم

اريد ربط مربع نصى باخر بحيث يظهر اسم (او الاختصار ) بعد ان اختار من المربع الاول ( مربع السرد ) الاسم العلمى

برجاء شرج كيف كتابه الكود حتى يتسنى  الفهم  و المنفعه العامه

وشكرا

antbiotic.rar