|
|
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 - FRIJU
Páginas: 1 2 [3] 4 5 ... 7
51
« en: Lunes 15 de Diciembre de 2003, 08:04 »
Igual os vale esto:
Public Function MiraReferenciasVBA()
Dim Ref As Reference
'Puede servir para cuando distribuyamos una aplicacion
'con referencias externas a funciones inmersas en: OCX,DLL, MDE, MDB...)
'que nosotros en el proyecto hemos referenciado desde una determinada ubicación
'local de nuestro PC y a la hora de ejecutar el programa el usuario, pueda dar errores
'por no tener dichas referencias o tenerlas en otra ubicacion distinta
'y de esta forma el usuario nos pueda avisar de esta contingencia.
'Esta función se puede poner en el formulario de inicio de la aplicación
'para avisar al usuario de este tema.
For Each Ref In References
If Ref.IsBroken = True Then
If CrearNuevaReferencia("C:\FondoAccess.dll") = False Then
MsgBox "No se ha podido regenerar la referencia.", vbCritical + vbOKOnly, "Aviso"
Else
MsgBox "La Referencia, " & Ref.FullPath & " se ha establecido", vbExclamation + vbOKOnly, ""
End If
End If
Next Ref
End Function
Public Function CrearNuevaReferencia(PathCompletoFichero As String) As Boolean
Dim Ref As Reference
On Error GoTo Error_CrearNuevaReferencia
Set Ref = References.AddFromFile(PathCompletoFichero)
CrearNuevaReferencia = True
Exit_CrearNuevaReferencia:
Exit Function
Error_CrearNuevaReferencia:
MsgBox "Aviso Nº: " & Err & "..." & Err.Description & " [" & PathCompletoFichero & "]", vbCritical + vbOKOnly, "Aviso de Error"
CrearNuevaReferencia = False
Resume Exit_CrearNuevaReferencia
End Function
52
« en: Jueves 11 de Diciembre de 2003, 07:55 »
Muchisimas gracias a todos! Lo probaré. 
53
« en: Miércoles 10 de Diciembre de 2003, 14:40 »
Moitas Gracias Brroz!! Lo probaré. Como siempre tan eficiente. 
54
« en: Miércoles 10 de Diciembre de 2003, 14:38 »
StrSql = "SELECT WHERE ;"
Set Rs = DB.Execute(StrSql)
Me.Adodc1.RecordSource = StrSql
Me.Adodc1.Refresh
Set Me.ListadoCursillosRealizados.DataSource = Me.Adodc1
55
« en: Miércoles 10 de Diciembre de 2003, 13:08 »
Hola Compañer@s!!! Como puedo anular la x del y dejar los botones de maximizar y minimizar de la barra. 
56
« en: Miércoles 10 de Diciembre de 2003, 13:00 »
Declaras :
Dim Rpt As CRAXDRT.Report ' Guardamos el reporte
Dim cr As New CRAXDRT.Application ' Conexión con Crystal report
Set Rpt = cr.OpenReport("\\Informe.rpt")
FrmInformesResultado.CrInforme.ReportSource = Rpt
Rpt.Database.SetDataSource Rs
FrmInformesResultado.CrInforme.ViewReport
espero que te sirva
57
« en: Miércoles 19 de Noviembre de 2003, 11:03 »
el 'MouseDown' lo tengo controlado. Muchas gracias!!!!! 
58
« en: Miércoles 19 de Noviembre de 2003, 10:59 »
Otra vez más te tengo que agradecer tu rapidez y eficacia en las respuestas. eres muy bueno Brroz. Moitas gracias!!!!!!!!! 
59
« en: Miércoles 19 de Noviembre de 2003, 09:53 »
Hola Compañer@s!
Tengo en un formulario un ListView, al que le asocio imagenes para acceder a los distintos menús que tiene la base de datos.
Mi problema es el siguiente:
Cuando hago click, fuera de cualquier icono me sale un error " Error 91 en tiempo de ejecución", varible o tipo de object o la variable With no está establecida.
Intento controlar el error pero no me hace caso:
Código:
Private Sub ListView1_Click()
On Error GoTo ControlErrores
Select Case ListView1.HitTest(xx, yy).Key
Case "ACADEMIAS"
Unload Me
FrmAcademias.Show 1
Alguien sabe como arreglarlo?
Muchas gracias de Antemano.
60
« en: Martes 18 de Noviembre de 2003, 12:57 »
Muchas gracias Brroz!!!! Fijate que ignorante o poco curiso soy que no había entrado nunca a u2u. La curisosidad no era maliciosa sino a veces con los Alias que nos ponemos, no sabemos como escribir algunas palabras en fenemino o masculino. 
61
« en: Martes 18 de Noviembre de 2003, 12:05 »
Hola Compañer@s!
Tengo en un formulario un datagrid, asociado a una conexión Obdc. cuando actualizo una fila quiero que me generé otra línea.
¿para esto le tengo que vover a dar el origen de datos?
le tengo puesto en evento "Listado_de_Preguntas_AfterColUpdate"
Muchas Gracias.
l:kiss:
62
« en: Lunes 10 de Noviembre de 2003, 14:17 »
Muchisimas gracias Angeles!!!!! 
63
« en: Lunes 10 de Noviembre de 2003, 13:00 »
Hola Brroz! Como siempre tan amable, por cierto eres chico o chica, no pretendo ser indiscreto,pero no se como dirigirme a ti. Respecto al origen de datos, le asigno cuando doy a un botón de validación para que el datagrid al abrir el formulario este en blanco. Moitas gracias de todas formas
64
« en: Lunes 10 de Noviembre de 2003, 12:41 »
Hola a tod@s! Tengo en un formulario un datagrid, tengo en evento click que realize una serie de cosas, el caso es que solo deseo cuando tenga datos y no cuando este vacio. ¿alguien me puede decir como se controla esto? 
65
« en: Jueves 6 de Noviembre de 2003, 08:34 »
No es lo mismo pero puede ir por aquí el tema
66
« en: Miércoles 5 de Noviembre de 2003, 08:01 »
Moitas Gracias Brroz!!! Creo que esto es lo que quiero, lo probaré! 
67
« en: Martes 4 de Noviembre de 2003, 11:07 »
Hola a tod@s!
Tengo un ListView, al que le añado una lista de imágenes para elegir los distintos menús que tengo en el programa. ¿Se puede indicar el lugar, expresado con Width y Height por ejemplo?
Muchas Gracias a to@s.
68
« en: Lunes 3 de Noviembre de 2003, 17:31 »
Hola de nuevo Brroz!! Lo probaré, ¿pero como se ocultan de la lista las columnas que no deseas enseñar. Moitas gracias!!!
69
« en: Jueves 30 de Octubre de 2003, 15:33 »
Hola Compañe@s! Estoy trabajando con un ListBox y deseo cargar una lista de solo se vea la primera columna, por ejemplo. Y cuando de un doble click me lleve la información de cada columna a un control que le asigno yo. Yo creía que ra así. Me.TxtAcademia = ListaAcademias.List(1) Muchas gracias a tod@s. 
70
« en: Lunes 20 de Octubre de 2003, 10:35 »
Muchisimas gracias Rober!!!
71
« en: Lunes 20 de Octubre de 2003, 08:18 »
Hola Compañer@s! Alguien me puede decir que código debo de utilizar para saber si existe un archivo en mi Pc y como lo utilizo. Muchas Gracias.
72
« en: Miércoles 15 de Octubre de 2003, 17:04 »
Te comento tengo hecho algo parecido con el idioma. Depende con que idioma entres al programa el informe se presenta con el ¡dioma elegido. para ello debes de dar parametro. Rpt.ParameterFields.GetItemByName("Idioma").AddCurrentValue (IDIOMA) Idioma es una varible donde memorizo el idoma luego en el informe debes de hacer lo siguiente: Un campo de formula y editar el campo. Por ejemplo: if {?Idioma} = "CAS" then "Fecha Inicio" else if {?idioma} = "FRA" then "Date" Espero que te valga
73
« en: Miércoles 15 de Octubre de 2003, 16:41 »
por ejemplo le pones como parametro
'*Ver detalle, Si o No.
Rpt.ParameterFields.GetItemByName("Ver detalle").AddCurrentValue CBool(GrpDetalle.Value)
74
« en: Miércoles 15 de Octubre de 2003, 16:16 »
Originalmente publicado por FRIJU
Hola Roberto!
Lo he comprobado, y es ese error, pero el caso es que no me saca ni el Msgbox, no pasa por la rutina de error.
Me dice:
Error '3556' en tiempo de ejecución:
ha intentado abrir una base de datos que está abierta por el usuario 'admin' en la maquina 'xxxx' en modo exclusivo.
Lo he probado en una base de datos programada en Access y funciona pero en VB no
75
« en: Miércoles 15 de Octubre de 2003, 16:14 »
Hola Roberto! Lo he comprobado, y es ese error, pero el caso es que no me saca ni el Msgbox, no pasa por la rutina de error. Me dice: Error '3556' en tiempo de ejecución: ha intentado abrir una base de datos que está abierta por el usuario 'admin' en la maquina 'xxxx' en modo exclusivo. Lo he probado en una base de datos programada en Access y funciona pero en VB no
Páginas: 1 2 [3] 4 5 ... 7
|
|
|
Mostrar Mensajes
