Que código utilizo para ruc y que los dos primeros dígitos me reconozca siendo 10 persona natural y 20 persona jurídica

Quiero que me reconozca los dos primeros dígitos que son 10 y 20

Respuesta
1

No dices si el RUC ya está escrito o es cuando lo vayas a escribir

Por si te puede dar una idea

Escribiendo. Si empiezo poniendo un 1

En el momento que escribo un 0

Por el contrario, si hubiera escrito un 20

En este caso, le digo

Private Sub Texto7_Change()
Dim a
a = Texto7.Text
If a = 10 Then
Texto9 = "Persona Física"
ElseIf a = 20 Then
Texto9 = "Persona Jurídica"
End If
End Sub

Por el contrario, si el RUC ya estuviera escrito tendrías que usar 

If left([ruc],2)=10 then

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas