Crear un funcion global o clase

[franko1809]

tengo una funcion que llena un datacombo con registros de una tabla de mi bd el codigo lo necesito en varios formularios como hago para poder utilizarlo en cualquier parte del proyecto aqui dejo mi funcion

Function LlenarCliente()
Set rsCateg = New Recordset
rsCateg.Open "SELECT * FROM categoria", dbConex, adOpenStatic, adLockOptimistic
dtcCategoria.BoundColumn = "CodCat"
dtcCategoria.ListField = "NomCat"
Set dtcCategoria.RowSource = rsCateg
End Function

[Avellaneda]

Tendrías que poner la función en un módulo .bas como Public y pasarle como parámetro el nombre del DataCombo:

p.ej. en Module1.bas

Código:

Public Function LlenarCliente(MiCombo As DataCombo)
Set rsCateg = New Recordset
rsCateg.Open "SELECT * FROM categoria", dbConex, adOpenStatic, adLockOptimistic
MiCombo.BoundColumn = "CodCat"
MiCombo.ListField = "NomCat"
Set MiCombo.RowSource = rsCateg
End Function

y para llamar a la función desde cualquier formulario:

LlenarCliente dtcCategoria <- ó el nombre que le hayas puesto a cada DataCombo

Esto siempre que los campos y la tabla sean los mismos. Si quisieras cargar el DataCombo con los datos de otra tabla, deberías además pasarle como parámetros el recordset y los dos campos.

[franko1809]

Vaya que novatada parece tengo que leer mas, algun manual que me recomiendes

saludos