|
|
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 - Juanolo
Páginas: 1 2 3 [4] 5 6 ... 9
76
« en: Viernes 10 de Septiembre de 2004, 01:53 »
No se entiende mucho la pregunta.  ¿Quieres disponer de imágenes en la aplicación, en forma independiente del DD? Si es así, puede que te sirva un imagelist, para guardar las imágenes en tiempo de diseño y utilizarlas cuando quieras... Siento no poder ser más claro, pero la pregunta tampoco lo es. Salu2. 
77
« en: Jueves 9 de Septiembre de 2004, 23:22 »
Private Sub Combo1_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then KeyAscii = 0 'Pa' evitar el beep SendKeys "{tab}" End If End Sub
78
« en: Jueves 9 de Septiembre de 2004, 23:11 »
Creo que compactar es la onliguan. Es más, aún cuando no tuvieras este problema tan puntual, si no consideras la posibilidad de una mantención rutinaria de tu base de datos... Bueno, yo compactaría.
Salu2.
79
« en: Jueves 9 de Septiembre de 2004, 23:05 »
He decidido tomarme un minuto para agradecer este post. A quienes no hayan seguido este consejo aún: Créanme que vale la pena.
Es una herramienta utilísima esa rueda de mouse una vez que te acostumbras.
Gracias, vradok!!
Nota: El link parece estar roto, pero basta con poner el nombre de la librería en cualquier buscador y seguro llegarán a la dirección correcta.
Salu2.
80
« en: Jueves 9 de Septiembre de 2004, 22:40 »
Antes que nada:
Saludos a todos los amigos del foro. Estuve alejado mucho tiempo pero aún reconozco algunos nombres.
Amigo:
Yo tuve hace un tiempo un problema similar y aún no conocía el XP. Tiene que ver con el acceso a datos, problema que no tenía usando DAO.
Recomendación: Prueba de ejecutar, además de Dcom98, la última versión del Mdactype.
Al final me rendí y volví a mi antiguo DAO. Adiós dataenvironment, datareport y todas esas herramientas que tanto me gustaron. Dependo mucho de que las instalaciones sean infalibles y no me parecía digno andar con tanto Dcom y Mdac...
Si alguien sabe la causa (librería dll, ocx) exacta de este problema, reportelo please.
Espero que, si no lo solucionas, al menos te sirva de consuelo.
Juanolo, el regreso.
81
« en: Sábado 10 de Julio de 2004, 00:24 »
Hola, Fabián.
¿Tomas el recordset desde un dataenvironment?
Si es así, en la pestaña avanzadas de Propiedades, existe la opción de indicar si quieres que te devuelva un nro determinado de registros o "Todos los Registros".
Yo creo que va por ahí el problema. No es el datagrid, sino el recordset que lo alimenta.
Espero que lo soluciones.
Salu2.
82
« en: Viernes 9 de Julio de 2004, 16:05 »
Hola Sujey!
El proyecto funciona tal cual. Me temo que pueda ser un problema de versión.
El motivo de que no recuerde dónde lo obtuve es que fue hace mucho tiempo. Cuando lo bajé todavía tenía el visual 5.0 y no me funcionó (no recuerdo si era ese error exactamente).
Ojalá y lo puedas solucionar, pues es lo que buscas.
83
« en: Jueves 8 de Julio de 2004, 23:59 »
Observación: Yo pondría los íconos en el mismo imagelist. No hacerlo así, lleva a cambiar la propiedad imagelist del toolbar... una jalea! Hecha la observación, el código sería: Private Sub Timer1_Timer() If Toolbar1.Buttons(11).Image = 7 Then Toolbar1.Buttons(11).Image = 4 Else Toolbar1.Buttons(11).Image = 7 End If End Sub
donde 11 es el indice del boton el el toolbar. 7 y 4 son los índices en el imagelist en que están los íconos a intercambiar.
84
« en: Jueves 8 de Julio de 2004, 23:39 »
Creo que esto te servirá. No recuerdo de donde lo bajé, mis disculpas por no nombrar al creador. Sólo dejo claro que yo no fui.
Salu2.
85
« en: Miércoles 30 de Junio de 2004, 17:33 »
Hola, Jonmi! Usa KeyDown, existe constantes muy intuitivas. Sin duda con este ejemplo darás con toda la chorrada. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyF1 'Codigo para F1 Case vbKeyF2 'Codigo para F2 End Select End Sub
Salu2.
86
« en: Sábado 26 de Junio de 2004, 17:35 »
Hola, rocolobo!
Mira, en este momento estoy en un ciber, por lo que no puedo comprobar lo que voy a decir (y nunca lo he hecho), pero debería ser algo como:
dim MiTimer as new Timer
luego estableces las propiedades como en cualquier timer
Busca por ahí... Es lo que se usa para otros controles y no veo porqué en este caso vaya a ser diferente.
Salu2.
87
« en: Viernes 25 de Junio de 2004, 16:19 »
Hola Daniel!
Me gustaría recordar en dónde encontré este código, para poder hacerle justicia a quien lo creó, pero...
Espero te sirva.
88
« en: Jueves 24 de Junio de 2004, 22:53 »
Por casualidad me topé con esto en otro foro: lawebdelprogramadorchécalo a ver si te sirve. Salu2.
89
« en: Martes 22 de Junio de 2004, 19:09 »
A ver si con esto te calmas, hombre.
Salu2.
90
« en: Martes 22 de Junio de 2004, 01:43 »
Hola Andr3a!
Bueno, hasta donde sé, hay un problema de enfoque en tu pregunta. Lo que puedes imprimir son los datos que alimentan esa grilla, pero esos pueden estar en una variable recordset, en un datacontrol, en DataEnvironment, etc..
Luego, la cuestión es: cómo imprimes los datos desde el control o variable en que los tienes.
Sé que existe el DataReport, aunque no lo manejo. Por lo que he probado, es muy fácil de utilizar si tienes un dataenvironment; me imagino que también funcionará con un Ado datacontrol, pero, como te digo, no lo manejo.
También está crystal, que venía con Visual 5.0. Ahora tengo Visual 6 y no venía en el paquete... y el objeto printer, y seguro habrá otros medios.
Bueno. Lo principal sería saber desde dónde toma los datos tu grilla, y con qué herramienta cuentas para hacer el reporte.
Salu2.
91
« en: Martes 22 de Junio de 2004, 01:34 »
Bienvenido, JC! Private Sub Text_KeyPress(Index As Integer, KeyAscii As Integer) 'Permite avanzar campos con la tecla "Enter" If KeyAscii = 13 Then SendKeys "{tab}" KeyAscii = 0 'Necesario para eliminar el 'Beep' End If End Sub
Salu2
92
« en: Lunes 21 de Junio de 2004, 19:06 »
A ver... En realidad yo nunca uso la instrucción: CReport1.Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "notaria.mdb" & ";Persist Security Info=False " La base de datos ya la tengo abierta en la aplicación. Pero confío en Kev por lo que no revisaré esa parte. Sólo me queda opinar lo mismo que antes: CReport1.Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & " \notaria.mdb" & ";Persist Security Info=False " Salu2.
93
« en: Lunes 21 de Junio de 2004, 17:16 »
Como cualquier sugerencia es bienvenida, ahí va una:
Podrías crear una minuscula tabla de un solo campo y un solo registro en donde guardes la fecha cada vez que realices la 'limpieza'.
Cuando inicies la aplicación, si la diferencia entre la fecha actual y la guardada en el registro es mayor de 15 días, entonces:
Realizas el procedimiento
Guardas la nueva fecha.
Espero aportar.
Salu2.
Edición: También sirve un archivo Ini o algo por el estilo.
94
« en: Sábado 19 de Junio de 2004, 20:33 »
Si pusiste ese código 'Tal Cual', revisa lo siguiente: CReport1.DataFiles(0) = App.Path & "Ventas.mdb" Debe decir: CReport1.DataFiles(0) = App.Path & " \Ventas.mdb" Espero sea eso. Salu2.
95
« en: Viernes 18 de Junio de 2004, 23:46 »
Hola, José!
Creo que el problema está en la propiedad style de los botones.
el estilo 1 (tbrcheck) tiene un comportamiento como el que describes.
Si quieres que el botón se levante una vez presionado, debes seleccionar:
0 - tbrDefault
Salu2.
96
« en: Viernes 18 de Junio de 2004, 18:35 »
Mmmmmhhhhhhhh!
Te puede parecer algo chapucero... Pero yo copiaría la Base completa. Luego, con 'drop table' eliminaría las tablas que sobran. Compactaría... y ya!
Salu2.
97
« en: Viernes 18 de Junio de 2004, 17:18 »
Hola! No entiendo mucho tu inquietud. Alguna vez he utilizado las restricciones de usuario de una tabla acces (el archivo System.mdw) pero me da la impresión de que de restringir directamente las tablas lo que conseguirías sería errores al intentar acceder a ellas. Yo enfoqué el tema desde otro punto de vista: Restrinjo los controles de mis formularios de acuerdo al Nivel de usuario que esté en el sistema. Cuando agrego un usuario, además del nombre que tendrá le asigno un nivel: Por Ejemplo: tengo los siguientes niveles: Administrador Ejecutivo Punto de Venta Cuando quiero restringir un nivel determinado en un control (un botón, por ejemplo), simplemente agrego en su propiedad Tag las iniciales del nivel de usuario autorizado ("AE" indica que este control está restringido sólo a Administradores y Ejecutivos. Si tag="", no hay restricción) En el evento form load de cada formulario con restricciones agrego la sentencia RestringeUsuario Me La que se maneja con el siguiente código insertado en un módulo: Public Sub RestringeUsuario(FormAbierto As Form) Dim IniUser As String Dim i As Integer IniUser = UCase(Mid(UsuaRio.Tipo, 1, 1)) 'Las restricciones a los usuarios se guardan en 'la propiedad "Tag" de los controles. Si hay texto en esta 'propiedad, eso significa que el control es restringido, 'por lo que se debe verificar que el usuario actual esté 'autorizado. For i = 0 To FormAbierto.Count - 1 If Len(FormAbierto(i).Tag) Then If InStr(UCase(FormAbierto(i).Tag), IniUser) = 0 Then FormAbierto(i).Visible = False End If End If Next i End Sub
Con muy pocos cambios, puedes manipular la propiedad Locked, o Enabled, de acuerdo a lo que sea más adecuado para tu aplicación.
98
« en: Viernes 18 de Junio de 2004, 16:55 »
Hola Fernando: No sé bien si con este código te distraigo o te puedo ayudar en algo, pero estoy recién entrando a Ado y no he tenido tiempo ni necesidad de actualizarme en esto de crear tablas. El código siguiente funcionaba en Dao. Puede que sirva algo... Public Sub CreaHistoriaCambios() Dim Td As TableDef Dim IdxDocum As Index Dim Fld As Field Dim i As Integer 'Reviso la colección de tablas en busca de la tabla "Historia Cambios" 'BaseGen es mi objeto Database For i = 0 To BaseGen.TableDefs.Count - 1 'Si existe salgo del procedimiento. If BaseGen.TableDefs(i).Name = "Historia Cambios" Then Exit Sub Next i 'Si recorrí la colección sin encontrar una coincidencia, 'creo la tabla. Set Td = BaseGen.CreateTableDef("Historia Cambios") 'Creo el único campo de mi tabla '(en este caso, es de texto) Set Fld = Td.CreateField("Cambio", dbText) Td.Fields.Append Fld 'Agrego la tabla creada a la colección BaseGen.TableDefs.Append Td With Td ' Primero crea objeto Index, crea y agrega los ' objetos Field al objeto Index y después agrega ' el objeto Index a la colección Indexes de ' TableDef. Set IdxDocum = .CreateIndex("IndCambio") With IdxDocum .Fields.Append .CreateField("Cambio") End With .Indexes.Append IdxDocum .Indexes.Refresh End With End Sub
Lo que hacía era buscara la tabla "Historia Cambios". Si no existía, creaba esta tabla que era muy sencilla, con un sólo campo, y un índice en ese mismo campo. Ojalá te sirva algo. Salu2.
99
« en: Jueves 17 de Junio de 2004, 22:12 »
Hola nuevamente: Así, en frío, me parece que no. Tendrías que revisar en el script si es que el nombre está en alguna parte, de lo contrario significaría que ese nombre lo da en forma interna el compilador. Si sé de algo, agrego un post. Salu2.
100
« en: Jueves 17 de Junio de 2004, 16:26 »
Hola Jonmi! Sub Cuadro_combinado8_AfterUpdate() ' Buscar el registro que coincida con el control. Me.RecordsetClone.FindFirst "[IdRegistro] = " & Me![Cuadro combinado8] Me.Bookmark = Me.RecordsetClone.Bookmark End Sub
Siento no ser de mayor utilidad, pero no pude abrir tu tabla (sólo tengo Acces 97) Pero ese es el evento, y el código corresponde a una prueba que realicé. Salu2.
Páginas: 1 2 3 [4] 5 6 ... 9
|
|
|
Mostrar Mensajes
