Buenas tardes
Les mando un saludo a esta magnífica comunidad de ayuda...
Quisiera ver la posibilidad en apoyarme en detectar, porque me manda un error de Byref en el siguiente codigo:
Declaro la siguiente Variable en un Modulo
Option Explicit
Public TablaDB As String
###########################################
luego hago el siguiente procedimiento en otro modulo
###########################################
Sub AllUnidades(TUnidades As String, lvUnidad As Object)
Dim Datos As Object
Dim MiConexion As String
Dim Item As Object
AsignarVarConexion
MiConexion = RutaBD & BD
Call Conectar(MiConexion)
sSQL = "SELECT U.IdUnidad, U.Permisionario as IdPermisionario,"
sSQL = sSQL & " P.Permisionario as Permisionario, U.Proveedor as IdProveedor,"
sSQL = sSQL & " Prov.Proveedor as Proveedor, U.DoctoPropiedad as Docto, U.Folio,"
sSQL = sSQL & " U.PaisFabricacion as IdPais, Pa.Pais,U.TipoUnidad as IdTipoUnidad,"
sSQL = sSQL & " TU.TipoUnidad as TipoUnidad, U.Serie, U.Modelo, U.Marca as IdMarca,"
sSQL = sSQL & " M.Marca, U.color as IdColor, C.Color"
sSQL = sSQL & " FROM "
sSQL = sSQL & TUnidades
sSQL = sSQL & " Where U.TipoUnidad = TU.IdTipoUnidad and "
sSQL = sSQL & " U.Proveedor = Prov.IdProveedor and"
sSQL = sSQL & " U.Permisionario = P.IdPermisionario and"
sSQL = sSQL & " U.PaisFabricacion = Pa.IdPais and"
sSQL = sSQL & " U.Marca = M.IdMarca and"
sSQL = sSQL & " U.Color = C.IdColor"
sSQL = sSQL & " Order By U.IdUnidad"
Set DatosSql = Conexion.Execute(sSQL)
On Error Resume Next
Do While Not DatosSql.EOF
Set Item = lvUnidad.ListItems.Add(Text:=DatosSql.Fields(0))
Item.SubItems(1) = UCase(DatosSql.Fields(2))
Item.SubItems(2) = DatosSql.Fields(4)
Item.SubItems(3) = DatosSql.Fields(11)
Item.SubItems(4) = UCase(DatosSql.Fields(14))
Item.SubItems(5) = DatosSql.Fields(12)
Item.SubItems(6) = UCase(DatosSql.Fields(16))
DatosSql.MoveNext
Loop
DesconectarDatosSql
CerrarConexionDatos
End Sub
###############################################
Luego en un Formulario mando a Llamar el procedimiento:
Sub CargarTodasLasUnidades()
TablaDB = " Unidades U, TipoUnidad TU, Permisionarios P, Colores C, Marcas M, Paises Pa, Proveedores Prov"
Me.ListView1.ListItems.Clear
LimpiaListView
Call AllUnidades(TablaDB, Me.ListView1)
End Sub
#################################################
Mandandome el siguiente mensaje de Error
!Error de compilacion de ByRef no coincide.
#################################################
Quisiera solicitar de su apoyo para saber la razón por la cual me marca ese error?? si según como yo lo veo, son del mismo tipo ver en qué me equivoque??
De antemano muchísimas gracias por su apoyo....