canal visual basic .net

Recursos Visual Basic.NET, VB.NET, Manuales de programación, Tutoriales, Foros de programación, Comunidad de programadores

Usuarios activos:  28

Foros de programación, recursos, tutoriales, sistemas operativos...

Bienvenido a la zona de foros. Participa en alguno de nuestros foros: Foros de visual basic, foros de visual basic.net foros de Crystal reports, programas gratis, foros de C++ - C# , foros de Java, foros de PHP, foros de ASP.net. Seguro que hay un foro que te servirá de gran utilidad y si no lo encuentras avísanos y crearemos uno nuevo.
Resultados 1 al 3 de 3
  1. #1
    Avatar de Carlos200576
    Carlos200576 está desconectado Senior Member Avanzad@
    Fecha de ingreso
    07 jun, 07
    Ubicación
    Mexico
    Mensajes
    133

    Predeterminado

    Que tal foro, el fin de samana pasado postee una pregunta y me respondio ex3 con algo mas que una respuesta directa, me aconseja cambiar mi modo de programacion. El detalle es el siguiente; me aconseja crear modulos y pasar mis rutinas a los modulos pero apenas lo hago y me da error. Este es mi codigo:

    Function EnlaceActPROVEEDORES()
    Dim Cadena As String
    Cadena = "SELECT * FROM Proveedores WHERE iDProveedor=" & iDProvider & ""
    Conecta = App.Path & "\BDs\BdRevisa.MDB"
    Set BaseDatos = OpenDatabase(Conecta)
    Set Dr = BaseDatos.OpenRecordset(Cadena)
    End Function
    Function ActualizaPROVEEDORES()
    EnlaceActPROVEEDORES
    '**********************************
    '**************VALIDA**************
    '**********************************
    Dr.Edit
    Dr!FechaAlta = Format(TXTFECHA.Text, "MM/DD/YYYY")
    Dr!RFC = Trim(TXTRFC.Text)
    Dr!RazonSocial = Trim(TXTRAZON.Text)
    Dr!Domicilio = Trim(TXTDIR.Text)
    Dr!Colonia = Trim(TXTCOL.Text)
    Dr!CP = Trim(TXTCP.Text)
    Dr!Municipio = Trim(CBOCD.Text) + "," + " " + Trim(CBOESTADO.Text)
    Dr!Telefono = Trim(TXTTEL.Text)
    Dr!WWW = Trim(MEBoxWWW.Text)
    Dr!DomicilioFisico = Trim(TXTDIRFIS.Text)
    Dr!ColoniaFisico = Trim(TXTCOLFIS.Text)
    Dr!CPFisico = Trim(TXTCPFIS.Text)
    Dr!MunicipioFisico = Trim(CBOCDFIS.Text) + "," + " " + Trim(CBOEDOFIS.Text)
    Dr.Update
    End Function

    Este codigo en el form me funciona a la perfeccion y lo paso a un modulo y me dice que se requiere un objeto. ALguien me puede ayudar a solucionarlo?

    Gracias

    P.D: El idProvider es una variable.
    Que la fuerza te acompañe !

  2. #2
    Garfield está desconectado Senior Member Expert@
    Fecha de ingreso
    18 mar, 07
    Mensajes
    467

    Predeterminado

    1.- Eso no es una función ya que no te devuelve nada, declaralo como "Public SUB" no function.

    2.- Las variables BaseDatos y DR las tienes que tener definidas en el modulo, te aconsejo como publicas o globales para que las puedas usar sin problemas en cualquier parte de tu programa

    3.- (y aqui el gran problema). Estas haciendo referencia a objetos textbox que según tu código estan en el módulo, por eso el error.
    necesitas indicar donde esta dicho objeto, por ejempo: Form1.TXTDIR.Text

    La ídea de usar módulos es reutilizar código, no pasar todo el código al módulo, las cosas que hagas de forma frecuente pasalas a funciones o procedimientos en los módulos, pero las cosas especificas te recomiendo que las coloques directo en el formulario.



  3. #3
    Avatar de Carlos200576
    Carlos200576 está desconectado Senior Member Avanzad@
    Fecha de ingreso
    07 jun, 07
    Ubicación
    Mexico
    Mensajes
    133

    Predeterminado

    Entendido y captado, Mil Gracias...
    Que la fuerza te acompañe !

Temas similares

  1. Ayuda con codigo no funciona solo
    Por arnoldz9 en el foro Visual Basic 6.0
    Respuestas: 0
    Último mensaje: 04/01/2009, 04:24
  2. Codigo NO Funciona DATAGRID
    Por roberto1983 en el foro Visual Basic 6.0
    Respuestas: 2
    Último mensaje: 16/11/2008, 18:59
  3. código que no funciona para mostrar imégenes
    Por javiergp en el foro Visual Basic 6.0
    Respuestas: 1
    Último mensaje: 05/08/2008, 23:29
  4. Modificar módulos de MSN
    Por K0rl3oN en el foro Visual Basic 6.0
    Respuestas: 0
    Último mensaje: 26/11/2006, 14:29
  5. Ayuda con Variables en Modulos y Forms
    Por Shaxia en el foro Visual Basic 6.0
    Respuestas: 3
    Último mensaje: 10/05/2006, 05:40

Permisos de publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •  
Visual Studio .VisualBasic.net .ADO.NET .ASP.NET .Framework .Crystal report
[Visual Basic .NET · Información legal · Condiciones de uso · Publicidad · Contacto · RSS novedades Foro · Inicio]
Un sitio web de Internelia (Ontecnia) © Copyright 2013 canalvisualbasic.net. Todos los derechos reservados