تعديل على برنامج اسنان

[jo_2010]

الخبراء الافاضل 

منذ فترة لم اشارك باى موضوعات وحشتونى جدا واتمنى تكونوا بخير وصحة وسعادة

برنامج اسنان ساعدنى فية كثيرا الخبير الفاضل استاذى الذى ادين لة بالكثير /الاستاذ  / جعفر

ولكن عند العمل على البرنامج صادفنى مشكل كبير بالنسبة لى بسيط بالنسبة لخبراتكم وهو كما موضح بالصور عند اختيار اى ضرس والضغط علية مرتين يتم تحديد المطلوب عملة وكل شى تمام

المشكلة عند اختيار مريض جديد اجد ماقمت بتحديدة محدد رغم انى لم اقوم بعمل اى شئ اريد ان تعود الصورة بدون اى تحديد لكم الشكر  اسف على الاطالة

YOUSSEF_2020 OK.accdb

[jjafferr]

وعليكم السلام 🙂

 

هلا والله 🙂

 

اضف السطرين اللي عليهم سهم الى كودك :

 

جعفر

[jo_2010]

الخبير الغالي جعفر

كلمة شكرا اقل من أن تقال لك الف شكر علي سرعة الإجابة كتر خيرك لكن يبقي جزء صغير وهو فك الأطفال عند الضغط علي مفتاح show pedo

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

[jjafferr]

تفضل يا سيدي 🙂

 

بدل ان اعيد كتابة الكود مرة اخرى للجزء الآخر ، عملت وحدة خاصة لهذه العملية في نفس النموذج ، بإسم Reset_Fields :

Private Sub Reset_Fields()
On Error GoTo err_Reset_Fields

    For i = 11 To 48
        Me("A_" & i) = 0
        Me("A_" & i).Visible = True
        Me("A_" & i).BorderStyle = 1 'solid
        Me("A_" & i).BorderWidth = 2
        Me("A_" & i).BorderColor = RGB(255, 255, 255)
    Next i
    
    For i = 51 To 85
        Me("P_" & i) = 0
        Me("P_" & i).Visible = True
        Me("P_" & i).BorderStyle = 1 'solid
        Me("P_" & i).BorderWidth = 2
        Me("P_" & i).BorderColor = RGB(255, 255, 255)
    Next i
    
Exit_Reset_Fields:

    Exit Sub
err_Reset_Fields:

    If Err.Number = 2465 Then
        'the numbers are 11 to 28, then 38 to 48
        'so instead of doing another loop, we'll ignor the error
        Resume Next
    
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    Resume Exit_Reset_Fields
    
End Sub

.

ثم ناديتها مرتين :

عند الحالي ، لما ننتقل من سجل الى آخر :

.

وعند النقر على زر "Show Pedo"

 

جعفر

1303.YOUSSEF_2020 OK.accdb.zip

[jo_2010]

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

تبقى سؤال واحد فى الصورة التالية

[jo_2010]

كما ارجو ظهور الفك الذى تم العمل عليه سواء كبار او اطفال عند التنقل بين السجلات

اذا كان pedo

يظهر الفك الخاص بالاطفال تلقائيا دون الحاجة الى اظهارة عن طريق الضغط على   show pedo

[jjafferr]

10 ساعات مضت, jo_2010 said:

يظهر الفك الخاص بالاطفال تلقائيا دون الحاجة الى اظهارة عن طريق الضغط على   show pedo

الآن تم اخفاء زر Show Pedo ، والصورة تظهر حسب اختيارك من الحقل Kind ،

 

10 ساعات مضت, jo_2010 said:

تبقى سؤال واحد : تلوين الضرس

لا يوجد مكان خاص للكيار وآخر للاطفال ، هو مكان واحد للإثنين معا ،

1. التنسيق الشرطي : لعمل لون جديد (او لتغيير لون سابق) ، يجب هذا اللون ان يتطابق مع لون الضرس في الصورة :

 - لا تختار اللون مباشرة ، وانما اذهب الى more colors 

.

الآن اختار الالوان (تستطيع ان تختارها من التبويب Standard ) ، ولكن يجب ان تأتي الى هذا التبويب لمعرفة ارقام الالوان ، هنا الارقام R=احمر=0 ،  G=اخضر=51 ، B=ازرق=102 

.

 

2. اما في الكود ، فنعمل نسخ من المربع الاحمر (جميع الاسطر الاربعة) الى الشرط الجديد (الحشو) ، مع تغيير اللون RGB ليطابق اللون الذي تم اختياره اعلاه :

.

جعفر

1303.1.YOUSSEF_2020 OK.accdb.zip

[jo_2010]

الخبير الفاضل والمعلم الجليل / جعفر اشكرك على ماقمت بة من تعديل على برنامج الاسنان فاق ماكنت احلم بة خالص الشكر على علم الذى لايبخل بة على احد شكر جزيلا