إضافة أصفار

[KhalerAnwer88]

السلام عليكم
أزاى أضيف أصفار جنب الرقم بشكل تلقائي بحيث يكون الرقم 10000000 و 11000000 و 11100000

[essam rabea]

فى تنسيق الحقل اكتب

@"000000000" 

حسب عدد الأصفار التى تريدهها

 

[KhalerAnwer88]

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

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