• Viernes 8 de Noviembre de 2024, 06:47

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - Val_d_Homero

Páginas: [1]
1
Visual Basic para principiantes / Re: Un error que me sorprende
« en: Sábado 4 de Julio de 2009, 20:13 »
Sí, señor, tienes toda la razón. Vi lo de "Explicit" y no le presté atención. Quitaré esa línea y espero funcione. Muchas gracias.

2
Visual Basic para principiantes / Un error que me sorprende
« en: Sábado 4 de Julio de 2009, 18:29 »
Numerosísimas veces he puesto en los programas el subprograma siguiente para pedir confirmación antes de una supresión o modificación y nunca me ha dado problema, pero ahora me dice:
Error de compilación. Variable no definida
La variable a que se refiere es  "confirma".
Aun nunca lo he hecho y no me ha dado problemas he puesto al principio
 Dim confirma as String  (repito que nunca me ha hecho falta esto) y sigue dando el mismo error. ¿Cómo solucionarlo? Gracias.
El código es:
Private Sub Command3_Click() 'Suprimir
confirma = MsgBox("¿Quiere suprimir este registro?", vbYesNo, "Confirmación")
If confirma = vbYes Then
    Adodc1.Recordset.Delete
      MsgBox "Registro suprimido.", , "Borrado"
    Else
       MsgBox "Supresión cancelada.", , "No borrado"
End If
End Sub

3
Visual Basic para principiantes / Re: Sumar cantidades de cajas de texto
« en: Jueves 2 de Julio de 2009, 17:19 »
Resuelto.
extracont = CCur(text1.text) + CCur(text2.text)   y presenta el resultado con dos decimales.

4
Visual Basic para principiantes / Sumar cantidades de cajas de texto
« en: Jueves 2 de Julio de 2009, 07:16 »
En un programa que tengo hecho quiero hacer una comparación entre el valor de Tesorería que da el programa y el inventario extracontable (Caja + Bancos). Para eso he creado dos cajas de texto: en una entro el saldo del Banco y en la otra, el saldo de Caja. Pretendo sumar estos dos importes y compararlos con la cantidad que presenta el programa. Pero al sumar las dos cantidades ingresadas a mano en las dos cajas de texto no tiene en cuenta los decimales, con lo que da siempre descuadres, claro.
Sumo las cajas así:
extracont = Val(Text1.Text) + Val(Text 2.Text)
He dado a las cajas formato Número, Currency o texto. Es igual, los decimales no los tiene en cuenta. A lo mejor debí poner extracont = Format(......) pero no he encontrado la expresión para Format () que me pudiera solucionar el problema.
¿Me pueden ayudar? Mil gracias

5
Visual Basic 6.0 e inferiores / Re: No funciona la actualización de Bootstrap
« en: Lunes 15 de Diciembre de 2008, 13:24 »
Muchas gracias.

6
Visual Basic 6.0 e inferiores / No funciona la actualización de Bootstrap
« en: Lunes 15 de Diciembre de 2008, 11:21 »
He hecho una aplicación en VB6.0 que me funciona perfectamente y al diostribuirla al usuario final le he copiado "Proyecto1 [el programa], setup.exe y setup.lst". No he copiado la carpeta Support que también aparece en la carpeta "Paquete". Al ejecutar setup.exe le da el error: No funciona la actualización de BootStrap". ¿Qué puede ser y cómo solucionarlo? Gracias.

7
Visual Basic para principiantes / La operación en varias etapas ha producido un error...
« en: Martes 18 de Noviembre de 2008, 17:44 »
Bs tds:
Estoy haciendo un programa que en una de sus partes toma: datos entrados en los Text.Boxes y combinación de estos datos con otras tablas (con otros ADODCx) y los guarda en ADODC1; a su vez estos nuevos datos los guarda en otra tabla (con ADODC2). Al querer interceptar los errores es cuando me este error.  
    Para que se vea más claro: Un registro es una Venta; entro en una Text.Box el importe de la venta; luego ha de coger el saldo en otro ADODC2 (sólo un campo: saldo anterior)  y sumarlo pàra que se guarde en ADODC1 el importe de la operación y el saldo (dos campos); nuevamente vuelve a cargar en ADODC2 el nuevo saldo resultante; igual que con el saldo ha de hacer la misma operción con un contador (número anterior; número + 1).
   Debo aclarar que si entro los datos "aceptables" me los toma perfectamente, pero estoy poniéndole las interceptaciones a los errores, cuando entro los datos "malos" para hacer que funcionen las interceptaciones es cuando se organiza el lío y recibo el dichoso mensaje.

  Explicado es algo lioso, pero en el código es bastante claro. No sé si la única solución será para cada Update hacer una Sub. Si me podéis echar alguna luz, mil gracias.

Páginas: [1]