Jump to content

hectormendozas

Pro Member
  • Content Count

    4
  • Joined

  • Last visited

  • Country

    Mexico

About hectormendozas

  • Rank
    Newbie
  • Birthday October 13

Profile information

  • Gender
    Hombre
  • Localización:
    Mexico

Converted

  • Campos
    ,
  • Mi versión de Excel:
    0,2

Recent Profile Visitors

53 profile views
  1. 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:
  2. 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....
  3. Hola que tal Mi Nombre es Hector Mendoza, un gusto poder conocerlos, aunque hace un tiempo me inscribí, no había tenido al oportunidad de presentarme. mi profesión es Sistemas Administrativos, entre al foro para mejorar lo poco que sé de excel, para poder incrementar mis conocimientos. y ahora igual me gustaría me orientaran como poder empezar el recorrido en este portal, así como también, me oriente acerca de la descarga de un libro gratuito que he llenado el formulario varias veces con mi correo, y no me llega el link de descarga, a la bandeja de entrada, ni a la de spam. por lo que les agradeciera de su valioso tiempo y apoyo en ayudarme a conocer un poco mas. de antemano un saludo y les deseo un excelente inicio de semana.
×
×
  • Create New...

Important Information

Privacy Policy