• Viernes 29 de Marzo de 2024, 15:38

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 - Javochin

Páginas: [1]
1
MS Access / Re:Imprimir formulario
« en: Martes 20 de Septiembre de 2011, 22:37 »
haz probado crear el tamaño de papel personalizado desde la configuracion de la impresora (panel de control).
una vez creado el papel personalizado lo configuras en access como papel predeterminado.
espero te sirva.

 :suerte:

2
Bases de Datos / Re:consulta select sql con 2 condiciones where
« en: Miércoles 31 de Agosto de 2011, 05:56 »
intenta esto:
Código: Visual Basic
  1. Private Sub Combo1_Click()
  2. Data1.RecordSource = "SELECT * FROM Pagos WHERE Nombre_de_actividad='" & Combo1.text & "' And Numero_de_cliente=" & Int(Text3.Text)
  3. Data1.Refresh
  4. End Sub
  5.  

3
Bases de Datos / Re:Guardar fotos en BD Access 2003 con Visual Basic 6
« en: Viernes 12 de Agosto de 2011, 02:38 »
te dejo el archivo de access, tendras que pulirlo segun para tu necesidades, dale una estudiadita y estamos pendientes.  :suerte:

4
Bases de Datos / Re:Guardar fotos en BD Access 2003 con Visual Basic 6
« en: Viernes 12 de Agosto de 2011, 02:01 »
te recomiento mejor guardar las fotos en una carpeta, y mandarla llamar cuando la ocupes en tus informes o formularios. Deja busco el codigo de como guardes la imagen en la BBDD y un momento más lo coloco.

5
Bases de Datos / por fin...
« en: Viernes 12 de Agosto de 2011, 01:48 »
lo que hice fue vincular las tablas de la BBDD servidor y los campos de los informes los vincule tambien de cliente a servidor y listo. De haber sabido que era tan fácil habría tardado menos :fire: jajajaja :jumpie:

6
MS Access / Access en Red
« en: Jueves 11 de Agosto de 2011, 04:28 »
 :losiento: el foro es de VB, pero seamos honestos VB y VBA es muy similar, ayudenme por favor:

Describo: Hice una aplicación en access 2007 donde creo formularios y reportes; hago todo a traves de codigo en VBA.
Ahora necesito usar la aplicacion en multiusuario, tengo un ordenador servidor de la BBDD con recurso compartido para el accesso y para lo cual no tengo problema en la captura de datos usando DAO; sin embargo, a la hora de querer imprimir los reportes uso la siguiente instruccion:

Código: Visual Basic
  1. DoCmd.OpenReport "EMPLEADOS", acViewPreview, , , acWindowNormal

Obviamente me imprime los reportes de la BBDD activa; es decir, de la del usuario y no de la del servidor. he trabajado con VB6 y Crystal Reports, pero ahora si no tengo ni idea de como empezar.

Gracias de Antemano

7
Bases de Datos / Access en Red
« en: Jueves 11 de Agosto de 2011, 04:24 »
Describo: Hice una aplicación en access 2007 donde creo formularios y reportes; hago todo a traves de codigo en VBA.
Ahora necesito usar la aplicacion en multiusuario, tengo un ordenador servidor de la BBDD con recurso compartido para el accesso y para lo cual no tengo problema en la captura de datos usando DAO; sin embargo, a la hora de querer imprimir los reportes uso la siguiente instruccion:

Código: Visual Basic
  1. DoCmd.OpenReport "EMPLEADOS", acViewPreview, , , acWindowNormal

Obviamente me imprime los reportes de la BBDD activa; es decir, de la del usuario y no de la del servidor.

No tengo idea de como Solucionar este problema. Gracias de Antemano

8
Visual Basic 6.0 e inferiores / Re:Problemas con DTP no me deja tomar la fecha !
« en: Jueves 11 de Agosto de 2011, 03:57 »
de que tipo es tu campo en la BBDD, por que en tu codigo lo colocas como texto:

Código: [Seleccionar]
Me.cmbDepartamento + "','" & fecha + "','" & Me.cmbCargo + "','" & _[/size]

intenta colocarlo sin comillas; si tu campo es de tipo date:

Código: [Seleccionar]
Me.cmbDepartamento + "'," & fecha + ",'" & Me.cmbCargo + "','" & _[/size]

9
Visual Basic 6.0 e inferiores / Re:Problemas con DTP no me deja tomar la fecha !
« en: Jueves 11 de Agosto de 2011, 03:30 »
pero que error te arroja?

10
Crystal Reports / Re: Ajustar A Ancho De Página
« en: Martes 8 de Agosto de 2006, 20:26 »
Pues, no me sirvio de mucho, lo que necesito en si es que no importa de que tamaño muetre el preview del reporte, quiero que se ajuste la hoja; que se muestre toda.
dejo la imagen para demostrar lo que quiero.

11
Crystal Reports / Ajustar A Ancho De Página
« en: Martes 8 de Agosto de 2006, 17:59 »
Hola a todos, agradecería mucho su colaboración.

Necesito saber como hago para que al mostrar el reporte desde vb 6.0, muestre el reporte ajustado al ancho de la hoja, utilizo cr 8.0

Gracias

12
Crystal Reports / Re: 2 Registros En Un Mismo Detalle
« en: Martes 8 de Agosto de 2006, 17:56 »
Tal vez te refiera a varias columnas, lo que tienes que hacer es ir al menú
->Formato
   ->Sección

seleccionar detalles y seleccionar el caja de checado formato con multiples columnas

13
En el evento click de cada boton pondrías esto:

Código: Text
  1. Adodc1.RecordSource = "Table1" 'El nombre de tu tabla
  2.     Adodc1.Refresh
  3.     Set DataGrid1.DataSource = Adodc1.Recordset
  4.  
  5.  

Espero y te haya ayudado

14
Crystal Reports / Re: Query
« en: Viernes 16 de Junio de 2006, 17:14 »
Se supone que en tiempo diseño del reporte debes colocar lo campos que deseas mostrar, y para mostrar el reporte tal y como es (que seri lo mismo ha SELECT * FROM Tabla), para que no haya falla debes de colocar este codigo:

Código: Text
  1. CrystalReport1.SelectionFormula=""
  2.  

Checa este enlace:
http://foros.solocodigo.com/index.php?showtopic=20588

Espereo y ahora si te haya ayudado

15
Crystal Reports / Re: Query
« en: Jueves 15 de Junio de 2006, 18:42 »
Ciber Lep

Si estas utilizando el control del Crystal en VB, yo hago lo siguiente:

Supongamos que quieres imprimir los valores de una empresa en especifico, en una tabla llamada Empresas con campos Nombre, Empleados y Domicilio, y quieres imprimir los empleados de una empresa de una caja de texto, tendrias que hacer lo siguiente:

Control de Crystal Report= Reporte
Caja de Texto=TxtNombre

Código: Text
  1. Reporte.SelectionFormula="{Empresas.Nombre}='" & TxtNombre & "'"
  2.  
  3.  

Tienes que poner la Formúla entre Comillas, y si el valor que quieres filtrar es de tipo texto tienes que usar las apostrofes (') para indicar ello y tienen que ir antes y despues del criterio de filtro.

Espero y te haya ayudado :ball:

16
Crystal Reports / Re: Se Puede Hacer Esto En Crystal Report?
« en: Lunes 22 de Mayo de 2006, 22:39 »

17
Visual Basic 6.0 e inferiores / Re: Error Al Instalar
« en: Viernes 12 de Mayo de 2006, 02:17 »
Muchas gracias RadikalEd

Entonces es un conlficto con la version del office de Access!!

18
Visual Basic 6.0 e inferiores / Error Al Instalar
« en: Viernes 12 de Mayo de 2006, 00:49 »
:hola:

He desarrollado un aplicacion en VB 6.0, al momento de empaquetar hago lo siguiente:
1.- Lo empaqueto con el "Asistente para Empaquetado" de Visual Estudio.
2.- Extraigo la Carpeta de "Support" que crea el asistente y la coloco en otra.
3.- Empaqueto todo otra vez en Inno Setup Compiler, agregando las OCX y DLL de la carpeta "Support".

Una vez ya armado el paquete lo instalé en varias PC, en algunas no hubo ningún problema y la aplicación funcionó perfectamente, pero en tres PC se instalo todo sin ningún error, pero al ejecutar la aplicación merco este error:

clase no registrada
CLSID:{00000010-0000-0010-8000-00AA006D2EA4}

Alguien Podría ayudarme  :)

19
Crystal Reports / Re: Seleccionar Tabla
« en: Sábado 1 de Abril de 2006, 03:16 »
Mira esto me funciona con Crystal 8.0, esto lo haces en un boton en VB, o en cualquier objeto y evento que te guste.

Esto es para que te imprima todo el Reporte tal como lo hiciste:
Código: Text
  1.  
  2. 'CrystalReport->Control de Crysrtal Report
  3. 'Paso 1
  4. CrystaReport1.DataFiles(0) = Base 'Aqui pones la ruta de tu BD ej.
  5. DataFiles(0)="C:\Escolar\MiBase.mdb"
  6. 'Paso 2
  7. CrystaReport1.SelectionFormula = ""  'Esta es  Formúla que permite seleccionar todo
  8. 'Paso3
  9. CrystaReport1.ReportFileName = Ruta & "Reporte.rpt" ' Esto es para ubicar el reporte. ej. ReportFileName ="C:\Escolar\Reporte.rpt"
  10. 'paso 4
  11. CrystaReport1.WindowState = crptMaximized 'Esto es para que el estado de la ventana te lo muestre Maximizado, es opcional
  12. 'Paso 5
  13. CrystaReport1.Action = 1 'Es para que te muestre el Visor de Reporte, opcional
  14.  
  15. 'Opciones
  16. 'En caso de querer mandar a imprimir directo el Paso 4 se omite y el paso cincon queda así: CrystaReport1.Action = 0
  17.  
  18. 'Para mandar a imprimir una tabla haces esto en el paso 2, se me ocurre esto:
  19. 'CrystaReport1.SelectionFormula="{Calificaciones.cve_alumno}<>0" ->en caso de que la cve_alumno sea tipo numero (double, long, integer)
  20. 'CrystaReport1.SelectionFormula="{Calificaciones.cve_alumno}<>'0' " ->en caso de que la cve_alumno sea tipo texto
  21.  
  22.  
  23.  

Epero poder Haberte ayudado Richardisa

20
Crystal Reports / Re: Imprimir Directamente
« en: Sábado 1 de Abril de 2006, 01:43 »
Hola, mira yo hago lo siguiente, utilizo Crystal 8.0,

Código: Text
  1. CrystalReport1.Action=0
  2.  

Espero y te ayude

21
Visual Basic 6.0 e inferiores / Re: Manejo De Fechas
« en: Martes 7 de Febrero de 2006, 00:20 »
Podria intentar esto:
necesita dos controles de fecha (no recuerdo su nombre), o dos textbox

para los controles de fecha intenta esto en un recordset
Citar
"SELECT * FROM TABLA WHERE FECHA>=" & fecha1.value & " AND FECHA <=" & fecha2.value

para las cajas de texto:

Citar
"SELECT * FROM TABLA WHERE FECHA>=" & CDate(txt1.value) & " AND FECHA <=" & CDate(txt2.value)

Espero te sirva

22
Visual Basic 6.0 e inferiores / Re: No Repetir Items En Un Listbox
« en: Lunes 10 de Octubre de 2005, 19:58 »
Gracias CpMario, tu codigo me sirvió a la perfección.

No soy nuevo en el mundo de la programación, pero se me olvido como hacer un ciclo de busquedas. ;)


Mil Gracias :)

23
Visual Basic 6.0 e inferiores / No Repetir Items En Un Listbox
« en: Jueves 6 de Octubre de 2005, 00:55 »
Hola a todos:

El Codigo qeu he hecho es el siguiente:

Código: Text
  1. Tramite As String
  2. Agregado as Boolean
  3. GridTab2=DBGrid
  4. LstTramites=ListBox
  5.  
  6.  
  7. Tramite = GridTab2.Columns(0).Text
  8. For i = -1 To LstTramites.ListCount    
  9.        If Tramite = LstTramites.Text Then
  10.              Agregado = False    
  11.        Else        
  12.              Agregado = True
  13.        End If
  14. Next i
  15.  
  16. If Agregado = True Then    
  17.         LstTramites.AddItem TramiteElse    
  18.         MsgBox &#34;El Trámite ya fué agregado&#34;, vbInformation
  19. End If
  20.  


Espero su Colaboración

24
Visual Basic para principiantes / No Repetir Items En Un Listbox
« en: Miércoles 5 de Octubre de 2005, 22:18 »
Hola a todos:

El Codigo qeu he hecho es el siguiente:
Código: Text
  1. Tramite As String
  2. Agregado as Boolean
  3. GridTab2=DBGrid
  4. LstTramites=ListBox
  5.  
  6.  
  7. Tramite = GridTab2.Columns(0).Text
  8. For i = -1 To LstTramites.ListCount    
  9.         If Tramite = LstTramites.Text Then
  10.               Agregado = False    
  11.         Else        
  12.               Agregado = True
  13.         End If
  14. Next i
  15.  
  16. If Agregado = True Then    
  17.          LstTramites.AddItem TramiteElse    
  18.          MsgBox &#34;El Trámite ya fué agregado&#34;, vbInformation
  19. End If
  20.  

Espero su Colaboración

Páginas: [1]