Funciones

[ema21del9]

Necesito hacer una funcion que lo unico que haga es cambiar unos items en un combobox, a esta funcion no hay que agregarle ningun parametro, lo unico que quiero es ejecutarla cuando lo necesite, como puedo hacer?

[David]

¿Cuál es la duda exactamente? Ya que si es sólo ejecutar:

Código vb:

Sub Cambio()
' Código
End Sub
 

Y para llamarlo:

Código vb:

Cambio
 

[ema21del9]

Entonces lo nombro como sub ? porque yo probe con function cambio() y no funciona.

Donde lo tengo que declarar?

[David]

Function o Sub depende de si pretendes devolver un valor o no.

Lo declaras en el contexto donde lo vayas a usar.

[dwin]

pos yo lo uso como

function nombre ()

'codigo aqui

end function

y para llamarlo

nadamas

call nombre

[vicentecamesella]

Para ese caso llamalo no como funcion si no como sub en un modulo.bas y listo

[seba123neo]

parece que no entendio ...a ver asi:

Código vb:

Private Sub Form_Load()
    Call CambiarCombos
End Sub
 
Private Sub CambiarCombos()
    combo1.ListIndex = -1
    combo2.ListIndex = -1
End Sub
 

saludos.

[dwin]

hammmmmm

haber haber.. lo q comento vicentecamesella

si tengo un modulo.bas

ahi pongo todo mi codigo

private sub conectar()

Dim Cxn As ADODB.Connection
Dim AdoS As ADODB.Recordset
Dim CxnFac As String

Set Cxn = New Connection
Cxn.CursorLocation = adUseClient
CxnFac = "Driver={MySQL ODBC 3.51 Driver};Server=127.0.0.1;Port=3306;Option=131072;S tmt=;Database=dwin;Uid=root;Pwd=123456;"
Cxn.Open CxnFac ' Abrimos la conexion
Set AdoS = New Recordset
End Function

y tengo mi modulo

y ya nadamas llamo a mi sub

¿Como?

sub conectar

o

call conectar

nadmas pa salir de dudas jej e

y mejorar codigo.. :D

[seba123neo]

si declaras algo como privado en un modulo no vas a poder llamarlo desde afuera...le podes poner el call conectar o directamente conectar...

[vicentecamesella]

Crea un modulo nuebo con esa funcion y desde donde lo quieras usar lo llamas call ejemplo

Modulo bas

sub MensajeError (valor as string)

MsgBox valor

end sub

Fromulario Frm

Command1_click()

call MensajeError("Hola Mundo")

End sub

Pruebalo y veras lo sencillo si quieres agregame a tu correo el mio es [email protected] y te paso codigos en caso de que requieras

[dwin]

wowwwwwww

ok

te agrego

asi me echas las manos con algunas dudillas que tenga

va

[ema21del9]

Muchas gracias a todos, muy utiles todos los comentarios para mejorar mi sistema.