Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic » CODIGO LARGO CON IF

Visual Basic - CODIGO LARGO CON IF

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
Vista:

CODIGO LARGO CON IF

Publicado por OSWALDO SANCHEZ (2 intervenciones) el 24/02/2023 23:49:16
buenas el siguiente codigo debo repetir desde texto159 hasta el texto 180
como hago para aumentar ese valor consecutivamente y no escribir tantas veces el mismo procedimiento

MyCheck = IsNull(Forms!ROSTER!TEXTO159.Value)
If MyCheck = True Then
Exit Sub
Else
rs2.AddNew
rs2!MUNICIPIO = rs3!EQUIPOA
rs2!ATHETA = " & PP & "
rs2!AL = 0
rs2!AB = 0
rs2!BL = 0
rs2!BB = 0
rs2!CL = 0
rs2!CB = 0
rs2!CATEGORIA = Forms!CREAR!CC18
rs2!año = Forms!CREAR!Texto96
rs2!SEXO = rs3!SEXO
rs2!ETAPA = rs3!ETAPA
rs2!ZONA = rs3!ZONA
rs2!JUEGO = rs3!VALORA
rs2.Update
End If
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 145
Ha aumentado 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

CODIGO LARGO CON IF

Publicado por sahid ra gutierrez cruz (191 intervenciones) el 27/02/2023 21:25:16
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
public function (Obj1 as object)
    if not obj1.Value then
        rs2.AddNew
        rs2!MUNICIPIO = rs3!EQUIPOA
        rs2!ATHETA = " & PP & "
        rs2!AL = 0
        rs2!AB = 0
        rs2!BL = 0
        rs2!BB = 0
        rs2!CL = 0
        rs2!CB = 0
        rs2!CATEGORIA = Forms!CREAR!CC18
        rs2!año = Forms!CREAR!Texto96
        rs2!SEXO = rs3!SEXO
        rs2!ETAPA = rs3!ETAPA
        rs2!ZONA = rs3!ZONA
        rs2!JUEGO = rs3!VALORA
        rs2.Update
    end if
end function

espero te pueda servir, disculpa si tuve algun fallo en la captura no estoy en mi maquina,
saludos y felices lineas de programac10n.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar

CODIGO LARGO CON IF

Publicado por OSWALDO SANCHEZ (2 intervenciones) el 03/03/2023 16:15:21
buenas voy a ver si me puedo explicar mejor

en este codigo

Do While Not rs3.EOF

If rs3!EQUIPOA = Forms!ROSTER!Texto430.Value Then

MyCheck = IsNull(Forms!ROSTER!Texto158.Value)
If MyCheck = True Then

Exit Sub
Else
rs2.AddNew
rs2!MUNICIPIO = rs3!EQUIPOA
rs2!ATHETA = Forms!ROSTER!Texto158.Value
rs2!AL = 0
rs2!AB = 0
rs2!BL = 0
rs2!BB = 0
rs2!CL = 0
rs2!CB = 0
rs2!CATEGORIA = Forms!CREAR!CC18
rs2!año = Forms!CREAR!Texto96
rs2!SEXO = rs3!SEXO
rs2!ETAPA = rs3!ETAPA
rs2!ZONA = rs3!ZONA
rs2!JUEGO = rs3!VALORA
rs2.Update
End If


rs3.movetnext
End If


Loop


este codigo funciona perfecto pero si yo quiero hacer lo mismo con los valores

Forms!ROSTER!Texto159
Forms!ROSTER!Texto160
Forms!ROSTER!Texto161
Forms!ROSTER!Texto162
Forms!ROSTER!Texto163

tendria que escribir tantas veces el codigo para cada valor
hay forma de que este codigo se incremente
MyCheck = IsNull(Forms!ROSTER!Texto158.Value)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

CODIGO LARGO CON IF

Publicado por Marco (5 intervenciones) el 13/03/2023 16:33:12
Hola tu planteamiento "sahid ra gutierrez cruz" esta bien, pero te falto colocar un nombre a la función, pero como no retorna ningún valor un procedimiento sub es mas que suficiente, quedaría mas o menos así:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
public sub proceso(Obj1 as object)
    if not obj1.Value then
        rs2.AddNew
        rs2!MUNICIPIO = rs3!EQUIPOA
        rs2!ATHETA = " & PP & "
        rs2!AL = 0
        rs2!AB = 0
        rs2!BL = 0
        rs2!BB = 0
        rs2!CL = 0
        rs2!CB = 0
        rs2!CATEGORIA = Forms!CREAR!CC18
        rs2!año = Forms!CREAR!Texto96
        rs2!SEXO = rs3!SEXO
        rs2!ETAPA = rs3!ETAPA
        rs2!ZONA = rs3!ZONA
        rs2!JUEGO = rs3!VALORA
        rs2.Update
    end if
end sub
Y luego para llamarlo sería:
1
2
3
4
5
6
call proceso(Forms!ROSTER!TEXTO159)
call proceso(Forms!ROSTER!TEXTO160)
call proceso(Forms!ROSTER!TEXTO161)
call proceso(Forms!ROSTER!TEXTO162)
...
call proceso(Forms!ROSTER!TEXTO180)
O sino "OSWALDO SANCHEZ" haces un for recorriendo desde el nro 159 al 180 y te ahorrarías más líneas de código.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar