أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil تعديل الكود ليتم حفظ الصوة باسم الخلية مع تاريخ اليوم  اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





رسالة خطأ عند تشغيل كود

السلام عليكم اعمل على برنامج قمت بتصميممه وعند اظهار اليوزر فورم الرئيس للبرنامج (احيانا) تظهر هذا الرسالة واحيانا لا ..



30-06-2019 11:17 مساء
أباالحسن
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 293
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
يتابعهم : 4
يتابعونه : 12
قوة السمعة : 576
الاعجاب : 30
 offline 

السلام عليكم 

اعمل على برنامج قمت بتصميممه
وعند اظهار اليوزر فورم الرئيس للبرنامج
(احيانا) تظهر هذا الرسالة  واحيانا لا تظهر
NDQ4Nzc4MQ8888err

 

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


وعندما تظهر يتوقف البرنامج على العمل ويتم الخروج 
وحتى عند الضغط على Debug لا يظهر مكان الخطأ فى الكود

وهذا هو الكود الطويل الذي يتم تشغيله عندما يكون اليوزر فورم نشط ، واعتقد انه سبب ظهور الرسالة

الرجاء اريد حل لهذه المشكلة وشكرا لحضراتكم



Private Sub UserForm_activate()

Application.ScreenUpdating = 0
Application.Calculation = xlCalculationManual
 
Controls1.MultiPage1.Value = 4

''---------------------------------------------------------------------------------------------
'تسمية بنود الاستحقاقات (10) و الاستقطاعات (25) ـ
Dim x1 As Long, Y1 As Long
           Y1 = 14
        For x1 = 1 To 35
          Controls1.Controls("TextBox_" & x1).Value = Sheets("Teachers Data").Cells(4, Y1).Value
         Y1 = Y1 + 1
        Next x1

''-----------------------------------------------------------------------------------------------
   'شرائح كسب العمل - الحد الاقصى للاجور المتغيرة والاجور الاساسية
   'التحكم فى اظهار كسب العمل / المبلغ المستحق عنه المعاشات في مكافأة الامتحانات
    Controls1.TextBox_36.Value = Sheets("X").Range("HK7").Value
    Controls1.TextBox_37.Value = Sheets("X").Range("HK8").Value
    Controls1.TextBox_38.Value = Sheets("X").Range("HE19").Value

    Controls1.TextBox_39.Value = Sheets("X").Range("HM8").Value
    Controls1.TextBox_40.Value = Format(Sheets("X").Range("HM9").Value, "standard")
    Controls1.TextBox_41.Value = Format(Sheets("X").Range("HM10").Value, "standard")

    Controls1.TextBox_42.Value = Sheets("X").Range("HO8").Value
    Controls1.TextBox_43.Value = Format(Sheets("X").Range("HO9").Value, "standard")
    Controls1.TextBox_44.Value = Format(Sheets("X").Range("HO10").Value, "standard")
    
            Controls1.TextBox_Work_Gain_Teacher.Value = Sheets("X").[HP36].Value
            Controls1.TextBox_Work_Gain_Admin.Value = Sheets("X").[HP37].Value
                            
    Controls1.TextBox_45.Value = Sheets("X").Range("HB7").Value
    Controls1.TextBox_46.Value = Sheets("X").Range("HB35").Value

''---------------------------------------------------------------------------------------------------
     ' قيم تذكر البدل النقدى (في 4 اعمدة و 8 صفوف)
      Dim X2 As Long, Y2 As Long
       Y2 = 198: For X2 = 47 To 54
          Controls1.Controls("TextBox_" & X2).Value = Sheets("X").Cells(Y2, 213).Value
       Y2 = Y2 + 1: Next X2
      
      Dim x3 As Long, Y3 As Long
       Y3 = 198: For x3 = 55 To 62
           Controls1.Controls("TextBox_" & x3).Value = Sheets("X").Cells(Y3, 214).Value
         Y3 = Y3 + 1: Next x3
      
       Dim x4 As Long, Y4 As Long
        Y4 = 198: For x4 = 63 To 70
           Controls1.Controls("TextBox_" & x4).Value = Sheets("X").Cells(Y4, 215).Value
         Y4 = Y4 + 1: Next x4
        
       Dim x5 As Long, Y5 As Long
        Y5 = 198: For x5 = 71 To 78
           Controls1.Controls("TextBox_" & x5).Value = Sheets("X").Cells(Y5, 216).Value
         Y5 = Y5 + 1: Next x5

If Sheets("X").Range("HL24").Value = 1 Then Controls1.OptionButton_1 = True
If Sheets("X").Range("HL24").Value = 0.65 Then Controls1.OptionButton_2 = True
If Sheets("X").Range("HL24").Value = 0.5 Then Controls1.OptionButton_3 = True

''-----------------------------------------------------------------------------------------------
'قيم اشتركات صندوق الزمالة - صندوق الرعاية الاجتماعية / نقابة المعلمين - نادي المعلمين - نادى بندر قنا
'النقابات المختلفة (خدمات - اجتماعية - زراعية - تطبيقية - رياضية - تجارية)و قيمة حصيلة الجزاءات
    Controls1.TextBox_79.Value = Format(Sheets("X").Range("HE13").Value, "standard")
    Controls1.TextBox_80.Value = Format(Sheets("X").Range("HE24").Value, "standard")
    
           Dim x6 As Long, Y6 As Long
        Y6 = 21: For x6 = 81 To 83
           Controls1.Controls("TextBox_" & x6).Value = Sheets("X").Cells(Y6, 213).Value
        Y6 = Y6 + 1: Next x6
        
                   Dim x7 As Long, Y7 As Long
        Y7 = 25: For x7 = 84 To 90
           Controls1.Controls("TextBox_" & x7).Value = Sheets("X").Cells(Y7, 213).Value
        Y7 = Y7 + 1: Next x7
''----------------------------------------------------------------------------------------------
'تحديد الشهر - السنة
        Controls1.ComboBox1.Value = Sheets("Main Data").Range("G14").Value
        Controls1.ComboBox2.Value = Sheets("Main Data").Range("I14").Value

''----------------------------------------------------------------------------------------------
'تحديد طريقة حساب الدمغة
        Controls1.ComboBox3.Value = Sheets("X").Range("HL37").Value
        
        Controls1.TextBox_Stamp_Teacher.Value = Sheets("X").[HK36].Value
        Controls1.TextBox_Stamp_Admin.Value = Sheets("X").[HK37].Value

''----------------------------------------------------------------------------------------------
'تحديد النـسـب المئوية لحـصـص الحكومة والموظـف المختلفة
' للاجور الأساسية والمتغيرة -  فى الاستحقاقات والاستقطاعات
                   Dim x8 As Long, y8 As Long
        y8 = 7: For x8 = 91 To 94
           Controls1.Controls("TextBox_" & x8).Value = Format(Sheets("X").Cells(y8, 211).Value, "standard")
        y8 = y8 + 1: Next x8

                   Dim x9 As Long, y9 As Long
        y9 = 6: For x9 = 95 To 101
           Controls1.Controls("TextBox_" & x9).Value = Format(Sheets("X").Cells(y9, 214).Value, "standard")
        y9 = y9 + 1: Next x9
        
                   Dim x10 As Long, y10 As Long
        y10 = 35: For x10 = 102 To 104
           Controls1.Controls("TextBox_" & x10).Value = Format(Sheets("X").Cells(y10, 211).Value, "standard")
        y10 = y10 + 1: Next x10

                   Dim x11 As Long, y11 As Long
        y11 = 14: For x11 = 105 To 109
           Controls1.Controls("TextBox_" & x11).Value = Format(Sheets("X").Cells(y11, 214).Value, "standard")
        y11 = y11 + 1: Next x11

If Sheets("X").Range("HL29").Value = 1 Then Controls1.CheckBox1 = True Else Controls1.CheckBox1 = False
If Sheets("X").Range("HL31").Value = 1 Then Controls1.CheckBox2 = True Else Controls1.CheckBox2 = False
If Sheets("X").Range("HO29").Value = 1 Then Controls1.CheckBox3 = True Else Controls1.CheckBox3 = False
If Sheets("X").Range("HO31").Value = 1 Then Controls1.CheckBox4 = True Else Controls1.CheckBox4 = False

If Sheets("X").Range("HL30").Value = 1 Then Controls1.CheckBox5 = True Else Controls1.CheckBox5 = False
If Sheets("X").Range("HL32").Value = 1 Then Controls1.CheckBox6 = True Else Controls1.CheckBox6 = False
If Sheets("X").Range("HO30").Value = 1 Then Controls1.CheckBox7 = True Else Controls1.CheckBox7 = False
If Sheets("X").Range("HO32").Value = 1 Then Controls1.CheckBox8 = True Else Controls1.CheckBox8 = False

''--------------------------------------------------------------------------------------------------
'تحديد قيمة الحوافز والبدلات (حافز أداء/بدل اعتماد/ اعباء وظيفية/ حافز25%/ بدل معلم 50% / حافز إثابة 50%-175%)ـ
                 Dim x12 As Long, y12 As Long
        y12 = 223: For x12 = 110 To 116
           Controls1.Controls("TextBox_" & x12).Value = Format(Sheets("X").Cells(y12, 213).Value, "standard")
        y12 = y12 + 1: Next x12
        
                  Dim x13 As Long, y13 As Long
        y13 = 209: For x13 = 117 To 123
           Controls1.Controls("TextBox_" & x13).Value = Format(Sheets("X").Cells(y13, 213).Value, "standard")
        y13 = y13 + 1: Next x13
        
                  Dim x14 As Long, y14 As Long
        y14 = 223: For x14 = 124 To 130
           Controls1.Controls("TextBox_" & x14).Value = Sheets("X").Cells(y14, 216).Value
        y14 = y14 + 1: Next x14
       
    Controls1.TextBox_131.Value = Format(Sheets("X").Range("HB20").Value, "standard")
    Controls1.TextBox_132.Value = Format(Sheets("X").Range("HB22").Value, "standard")
    
    If Sheets("X").Range("HC21").Value = "Old" Then Controls1.OptionButton_4 = True
    If Sheets("X").Range("HC21").Value = "New" Then Controls1.OptionButton_5 = True
    
    If Sheets("X").Range("HC23").Value = "Old" Then Controls1.OptionButton_6 = True
    If Sheets("X").Range("HC23").Value = "New" Then Controls1.OptionButton_7 = True
    
    If Sheets("X").Range("HC20").Value = "Old" Then Controls1.OptionButton_8 = True
    If Sheets("X").Range("HC20").Value = "New" Then Controls1.OptionButton_9 = True
    
    If Sheets("X").Range("HC22").Value = "Old" Then Controls1.OptionButton_10 = True
    If Sheets("X").Range("HC22").Value = "New" Then Controls1.OptionButton_11 = True
    
    If Sheets("X").Range("HC25").Value = "Old" Then Controls1.OptionButton_12 = True
    If Sheets("X").Range("HC25").Value = "New" Then Controls1.OptionButton_13 = True
''--------------------------------------------------------------------------------------------------
'تحديد قيمة بدل الإقامة / بدل تفرغ زراعى - تجاري / بدل عدوى زراعي
' قيمة العلاوة الاجتماعية / منحة عيد العمال / حافز تطوير تكنولوجي/ مناطق نائية
                  Dim x15 As Long, y15 As Long
        y15 = 197: For x15 = 133 To 139
           Controls1.Controls("TextBox_" & x15).Value = Sheets("X").Cells(y15, 219).Value
        y15 = y15 + 1: Next x15
        
                  Dim x16 As Long, y16 As Long
        y16 = 197: For x16 = 140 To 146
           Controls1.Controls("TextBox_" & x16).Value = Sheets("X").Cells(y16, 220).Value
        y16 = y16 + 1: Next x16
        
                   Dim x17 As Long, y17 As Long
        y17 = 210: For x17 = 147 To 153
           Controls1.Controls("TextBox_" & x17).Value = Sheets("X").Cells(y17, 216).Value
        y17 = y17 + 1: Next x17
        
                          Dim x18 As Long, y18 As Long
        y18 = 210: For x18 = 154 To 160
           Controls1.Controls("TextBox_" & x18).Value = Sheets("X").Cells(y18, 217).Value
        y18 = y18 + 1: Next x18
        
                          Dim x19 As Long, y19 As Long
        y19 = 223: For x19 = 161 To 167
           Controls1.Controls("TextBox_" & x19).Value = Sheets("X").Cells(y19, 219).Value
        y19 = y19 + 1: Next x19

        Controls1.TextBox_168.Value = Sheets("X").Range("HB19").Value
        Controls1.TextBox_169.Value = Sheets("X").Range("HB38").Value
        Controls1.TextBox_170.Value = Sheets("X").Range("HB209").Value
        Controls1.TextBox_171.Value = Sheets("X").Range("HB197").Value
        
        Controls1.TextBox_172.Value = Sheets("X").Range("HB30").Value
        Controls1.TextBox_173.Value = Sheets("X").Range("HE32").Value
        Controls1.TextBox_174.Value = Sheets("X").Range("HA30").Value
        Controls1.TextBox_175.Value = Sheets("X").Range("HD32").Value
        
    If Sheets("X").Range("HC30").Value = "Old" Then Controls1.OptionButton_14 = True
    If Sheets("X").Range("HC30").Value = "New" Then Controls1.OptionButton_15 = True
''---------------------------------------------------------------------------------------------
'التحكم فى اظهار كسب العمل / المبلغ المستحق عنه المعاشات في مكافأة الامتحانات
'عدد أيام مكافأة الامتحانات / نسبة نقابة المعلمين
    Controls1.TextBox_176 = Sheets("X").Range("HK14").Value
    Controls1.TextBox_177 = Format(Sheets("X").Range("HM14").Value, "standard")
    Controls1.TextBox_178 = Sheets("X").Range("HO14").Value
    Controls1.TextBox_179 = Format(Sheets("X").Range("HQ14").Value, "standard")
    
    If Sheets("X").Range("HK16").Value = 1 Then Controls1.OptionButton_16 = True
    If Sheets("X").Range("HK16").Value = 0 Then Controls1.OptionButton_17 = True

    If Sheets("X").Range("HM16").Value = 1 Then Controls1.OptionButton_18 = True
    If Sheets("X").Range("HM16").Value = 0 Then Controls1.OptionButton_19 = True

    If Sheets("X").Range("HO16").Value = 1 Then Controls1.OptionButton_20 = True
    If Sheets("X").Range("HO16").Value = 0 Then Controls1.OptionButton_21 = True

''*************************************************************************************
'ايقاف فاعلية الازرار فى حال كانت النسخة مقيدة ، وجعلها متاحة إذا كانت النسخة مفتوحة
Dim xx1 As Long, xx2 As Long, xx3 As Long
If Sheets("X").[HJ5] = "RESTRICTED" Then
            For xx1 = 36 To 41
               Controls1.Controls("TextBox_" & xx1).Enabled = False
            Next xx1
              
            For xx2 = 45 To 179
                Controls1.Controls("TextBox_" & xx2).Enabled = False
            Next xx2
            
            For xx3 = 7 To 17
                Controls1.Controls("Frame" & xx3).Enabled = False
            Next xx3
            
ElseIf Sheets("X").[HJ5] = "UNRESTRICTED" Then
            For xx1 = 36 To 41
               Controls1.Controls("TextBox_" & xx1).Enabled = True
            Next xx1
              
            For xx2 = 45 To 179
                Controls1.Controls("TextBox_" & xx2).Enabled = True
            Next xx2
            
            For xx3 = 7 To 17
                Controls1.Controls("Frame" & xx3).Enabled = True
            Next xx3
End If
'------------------------------------------------------------------------------------------------
Application.ScreenUpdating = 1
Application.Calculation = xlCalculationAutomatic

End Sub



 

 
 







01-07-2019 05:22 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7895
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 421
قوة السمعة : 22861
الاعجاب : 2122
 offline 
look/images/icons/i1.gif رسالة خطأ عند تشغيل كود
الأفضل إرفاق ملف لمحاولة الإطلاع عليه من قبل الأعضاء

أثارت هذه المشاركة إعجاب: ali mohamed ali،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تشغيل الساعه واظهار التاريخ على الفورم بكود سهل وبسيط الصقر
16 1988 ahmedeita
طلب مساعدة في تشغيل كود في vba sami872
1 381 sami872
تشغيل كود Kill file عند فتح ملف وعند الضغط على زر معين أباالحسن
2 890 أباالحسن
كود تسريع تشغيل ازرار فورم عند ضغط عليها malik
1 624 malik

الكلمات الدلالية
تشغيل ، رسالة ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 11:17 مساء

أعلن هنا
أعلن هنا
أعلن هنا