|
|
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 - J.M.Movilla
Páginas: 1 ... 15 16 [17]
401
« en: Miércoles 12 de Febrero de 2003, 20:20 »
Os veo con muchos problemas de correo por el peso de los ficheros. Abrid una cuenta en
lycos.com
que también es gratuita, y admite 4-5 veces más carga que hotmail.com
402
« en: Viernes 7 de Febrero de 2003, 01:38 »
Hola:
Pues una de dos: o la tabla está vacía (en este caso creo que te daría otro error, como fin de fichero...) o lo que es más probable no has refrescado el recordset; después del refresco incluye un .movefirst.
Que salgas del hoyo...
403
« en: Viernes 7 de Febrero de 2003, 01:33 »
Hola: Esto lo tiene bien resuelto David Thieme. Ponte en contacto con él en Saludos
404
« en: Miércoles 5 de Febrero de 2003, 01:30 »
Ya me ha pasado a veces eso mismo, y créeme que aun no he dado con la solución; pero voy a darte una respuesta útil (aunque no sea elegante)...
Sal de la presentación del report y vuelve a presentarlo, sin hacer ninguna modificación en los datos. Te sorprenderá el que esta segunda vez ya se ha actualizado el informe.
¿Se te resolvió el problema? Pues a ver si encontramos la forma de hacerlo "como Dios manda"; yo sigo en la brecha!
Saludos.
405
« en: Miércoles 5 de Febrero de 2003, 01:20 »
Me ilusiona pensar que alguien obtiene beneficio de esta rutina, que puede colgarse a cualquier programa.
Gracias por tu atenta respuesta, José D.
406
« en: Martes 4 de Febrero de 2003, 10:13 »
Hace unos días vi que existía interés en poder hacer copias de seguridad de los ficheros de todo un directorio.
La rutina que presento sé que es mejorable, por lo que animo a cuantos lo deseen a que realicen las correcciones oportunas.
Agradeceré me informen de las mejoras que vayan realizándose.
[email:2qjz5ggb]jmovillac@hotmail.com[/email:2qjz5ggb]
407
« en: Miércoles 22 de Enero de 2003, 00:55 »
Elemental, con una SQL del la siguiente guisa:
SELECT * From NameMdb WHERE fabricante = 'XXX';
La cláusula WHERE es determinante.
Suerte...
408
« en: Miércoles 15 de Enero de 2003, 23:39 »
Se me ocurre un truco (quizás poco elegante, pero útil y seguro):
Una vez hayas hecho tus cálculos en años y meses, generas una variable de fecha (DFechaIntermedia) con el día de la fecha de nacimiento y con el mes y el año de la fecha actual; si esta variable es mayor que Date() le restas un mes (teniendo en cuenta que si el mes es 1 tendrás que restar un año y hacer que el mes sea 12, claro está...)
Ahora sólo tienes que calcular:
nRestodeDías = DateDiff( d, DFechaIntermedia, Date())
Si te sirve, me alegro...
409
« en: Miércoles 15 de Enero de 2003, 23:13 »
Con el propio Asistente de empaquetado tienes la posibilidad (3ª pantalla) de incluir cuantos archivos quieras en el paquete de instalación: Pulsa "Agregar", selecciona el directorio en que tengas los ficheros que vayas a incluir, seleccionas Tipo de archivos: "Todos los archivos (*.*)" y haces doble clic sobre cada uno de los ficheros que desees (tiene el inconveniente de que has de repetir el proceso para cada fichero); repites el proceso para cada fichero del otro directorio...
IMPORTANTE: En la antepenúltima página tienes que definir la "ubicación" en que ha de quedar instalado cada uno de esos ficheros agregados; por ejemplo:
Nombre - Origen - Ubicación de instalación
Foto1 - C:PrincipalFotos - $(AppPath)Fotos.
(Este directorio de destino tienes que introducirlo manualmente en la tercera columna; posiblemente necesites reducir el ancho de la columna segunda para poder acceder a la tercera...)
Espero te funcione, puesto que yo lo uso de forma habitual en todas mis instalaciones.
410
« en: Miércoles 15 de Enero de 2003, 11:53 »
Envíame tu código y te lo remitiré actualizado, ¿OK?
[email:2r2mnq2i]jmovillac@hotmail.com[/email:2r2mnq2i]
411
« en: Miércoles 15 de Enero de 2003, 11:45 »
Gracias de cualquier modo, pero me lo he pensado mejor yo también y he decidido prescindir de esa función por los problemas que genera en relación con otras presentaciones antes de recuperar la resolución original.
412
« en: Martes 14 de Enero de 2003, 12:03 »
En el evento "LostFocus" puedes obligar a que el dato adquiera un valor por defecto; por ejemplo:
Private Sub txtBox1_LostFocus()
If isnull(txtBox1.text) or txtBox1.text = "" then txtBox1.text = " "
....
end sub
Con que el campo contenga un espacio será suficiente para evitar tu error.
413
« en: Martes 14 de Enero de 2003, 11:50 »
Mira qué sencillo: cuando estés en Form2:
TxtBox1.text = Form1.TxtBox1.text
TxtBox2.text = Form1.TxtBox2.text
etc.
(Por supuesto, no es obligado que en ambos formularios los textBox se llamen con el mismo nombre; tendrías que usar el nombre que le hubieras dado en cada formulario, lógicamente)
Estas instrucciones puedes incorporarlas al leer el formulario, o en el momento en que precises usarlas; pudiera ocurrir que en algún momento necesites incluir seguidamente la instrucción Me.Refresh, para que los nuevos datos se hagan visibles...
414
« en: Martes 14 de Enero de 2003, 11:38 »
Por cuestión personal de estética (siempre discutible) en uno de mis programas defino la resolución de pantalla a 800x600x32. Si previamente tenía 1024x768, DESAPARECE LA BARRA DE HERRAMIENTAS DEL ESCRITORIO (lógico...), que continúa oculta incluso si minimizo el formulario.
Alguien me puede indicar qué hacer para que siga visible o para redefinirla y se mantenga efectiva.
Muchas gracias anticipadas.
415
« en: Lunes 13 de Enero de 2003, 22:50 »
Tuve el mismo problema y sólo conseguí solucionarlo instalando un nuevo disco (previamente desconecté físicamente el disco del Windows XP) para trabajar todo lo relacionado con Visual Basic en este nuevo disco en el que instalé Windows'98. Arranco mediante selección del boot en el Setup. Ojo, no mezcles librerías de 98 con las del XP, que es lo que crea el conflicto de incompatibilidad.
416
« en: Lunes 13 de Enero de 2003, 22:37 »
Si lo que necesitas es presentar los artículos ordenados por diversos conceptos seleccionables, creo que es más práctico (y más elegante...) presentarlos en un datagrid; con el evento _DragDrop simplemente con pinchar en la cabecera de una columna te presentará el fichero ordenado por ese campo.
Incluso tienes la posibilidad de "arrastrar" la columna hacia la izquierda o la derecha y modificar a gusto del usuario la presentación de los datos.
Saludos y suerte.
417
« en: Lunes 13 de Enero de 2003, 22:08 »
Existen dos tipos de encabezamiento (lo mismo que de pies):
a) Encabezado (pie) de documento y
b) Encabezado (pie) de página...
Lo que definas como encabezamiento (pie) de documento te aparecerá sólo al inicio (o final) del documento.
Lo que definas como encabezamiento (pie) de página te aparecerá en todas las páginas...
Prueba y confirma. Saludos.
418
« en: Martes 7 de Enero de 2003, 17:16 »
NO HAY REGISTRO ACTIVO
Inicia con la instrucción
If .RecordCount = 0 then .AddNew
Porque es lógico que no encuentre registro activo si no existe ningún registro en la tabla...
Para el SEGUNDO PROBLEMA:
Refresca el recordset del datagrid cada vez que hagas una selección en el datacombo, indicando la condición seleccionada; por ejemplo:
Set recDataGrid = BasedeDatos.OpenRecordset("SELECT * FROM TablaName WHERE recDataGrid!IdFabricante = recDataCombo!IdFabricante ORDER BY IdFabricante", dbOpenDynaset)
(Naturalmente las viariables habrás de ajustarlas a tus necesidades... Y luego refrescas el DataGrid)
Saludos
419
« en: Martes 7 de Enero de 2003, 16:57 »
Para hallar la diferencia que existe entre dos fechas tienes la siguiente función:
nRes = DateDiff(intervalo, fecha1, fecha2[, primerdíasemana[, primerasemanaaño]])
Si deseas que el resultado te lo dé en meses, el parámetro "intervalo" debe ser "m"; "fecha1" es la más antigua.
Y si no te diera el resultado como entero, lo conviertes a int(nRes)
Buenos augurios.
420
« en: Domingo 5 de Enero de 2003, 21:50 »
Genera un objeto Adodc y usa el siquiente código
' Abre la Base de Datos:
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & NameDb.mdb
' Conecta ahora la Tabla que vayas a usar:
Adodc1.RecordSource = "Table1"
' Refresh es necesario para que se cargue la tabla:
Adodc1.Refresh
421
« en: Domingo 5 de Enero de 2003, 21:21 »
Este mismo problema me tuvo loco una temporada, porque dejaron de funcionarme programas que llevaban mucho tiempo rodando bien.
Me ocurrió porque usé Visual Basic con Windows XP. Tuve que usar un disco con Windows'98 para trabajar, aunque una vez compilados y linkados, mis programas funcionan perfectamente bajo Windos XP y 2000.
Espero sea tu mismo problema.
Páginas: 1 ... 15 16 [17]
|
|
|
Mostrar Mensajes
