Discussion :

[xtaze]

bonjour je suis en train de creeer un formulaire en vba

je creer donc mon bouton avec l'evenement on clik

la jappel ma procedure d'ajout

le probleme c'est que apres sous access il me dis l'evenement onclick est a lorigine dune erreur....


donc voici le code de creation du bouton et la procedure d'ajout d'un bouton
:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set bouton = CreateControl(ff.Name, acCommandButton, acDetail, , , 8000, 500, 2000, 800)
bouton.Properties("caption") = "ajouter un bonzai"
bouton.OnClick = "=ajout_bonzai()"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Sub ajout_bonzai()
 
 DoCmd.GoToRecord , , acNewRec
End Sub

j'ai pareil avec precedent et suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub bouton_precedent_click()
DoCmd.GoToRecord , , acLast
 
End Sub

ps je me suis inspirer du code que genere l'asistant comme exemple mais sur le forum ya la meme synthaxe aussi

merci par avance[/code]

[Maxence HUBICHE]

ajout_bonzai Function et non une Sub

[xtaze]

merci beaucoup sa marche nikel
mais pk lassitant de acces met private sub?

[Maxence HUBICHE]

parce que cela n'est pas prévu pour être passé en fonction ...
L'assistant est TOUJOURS BEAUCOUP PLUS LIMITE que ce qu'on peut faire à la main !

[xtaze]

parce que cela n'est pas prévu pour être passé en fonction ...
L'assistant est TOUJOURS BEAUCOUP PLUS LIMITE que ce qu'on peut faire à la main !

ouai en tous cas sa maide bien car je sui sobliger de faire en vba pour mon exam et il me file tout le code approprier ormis ceratin truc comme justmeent fonction aulieu de sub....
en tout cas merci de ton aide je trouve que c'est quand meem plus agreable que c++ comme langage

+