Visual Basic - error en operación después de consulta

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 29
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

error en operación después de consulta

Publicado por luis (17 intervenciones) el 13/04/2020 06:27:52
hola amigos web del programador
nuevamente por acá para solicitar una ayuda con algo que parece increíble y no encuentro explicación.

con el evento change llamo los registros y lleno las cajas.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
Private Sub factnumero_Change()
Dim X
On Error GoTo X
'tu codigo normal
With Rsordenes
    .Requery
    .Find "factcorrespondiente='" & Trim(factnumero.Caption) & "'"
    cedula.Caption = !cedula
    numorden.Caption = !numero_orden
    nombres.Caption = !nombres
    direccion.Caption = !direccion
    telefono.Caption = !telefono
    sede.Caption = !sede
    origen.Caption = !origen
    Comboestado.Text = !estado
    fechaven.Caption = !fecha
    Label4.Caption = !numerolentes
    lentes.Caption = !lentes
    monturas.Caption = !monturas
    Label19 = !numeromonturas
    Label26.Caption = !numeroservicios
    odesf.Caption = !ODesfera
    odcil.Caption = !ODcilindro
    odeje.Caption = !odeje
    odadd.Caption = !odadd
    oiesf.Caption = !OIesfera
    oieje.Caption = !OIcilindro
    oieje.Caption = !oieje
    oiadd.Caption = !oiadd
    totalfact.Caption = !valortotal
    abonos.Caption = !abono
    LBSALDOS.Caption = !saldo
 
  End With
Exit Sub
X:
MsgBox " Registro No tiene Orden-Registro Inexistente o NO Seleccionado             Intente Nuevamente "
 
 
end Sub
 
 
Private Sub Form_Load()
elaboracion
ventafactura
productos
bebes
End Sub
 
 
Private Sub lentes_Change()
With Rsproductos
    .Requery
    .Find "nombreproducto='" & Trim(lentes.Caption) & "'"
    Text1.Text = !precio
    precio1.Caption = Val(Text1.Text) * Val(Label4.Caption)
    precio1 = Format(precio1, "##,##0.00")
 
 
 
  End With
End Sub
 
Private Sub monturas_Change()
With Rsproductos
    .Requery
    .Find "nombreproducto='" & Trim(monturas.Caption) & "'"
    Text2.Text = !precio
    precio2.Caption = Val(Label19.Caption) * Val(Text2.Text)
    precio2 = Format(precio2, "##,##0.00")
 End With
End Sub

amigos no me explico la primera operación la realiza bien osea multiplicar la cantidad por el valor unidad
pero el segundo producto o segunda operación de multiplicar la cantidad por el valor unidad ya no la realiza
he verificado bien los nombres es el mismo tipo de código y no encuentro razón lógica para que no realice la segunda operación.
acá unas capturas imagen

captura2
capt-1
capt-2

les agradezco su colaboracion para resolver este enigma para mi.
bendiciones
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
Imágen de perfil de Andres Leonardo
Val: 3.928
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

error en operación después de consulta

Publicado por Andres Leonardo (1739 intervenciones) el 13/04/2020 15:18:00
debajo de esta linea coloca esto

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub monturas_Change()
With Rsproductos
    .Requery
    .Find "nombreproducto='" & Trim(monturas.Caption) & "'"
    Text2.Text = !precio
       msgbox  "precio es " & text2.text & " y el valor del Label ES " & label4.caption
    precio2.Caption = Val(Label19.Caption) * Val(Text2.Text)
    precio2 = Format(precio2, "##,##0.00")
 End With
End Sub
 
 
mira si te devuelven valores o uno de ello es cero.
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
Val: 29
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

error en operación después de consulta

Publicado por luis (17 intervenciones) el 13/04/2020 17:25:28
buenas mi estimado amigo nada sigue el mismo problema no multiplica los dos valores.
muestra el valor de la cantidad de lentes o sea el primer label de cantidad en vez del que se le pide el de las monturas.
después si los muestra en la caja pero no hace la operación.

es realmente inaudito no entiendo porque no lo hace, si he verificado que los nombres este bien escritos y que correspondan al los labels o cajas.
acá están las imágenes cuando agrego tu código.
primero sale el mensaje con los datos capturados.

resultado11

después si muestra en el label, el valor pero no hace nada osea la multiplicación.
pero inaudito no se porque no hace la multiplicación de los valores.


resultado2


una de las cosas que intente fue pasar el valor del label19 a una caja de texto y coloque a multiplicar esta caja de texto con el valor del text2.text y me arrojo 0 , por eso al ver que no funciono lo deje como estaba, por eso pensé que el problema radicaba es en el label19, este visual basic es caprichoso a veces, sigo en las mismas.
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
Imágen de perfil de Andres Leonardo
Val: 3.928
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

error en operación después de consulta

Publicado por Andres Leonardo (1739 intervenciones) el 13/04/2020 21:16:06
pero lo que te dice claramente es que el label no tiene correcto el valor

si deseas podemos revisarlo avisame por ws o correo


SAludos
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
Imágen de perfil de Andres Leonardo
Val: 3.928
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

error en operación después de consulta

Publicado por Andres Leonardo (1739 intervenciones) el 13/04/2020 23:45:51
Disculpas
es lable 19


1
2
3
4
5
6
7
8
9
10
Private Sub monturas_Change()
With Rsproductos
    .Requery
    .Find "nombreproducto='" & Trim(monturas.Caption) & "'"
    Text2.Text = !precio
       msgbox  "precio es " & text2.text & " y el valor del Label ES " & label19.caption
    precio2.Caption = Val(Label19.Caption) * Val(Text2.Text)
    precio2 = Format(precio2, "##,##0.00")
 End With
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil
Val: 29
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

error en operación después de consulta

Publicado por luis (17 intervenciones) el 14/04/2020 00:37:39
gracias amigo.
si efectivamente ahora no arroja ningun valor del label19 en el mensaje.
solo después de darle en aceptar del mensaje muestra el valor en el label19 y las demas labels y cajas de texto, pero como si no existiera valor para ese label19 ,pues no hace nada es como si le diera valor de 0.

1

2

hice lo mismo en otro formulario que carga los mismos datos desde otra tabla y funciona bien hace las multiplicaciones.

3

el problema para mi es la consulta del evento change del recorset ordenes en el campo numeromontura, lo que esta generando el problema, muestra el dato pero como si no le diera valor.
creo que voy a grabar los datos de las multiplicaciones en el formulario anterior y los guarde en la tabla ordenes y cuando llegue a este formulario sea solamente a llenar los datos y no hacer operaciones ahí, espero me resulte bien.

una pregunta es posible pasar los datos de una consulta arrojados en un datagrid, a cajas de texto, o mas simple imprimirlo en un datareport utilizando un ado en la consulta.
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
Imágen de perfil de Andres Leonardo
Val: 3.928
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

error en operación después de consulta

Publicado por Andres Leonardo (1739 intervenciones) el 14/04/2020 02:08:45
pues mejor los pasas....


formulario2.textbox16.text = formulario1.textbox12.text
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