الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تصحيح الكود التالي

مغلقمُجاب
بدأه كريمو2 في 19 يونيو 2013 · 8 رد · 459 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع 

Private Sub AwardMonth_AfterUpdate()

Select Case AwardMonth.Value

Case "01"

    Me!mont1 and Me!mont2 and Me!mont3 and Me!mont4 and Me!mont5 and Me!mont6 and Me!mont7 and Me!mont8 and Me!mont9 and Me!mont10 and Me!mont11 and Me!mont12= "0.00"

Case "02"

    Me!mont1 and Me!mont2 and Me!mont3 and Me!mont4 and Me!mont5 and Me!mont6 and Me!mont7 and Me!mont8 and Me!mont9 and Me!mont10 and Me!mont11 and Me!mont12= "0.00"

 End Select

End Sub




دالة شرطية في وحدة نمطية عند بعد التحديث


يعني أنه إذا كان مربعات النص AwardMonth يساوي 1


فإن مربعات النص من mont1  الى mont12  تساوي 0.00

      
      

      
الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم

    

  

    
    

      
#2
        
        

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

      
      

      
الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم

    

  

    
    

      
#3
        
        

      
كريمو2 كتب:
 
السلام عليكم
للإسف الشديد إخواني دائما طلباتنا لا تعني لكم شيئا مانعرف ليش
الكل يدخل على الموضوع ويعرف محتواها ويخرج على طول دون وضع بصماته واني على يقين ان الكثيرمن الأساتذة لديهم الحلول وطلباتنا بسيطة
ولكن معليش ربنا كريم 
إن شاء الله يسخر لنا من يحترمنا ويحس بمشاكلنا في برامجنا
 
السلام عليكم و رحمة الله ..
تحياتي لك أخي كريمو2 ..
  1. كل الاحترام لك و لكل الاعضاء إن شاء الله ..
    2. 	
  2. المواضيع الغير واضحة غالبا لا تلقى مساعدة ... و خاصة أنها دون مرفق . و اسماء المتحولات  غير واضحة .
    3. 	
  3. 	
    Private Sub AwardMonth_AfterUpdate()
Select Case AwardMonth.Value

Case "01"
    Me!mont1 = "0.00"
    Me!mont2 = "0.00"
    Me!mont3 = "0.00"
    
Case "02"
    Me!mont1 = "0.00"
    Me!mont2 = "0.00"
    Me!mont3 = "0.00"
    
 End Select
End Sub

      
      

      
لا إله إلا الله ... محمد رسول الله 


لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350 

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

    

  

    
    

      
#4
        
        

      
شكرا استاذنا حسام دائما في الريادة ربي يبارك فيك
لقدجربت الكود وفقا مايلي مع تغيير أسماء mont1....mont3 فلم يفلح معي
أدخل على نموذج المساعدات العامة
Private Sub AwardMonth_AfterUpdate()
Select Case AwardMonth.Value

Case "01"
    Me!nessba = "0.00"
    Me!Mossa3da = "0.00"
    Me!Takrim = "0.00"
    
Case "02"
    Me!nessba = "0.00"
    Me!Mossa3da = "0.00"
    Me!Takrim = "0.00"
    
  Case "03"
    Me!nessba = "0.00"
    Me!Mossa3da = "0.00"
    Me!Takrim = "0.00"
    
Case "04"
    Me!nessba = "0.00"
    Me!Mossa3da = "0.00"
    Me!Takrim = "0.00"
    
Case "05"
    Me!nessba = "0.00"
    Me!Mossa3da = "0.00"
    Me!Takrim = "0.00"
    
Case "06"
    Me!nessba = "0.00"
    Me!Mossa3da = "0.00"
    Me!Takrim = "0.00"
    
Case "07"
    Me!nessba = "0.00"
    Me!Mossa3da = "0.00"
    Me!Takrim = "0.00"
    
Case "08"
    Me!nessba = "0.00"
    Me!Mossa3da = "0.00"
    Me!Takrim = "0.00"
    
Case "09"
    Me!nessba = "0.00"
    Me!Mossa3da = "0.00"
    Me!Takrim = "0.00"
    
Case "10"
    Me!nessba = "0.00"
    Me!Mossa3da = "0.00"
    Me!Takrim = "0.00"
    
Case "11"
    Me!nessba = "0.00"
    Me!Mossa3da = "0.00"
    Me!Takrim = "0.00"
    
Case "12"
    Me!nessba = "0.00"
    Me!Mossa3da = "0.00"
    Me!Takrim = "0.00"
 
 End Select
End Sub
ملاحظة : استاذ حقيقة باش نوصل للفكرة التي طرحنا سابقا في التحويل المبالغ
transf_006.rar

      
      

      
الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم

    

  

    
    

      
#5
        أفضل إجابة
        

      
تفضل اخي الكريم
 
ملفك بعد التعديل
 
قم بتغيير الشهر في التاريخ وبعد التحديث ستكون الثلاث حقول كلها صفر من شهر  01  وحتى شهر  12
 
 
za-transf_006-UP.rar
 
 
بالتوفيق

      
      

      
post-15367-087183200%201340344597.gif

بعض من المواضيــع الممـيزه

post-15367-027053900%201340345097.gif

    

  

    
    

      
#6
        
        

      
بارك الله بك أخت زهرة ... بارك الله بك أخ كريمو2 .

      
      

      
لا إله إلا الله ... محمد رسول الله 


لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350 

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

    

  

    
    

      
#7
        
        

      
وهو كذالك

بارك الله فيكما استاذتنا الكرام  "حسام - زهرة"


      
تم تعديل هذه المشاركة بواسطة كريمو2 في 21 يونيو 2013 في 21:46

      

      
الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم

    

  

    
    

      
#8
        
        

      
والأن لو تكرمو كيف بمجرد تغيير الشهر ينفتح سجل جديد في نفس الفورم لنفس العامل مع مراعات الحقول الثلاثة تساوي صفر 

      
      

      
الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم

    

  

    
    

      
#9
        
        

      
اخي الفاضل
 
لا يمكن اضافة سجل جديد من نموذج المساعدات العامة لأنه سينشأ لديك تكرار في السجلات لرقم الموظف والذي هو اساسا مفهرس وحقل فريد ولن يقبل برنامج الأكسيس بذلك والسبب انه مرتبط بعلاقة واحد الى متعدد
 
ولكن يمكنك اضافة سجلات جديده عندما يكون لديك نموذج اساسي وآخر فرعي كما في النموذج FrmEmployee3 الذي تستطيع اضافة سجلات في النموذج الفرعي منه 
 
 
بالتوفيق

      
      

      
post-15367-087183200%201340344597.gif

بعض من المواضيــع الممـيزه

post-15367-027053900%201340345097.gif

    

  

    
    
 هذا الموضوع مغلق.

    
 مواضيع مشابهة