|
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 - Jaume
76
« en: Viernes 3 de Enero de 2003, 07:59 »
Hola y bienvenido.
La función la puedes escribir en el formulario, o en un módulo (si no has llegado a esa parte, hazlo en el formulario)
Lo que debes poner en el commandbuton es la llamada a la función
CommandButton_Click() Text1.Text=dblSqrt(cDbl(Text1.Text)) End Sub
Con esto consigues varias cosas: 1º llamar a la función dblSqrt 2º pasarle un parámetro en formado Double. La función cDbl convierte un texto a Double. Además ese parámetro es el texto que ha escrito el usuario. 3º y último, estás poniendo el resultado en el mismo textbox
Espero que haya sido lo suficientemente claro.
Un Saludo y feliz 2003
77
« en: Jueves 2 de Enero de 2003, 11:20 »
No te sirve la respuesta de Code con respecto a otro mensaje sobre el puerto Com?
78
« en: Martes 31 de Diciembre de 2002, 08:36 »
Si te he entendido bien, solo quieres validar que no dejen en blanco esta casilla???
Eso es muy senzillo. Solo debes colocar el siguiente código en el evento Validate del MaskEdBox.
If MaskEdBox1.Text = "" Then Cancel = True End If
De esta manera será imposible salir de él sin escribir nada. Ahora solo faltaría verificar el contenido, pero eso creo que ya lo tienes.
Salu2
79
« en: Jueves 26 de Diciembre de 2002, 18:26 »
Usa esta funcion
'--------------------------------------------------------------------------- 'Parámetros de entrada: frmFormulario(formulario a centrar) 'Centra el formulario pasado por parámetro en el centro del formulario padre '--------------------------------------------------------------------------- Public Sub Posiciona(frmFormulario As Form) 'centra un formulario frmFormulario.Top = Int((mdiMenu.ScaleHeight - _ frmFormulario.Height) / 2) frmFormulario.Left = Int((mdiMenu.ScaleWidth - _ frmFormulario.Width) / 2) End Sub
Donde mdiMenu es el nombre de tu Formulario padre
Salu2
80
« en: Martes 24 de Diciembre de 2002, 13:08 »
¿Tiene algo que ver este problema con el mensaje anterior sobre el trigger o es nuevo? Es que ya me he perdido
81
« en: Martes 24 de Diciembre de 2002, 08:04 »
Este programa usa una base de datos para realizar mantenimientos?
Si es así, Has pensado que va a pasar cuando dos usuarios de la red intenten modificar el mismo registro?
Si la primera respuesta es afirmativa y la segunda negativa, entonces debes cambiar el código del programa
82
« en: Lunes 23 de Diciembre de 2002, 09:22 »
Hola
Te remito al mensaje respuesta que le escribí en su día a otra consulta.
"Tratamiento de la tecla Supr" de MindEYE
Creo que puede serte útil
Salu2
83
« en: Lunes 23 de Diciembre de 2002, 09:18 »
Creo que no vamos a conseguir nada de esta manera. Lo mejor sería que hicieras un ZIP con todo el programa, para que podamos ver todo el código y definición de objetos.
Yo he probado el Do Until y funciona, por lo que creo que el problema debe ir por otro lado.
Cuélgalo en un mensaje o mándamelo.
Salu2
84
« en: Viernes 20 de Diciembre de 2002, 14:33 »
Eso deberías habértelo planteado antes de hacer la aplicación, porque ahora puede que partes del programa no te sirvan.
Por ejemplo, si se trata de un programa enlazado a una base de datos, ¿como harás los bloqueos de los registros?, ¿Como indicas la ruta de la base de datos? etc
Muchas cosas se han de tener en cuenta. Otra cosa es que la aplicación no use ninguna base de datos y sea monousuaria, pero claro, entonces no tendría sentido ponerla en una red, No?
Comenta un poco esto y sabremos si te podemos echar un cable
Salu2
85
« en: Viernes 20 de Diciembre de 2002, 14:27 »
El siguiente código debería funcionar puesto que lo he probado
(Fíjate en el orden de las instrucciones)
elimino = 0 bdgeo.UserName = st_login bdgeo.Password = st_passw bdgeo.ConnectionString = Conectar bdgeo.RecordSource = "SELECT * FROM sondajes.t_identi WHERE yacimiento=1 AND codlabor='" & clabor_del & "'" bdgeo.Refresh If bdgeo.Recordset.RecordCount > 0 Then Do Until bdgeo.Recordset.EOF bdgeo.Recordset.Delete bdgeo.Recordset.MoveNext elimino = 1 Loop
Saludos
86
« en: Viernes 20 de Diciembre de 2002, 14:11 »
Supongo que el proceso se lanza automáticamente al abrir el formulario. En tal caso te recomiendo que todas las operaciones las realices en el evento del formulario LOAD. Este se ejecuta cuando el formulario aun no es visible, de manera que no se ve todo lo que estás haciendo.
No lo coloques en el evento ACTIVATE puesto que este se ejecuta después del LOAD, una vez el formulario ya es visible. Además, este evento se lanza siempre que se activa el formulario, mientras que el primero solo la primera vez que lo abres.
Espero te sea útil
Salu2
87
« en: Viernes 20 de Diciembre de 2002, 12:59 »
Para que quieres hacer un bucle?
Porqué no lanzas un DELETE en lugar de un SELECT?
88
« en: Viernes 20 de Diciembre de 2002, 09:39 »
No lo afirmo, pero creo que el MoveNext no es necesario, puesto que al eliminar el registro ya pasa al siguiente. Creo!!
89
« en: Viernes 20 de Diciembre de 2002, 08:54 »
Creo que la línea del MoveFirst sobra
90
« en: Jueves 19 de Diciembre de 2002, 10:03 »
Solo debes indicar al formulario donde esté el TextBox en el que vas a escribir, la propiedad KeyPreview a true, de manera que capture la pulsación de una tecla antes que el TextBox.
Entonces, en el evento KeyDown del formulario pones un código similar a este
If KeyCode = vbKeyDelete Then MsgBox ("Ni hablar de eso") KeyCode = 0 End If
de manera que si pulsamos la tecla suprimir nos aparecerá el mensage y anulará la tecla al forzarlo con la instrucción KeyCode=0
Salu2
91
« en: Miércoles 18 de Diciembre de 2002, 09:58 »
Tenía entendido que ese era un buck (error) de VisualBasic 6. En mi empresa nos encontramos con el mismo problema. Desgraciadamente no encontramos solución, por lo que decidimos pasarnos a Crystal Reports.
Si este tema se ha solucionado me interesaría saber como
Salu2
92
« en: Miércoles 18 de Diciembre de 2002, 09:53 »
1º Puedes crear un campo en la sentencia SQL que utilizas para rellenar el grid, que te realice esa operacion, por lo que puedes mostrarlo en la grid como un campo más. Posteriormente haces otra sentencia SQL que te calcule el total de esa operacion y lo muestras en el TextBox.
2º Haces una columna más en el grid, de manera que cuando ya lo tengas lleno, lo recorres linea por linea realizando la multiplicación y el cómputo global, rellenando la columna extra que has creado. Cuando termines el bucle tendrás el total, por lo que podrás rellenar el textBox.
La primera opción es la más elegante y rápida. La segunda más lenta pero mas sencilla
Salu2
93
« en: Miércoles 18 de Diciembre de 2002, 09:40 »
Si no estoy equivocado, al system32 van todos los ficheros necesarios para ejecutarse las aplicaciones de 32 bits, mientras que en el system van el resto.
Si tienes problemas copialas en los dos directorios. Ya se que no es muy elegante, pero a mi me ha sacado de más de un aprieto.
En cuanto a que si un usuario necesita una de las dll, o se la pasas o la bajas de internet. como mejor te vaya
Salu2
94
« en: Martes 17 de Diciembre de 2002, 08:51 »
Si, siempre y cuando no utilices ninguna DLL u OCX que no se encuentre en el system 32.
Haz el empaquetado y te mostrará la lista de archivos que precisa incorporar a la máquina de destino. Si no necesita ninguno, entonces podrás hacerlo.
Salu2
95
« en: Lunes 9 de Diciembre de 2002, 09:37 »
Hola Te paso una dirección donde te explica con un ejemplo como puedes conectarte a Access sin usar el objeto Data. También encontrarás un enlace para bajarte el código del ejemplo para probarlo http://guille.costasol.net/ejemplos/ADO ... ontrol.htm
96
« en: Lunes 9 de Diciembre de 2002, 09:12 »
En ningun momento le dices al programa que se recorra los registros del recordset.
Antes del next deberías mover el cursor del recordset al siguiente registro mediante la instruccion MoveNext:
reg5.MoveNext
Saludos
97
« en: Miércoles 4 de Diciembre de 2002, 15:12 »
Te mando un ejemplo de como hacerlo
Espero te sea útil
Salu2
98
« en: Viernes 29 de Noviembre de 2002, 13:18 »
Hola compañeros
Vuelvo a estar en activo. Unos problemillas con mi ordenador me han tenido fuera de circulación unos meses.
Pido disculpas a aquesllos que me habeis solicitado ayuda. He leido vuestros mensajes, pero no he podido responderlos. No penseis que he pasado de vosotros.
Espero seguir ayudando y que me sigais ayudando
99
« en: Viernes 29 de Noviembre de 2002, 13:15 »
El textbox tiene un evento llamado Validate, que evalua el contenido cuando intentas pasar a otro control. Si es incorrecto puedes forzarlo a quedarse en ese textbox
100
« en: Martes 15 de Octubre de 2002, 08:27 »
No se si la versión 4.5 de CR lo permite, pero me imagino que sí. Me refiero a crear un subinforme dentro de un informe.
Crystal te proporciona la posibilidad de insertar un informe dentro de otro informe, de manera que, enlazados por un campo determinado, te permite ver información diversa sin tener que anidar grupos.
Saludos
|
|
|