como se puede hacer una funcion??

Iniciado por takumi_01, 12 Junio 2008, 07:49 AM

0 Miembros y 1 Visitante están viendo este tema.

takumi_01

buenas
tengo una duda ya que no e podido encontrarlo, como se puede crear una funcion que cree un nuevo registro en visual basic estando relacionado con access.
gracias.

krackwar

#1
Cita de: takumi_01 en 12 Junio 2008, 07:49 AM
buenas
tengo una duda ya que no e podido encontrarlo, como se puede crear una funcion que cree un nuevo registro en visual basic estando relacionado con access.
gracias.
Programandola  :xD.Un ejemplo de una función:
Public Function mensaje(mensajep As String, titulo As String)
On Error GoTo error
MsgBox mensajep, , titulo
mensaje = 1
Exit Function
error:
mensaje = 0
End Function
Esta es una simple funcion para mostrar un mensaje , que si tiene un error devuelve valor 0 y si funciona devuelve valor 1.
Mi blog
Bienvenido krackwar, actualmente tu puntuación es de 38 puntos y tu rango es Veteran.
El pollo número 1, es decir yo, (krackwar), adoro a Shaddy como a un dios.

Xerok1!

Bueno en realidad "mensaje As String" no se puede llamar así por que da error, ya que "mensaje" ya existe pero buen ejemplo..

Un saludo
[Firma]Esperando haber si acaba el concurso de firmas y la pongo[/Firma]

krackwar

Mi blog
Bienvenido krackwar, actualmente tu puntuación es de 38 puntos y tu rango es Veteran.
El pollo número 1, es decir yo, (krackwar), adoro a Shaddy como a un dios.

cassiani

Cita de: Krackwar en 12 Junio 2008, 17:14 PM
buen , lo camvie por mensajep

Si haces eso, entonces tambien deberías cambiar esto:

CitarPublic Function mensaje(mensajep As String, titulo As String)
On Error GoTo error
MsgBox mensaje, , titulo
mensaje = 1
Exit Function
error:
mensaje = 0
End Function

krackwar

Cita de: cΔssiΔnі en 12 Junio 2008, 17:29 PM
Cita de: Krackwar en 12 Junio 2008, 17:14 PM
buen , lo camvie por mensajep

Si haces eso, entonces tambien deberías cambiar esto:

CitarPublic Function mensaje(mensajep As String, titulo As String)
On Error GoTo error
MsgBox mensaje, , titulo
mensaje = 1
Exit Function
error:
mensaje = 0
End Function
:xD parece qu estoy volado  :xD
Mi blog
Bienvenido krackwar, actualmente tu puntuación es de 38 puntos y tu rango es Veteran.
El pollo número 1, es decir yo, (krackwar), adoro a Shaddy como a un dios.

cassiani

Cita de: Krackwar en 12 Junio 2008, 17:50 PM
:xD parece qu estoy volado  :xD

Siii deja de fumar esas cosas raras!!  :xD

takumi_01

buenas.
gracias por contestar, ensi ocupo agregar uno nuevo es para un proyecto que ocupo entregar.
gracias.

krackwar

Cita de: cΔssiΔnі en 12 Junio 2008, 17:52 PM
Cita de: Krackwar en 12 Junio 2008, 17:50 PM
:xD parece qu estoy volado  :xD

Siii deja de fumar esas cosas raras!!  :xD
No puedo dejarlo :xD :xD :xD.

PD:takumi_01 te sirvio el ejemplo?
Mi blog
Bienvenido krackwar, actualmente tu puntuación es de 38 puntos y tu rango es Veteran.
El pollo número 1, es decir yo, (krackwar), adoro a Shaddy como a un dios.

takumi_01

hola.
ya probe el codigo, pero no me sirvio, ni mis amigos con los que estoy haciendo el proyecto este les salio, gracias por su ayuda y tiempo.