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

Hola

Quita todos los On Error Resume Next que tengas, es una mala costumbre usarlos a menos que sea estrictamente necesario. Luego corre la macro del problema y envía captura de pantalla del error así como señala en qué fila se da. Ojo que es probable que no esté entre lo que has enviado. Ojo, si tiene otros controles tipo On Error Goto, coméntalos  para que no controlen el error. 

Mientrasn haces lo que te indica Abraham, Inténtalo así:

Sub AllUnidades(TUnidades As String, lvUnidad As Control)

o quizás:

Sub AllUnidades(TUnidades As String, lvUnidad)

Yo creo que si es ahí en la variable el problema, pues le puse entre paréntesis y ya se ejecuto sin problemas...

Aunque  no se con exactitud en verdad porque no se ejecuta normal, a no ser que sea que la variable la tenga que declarar en el mismo procedimiento. 

Pero si se lo quito, manda el siguiente error:

Editado el el 24 de junio5 años por hectormendozas