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.

LinkBack URL
About LinkBacks
Citar