|
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 - rechy
1
« en: Jueves 10 de Junio de 2004, 01:46 »
Hola amigos, ojala y alguien pueda orientarme.
He leido que se utiliza Crystal report para graficar; pero no hay algun otro metodo para lograrlo??
Crystal report viene en el Visual Basic 6.0???
Gracias. Saludos para todos.
2
« en: Lunes 31 de Mayo de 2004, 20:07 »
Hola, o en dado caso utiliza el siguiente codigo: Private Sub text1_KeyPress(KeyAscii As Integer) cadena = "0123456789." + Chr(8) 'chr(8) = delete, es decir admitimos borrar If InStr(cadena, Chr(KeyAscii)) = 0 Then KeyAscii = 0 End If End Sub
Si te fijas hasta punto puedes meter. Saludos
3
« en: Lunes 31 de Mayo de 2004, 20:03 »
Hola, o en dado caso utiliza el siguiente codigo: Private Sub text1_KeyPress(KeyAscii As Integer) cadena = "0123456789." + Chr(8) 'chr(8) = delete, es decir admitimos borrar If InStr(cadena, Chr(KeyAscii)) = 0 Then KeyAscii = 0 End If End Sub
Si te fijas hasta punto puedes meter. Saludos
4
« en: Lunes 31 de Mayo de 2004, 17:37 »
Que tal.
Yo tenia el mismo problema y lo resolvi del siguiente modo: Cambiale la fecha al reloj y listo. Por ejemplo, yo no puedo instalarle el Visual Studio a mi Pc (win XP) en el 2004, tengo que cambiarle la fecha a Marzo del 2003 y listo.
Espero y se haya solucionado tu problema.
Recuerda reiniciar la Pc cuando hayas cambiado la fecha e instala el Visual.
5
« en: Miércoles 14 de Abril de 2004, 19:52 »
Hola, creo que con crystal report puedes hacerlo. Aunque nunca he utilizado ese componente.
Saludos
6
« en: Miércoles 14 de Abril de 2004, 19:50 »
Hola, solo cambia los numeros por las letras:
[CODE] Private Sub text1_KeyPress(KeyAscii As Integer)
cadena = "0123456789." + Chr(8) 'chr(8) = delete, es decir admitimos borrar
If InStr(cadena, Chr(KeyAscii)) = 0 Then KeyAscii = 0 End If
End Sub
Si tienes algun problema me dices. Saludos.
7
« en: Miércoles 7 de Abril de 2004, 23:57 »
Hola. Por ejemplo, tenemos 2 formularios (form1 y form2). En el form1 crea un command boton y como codigo ponle y listo. Saludos.
8
« en: Miércoles 7 de Abril de 2004, 15:38 »
Hola amigos.
Tengo en mi formulario un msflexgrid y un boton que ejecuta la instruccion Printform.
Mi pregunta es la siguiente: ¿Porque sera que en algunas maquinas al ejecutar el boton (Printform) la impresion donde tengo el msflexgrid me sale de color negro y no se ven los datos?
Espero y alguien pueda orientarme.
Saludos.
9
« en: Jueves 1 de Abril de 2004, 20:44 »
Muchas gracias por tu ayuda.
Pero el problema estaba en que debia de crear una dependencia de la aplicacion con la imagen al momento de empaquetar.
De todas formas gracias por tu respuesta.
Saludos.
10
« en: Jueves 1 de Abril de 2004, 18:35 »
Hola amigos, espero y me puedan ayudar. Ya tengo mi proyecto listo pero al instalarlo y enviar los datos del Msflexgrid a excel me sale un error. Run Time error '1004': Application - defined or object - defined error.
Ese error me aparece porque hice un macro que tiene una imagen en Excel. Y al darle click al boton de enviar a excel no encuentra la imagen porque al instalarlo no la crea.
La unica forma en que si me funciona es instalado primero el proyecto y de ahi tengo que copiar la imagen aparte a la carpeta donde fue instalado y ya no me da el error.
Como puedo hacerle para que al instalarlo me aparezca la imagen en la misma carpeta donde quiero instalar la aplicacion, sin tener que hacerlo manualmente?
Espero y puedan ayudarme. Gracias
11
« en: Martes 30 de Marzo de 2004, 23:42 »
Hola Makko. Como supones es por '. Lo que puedes hacer es modificar tu base de datos y borrar ese caracter para que quede asi: Guns N Roses. Es lo mas facil. O puedes meter el siguiente codigo el cual me funciona para simbolos. Si lo que quieres es el codigo para que puedas hacer la busqueda con ese simbolo pues: Private Sub buscar_Click() Dim bm As Variant bm = Dnav.Recordset.Bookmark If Tbus.Text <> " " Then Dnav.Recordset.MoveFirst If Op1.Value Then cad = " ID_Empleado = " & Val(Tbus) End If If Op2.Value Then cad = "Nombre='" & Tbus & "'" End If Dnav.Recordset.FindFirst cad If Dnav.Recordset.NoMatch Then Dnav.Recordset.Bookmark = bm MsgBox "Registro No Encontrado" End If Else MsgBox "Teclee el dato a buscar" End If End Sub
Es un ejemplo nada mas modificalo a tu gusto. Saludos
12
« en: Jueves 25 de Marzo de 2004, 00:29 »
Hola, acaso es del mismo proyecto de los cd's de music Mindeye?.
Saludos...
13
« en: Lunes 22 de Marzo de 2004, 23:00 »
Ok, lo intentare. Pero no es posible insertar el gif ya hecho?. Es decir, para no meter imagen por imagen.
La animacion ya esta realizada.
Espero y alguien pueda apoyarme, saludos.
14
« en: Miércoles 17 de Marzo de 2004, 15:49 »
Hola amigos. No he podido insertar un gif animado a un form. Me podrian dar alguna pista de como hacerlo?? Gracias.
15
« en: Jueves 11 de Marzo de 2004, 17:42 »
Muchas gracias. Era exactamente lo que queria y no podia hacerlo. Asi como dices, lo mas facil resulta ser lo mas dificil.
Gracias de nuevo.
Nos vemos
16
« en: Miércoles 10 de Marzo de 2004, 15:32 »
Hola. Asi es ahi, es donde me crea las columnas de mas. Pero si no lo multiplico por 1000, no me aparece mas que 1 columna. No se que hacer. Ya le he movido a todo y no se como implementar la función ADDNEW del Msflexgrid que me comentas, gracias de todas formas.
17
« en: Martes 9 de Marzo de 2004, 20:51 »
Ok. Aqui adjunto el proyecto para ver si puede decirme donde esta el error que les comente hace rato.
Gracias.
18
« en: Martes 9 de Marzo de 2004, 20:46 »
Ok. Aqui adjunto el proyecto para ver si puede decirme donde esta el error que les comente hace rato.
Gracias.
19
« en: Martes 9 de Marzo de 2004, 17:56 »
Hola amigos, tengo el siguiente problema. Realizo unos calculos en varias celdas de un msflexgrid. Pero en la ultima columna, me incrementa varias columnas vacias, las cuales no deberian aparecer. Les muestro el codigo por si alguien encuentra el error. Private Sub Command1_Click() Call Estado_Refrescar60 Dim SG, SG60 As Single Dim T As Single Dim c, R As Integer Dim BT As Integer BT = 60 Call Estado_Comp If ((a1.text <> "") And (a2.text <> "") And (t1.text <> "") And (t2.text <> "")) Then a1.text = Format(a1.text, "#,##0.0000") a2.text = Format(a2.text, "#,##0.0000") t1.text = Format(t1.text, "#,##0.0") t2.text = Format(t2.text, "#,##0.0") tabla.Cols = (a2 - a1) * 1000 tabla.Rows = (t2 - t1) * 2 + 2 tabla.TextMatrix(0, 0) = "Temp.°F" T = t1 R = 0 While (T <= t2) SG = a1 c = 0 While (SG <= a2) If (c = 0) Then tabla.Col = c tabla.Row = R + 1 tabla.text = T End If If (R = 0) Then tabla.Col = c + 1 tabla.Row = R tabla.text = SG End If SG60 = calcular_SG(SG, T) tabla.Col = c + 1 tabla.Row = R + 1 tabla.text = SG60 tabla.text = Format(tabla.text, "#,##0.0000") SG = SG + 0.002 c = c + 1 Wend T = T + 0.5 R = R + 1 Wend Else Call Estado_Datosporc End If End Sub
Gracias por su ayuda
20
« en: Lunes 8 de Marzo de 2004, 21:08 »
Okas, muchas gracias por tu ayuda Brroz.
Hasta luego.
21
« en: Lunes 8 de Marzo de 2004, 20:51 »
De nada, si tienes alguna duda u observacion posteala. Nos vemos
22
« en: Lunes 8 de Marzo de 2004, 20:04 »
Hola, fijate como estas llamando a esa funcion o metodo que creaste en tu formulario.
Saludos
23
« en: Lunes 8 de Marzo de 2004, 18:33 »
Disculpa la tardanza Makko aqui te pongo la modificacion que le hice a tu proyecto. Solo vincula bien la base de datos para que sirva.
Saludos.
24
« en: Viernes 5 de Marzo de 2004, 16:12 »
Hola. Entonces espero a que pongas tu codigo para que lo cheque y ver si puedo arreglar tu problema, pero tienes que adjuntar la base de datos tambien para jalar la tabla que quieres.
Saludos.
25
« en: Jueves 4 de Marzo de 2004, 18:53 »
O en su defecto utiliza el datagrid si se te hace mas facil, solo tienes que agregar el control datagrid y un control ADOdc (para que jales la tabla).
Y puedes hacer lo de la busqueda que te indique con un frame sobre ese formulario.
Saludos.
|
|
|