اذهب الي المحتوي
أوفيسنا

KhalerAnwer88

عضو جديد 01
  • Posts

    37
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    1

مشاركات المكتوبه بواسطه KhalerAnwer88

  1. تسلم, توصلت للحل والحمد لله

    If Len([Acc]) = 1 Then
    Me.AccCodeSt = [Acc] & "0000000"
    Else
    If Len([Acc]) = 2 Then
    Me.AccCodeSt = [Acc] & "000000"
    Else
    If Len([Acc]) = 3 Then
    Me.AccCodeSt = [Acc] & "00000"
    Else
    If Len([Acc]) = 4 Then
    Me.AccCodeSt = [Acc] & "0000"
    Else
    If Len([Acc]) = 5 Then
    Me.AccCodeSt = [Acc] & "000"
    Else
    If Len([Acc]) = 6 Then
    Me.AccCodeSt = [Acc] & "00"
    Else
    If Len([Acc]) = 7 Then
    Me.AccCodeSt = [Acc] & "0"
    End If
    End If
    End If
    End If
    End If
    End If
    End If

×
×
  • اضف...

Important Information