ادخال حقلين رقم و ظهور نتيجة معينة

[رياضية]

السلام عليكم

ارغب في عمل نموذج عند ادخال قيمتين تظهر نتيجة معينة في حقل جديد

مثلا :

عند ادخال رقم اكبر من 2000 و اصغر من 5000 ظهور رقم 2

واذا اكبر من 5000  و اصغر من 10000 ظهور رقم 3

 

 

[jjafferr]

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

 

نفترض ان حقل الادخال هو A وحقل النتيجة هو B ،

فيصير الكود:

عند ادخال رقم اكبر من 2000 و اصغر من 5000 ظهور رقم '2
واذا اكبر من 5000  و اصغر من 10000 ظهور رقم '3

if me.A>2000 and me.A <5000 then
  me.B=2                            
elseif me.A>5000 and me.A <10000 then                            
  me.B=3                            
endif                                

 

جعفر

[رياضية]

شكرا لردك استاذ جعفر

حاولت في المرفق لم تنجح.. قد اكون اخطأت

 

 

11.rar

[jjafferr]

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

 

الكود سيصبح

Private Sub a_AfterUpdate()

    Call Compare_a_b
End Sub

Private Sub b_AfterUpdate()

    Call Compare_a_b
End Sub

Private Sub Compare_a_b()


    If Len(Me.a & "") <> 0 And Len(Me.b & "") <> 0 Then
    
        
        If Me.a > 2000 And Me.b < 5000 Then
            Me.c = 2
            
        ElseIf Me.a > 5000 And Me.b < 10000 Then
            Me.c = 3
            
        Else
            Me.c = ""
            
        End If
    
    
    Else
        Me.c = ""
        
    End If
    
    
End Sub

 

جعفر

867.11.mdb.zip

[رياضية]

يعطيك العافية ....الف شكر