Discussion :

[Melhiril]

Bonjour,

Alors en fait, je commence sur VBA donc évidemment, ça ne marche pas très bien !

J'ai un formulaire de saisie d'information avec un bouton "valider". J'ai trouvé différents codes dans la FAQ que j'ai utilisé, comme:


Private Sub Form_BeforeUpdate(Cancel As Integer)

If MsgBox("Voulez-vous enregistrer les modifications ?",
vbYesNo, "Confirmation") = vbNo Then
Me.Undo
End If

End Sub


Et sur le bouton valider j'ai essayé de mettre un code qui permet de vérifier que tous les champs ont été rempli avant de pouvoir enregistrer et atteindre un nouvel enregistrement , sinon un message box apparaît et la sauvegarde ne se fait pas.

Private Sub BT_valider_Enter()
If tempsPasse.Value <> 0 Then
DoCmd.Save acForm, "F_saisirTempsAffaire_salaries"
DoCmd.GoToRecord , , acNewRec
Else
MsgBox ("Vous n'avez pas saisi le temps")
End If
End Sub

Le code marche si le champ "tempsPasse" est vide, par contre s'il est bien rempli, la sauvegarde se fait mais le message box apparait quand même. Il doit y avoir une erreur dans mon code mais je vois pas...

Quelqu'un peut-il m'aider ?

[timoth]

la ligne:

Code :

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

DoCmd.Save acForm, "F_saisirTempsAffaire_salaries"

permet de sauvegarder un formulaire qui aurait été modifié. Ca ne sert pas a envoyer les infos dans les tables, ceci se fait automatiquement par Access lorsque tes champs sont bien liés a des champs des tes tables.

Si tu veux enregistrer tes infos lorsque tu cliques sur un bouton, j'utiliserais une autre méthode. Je ne lierais pas mes controles avec mes tables (Control Source vide) et j'enverrai le contenu des mes textbox dans les tables via la méthode DAO qui est tres bien expliqué dans un tutorial (voir ici, et plus particulierement la partie 5 qui t'explique comment écrire dans une table)

Autre chose. Il faut que tu mettes ton code dans l'évenement On_Click de ton bouton, et pas On_Enter

Pour la boucle IF, j'avoue que ca me surprend. S'il y a bien qqc dans ta textbox, il ne devrait pas t'afficher ce message. Vérifie bien

[Melhiril]

Effectivement, en attribuant le code sur on_click, ça marche! Je savais pas trop sur lequel le positionner, c'était pas le bon apparemment ^^

Pour le tuto, je vais regarder ça de plus près!

Merci des informations !!

Par contre, je viens de voir un autre petit problème qui n'a pas trop à voir avec le code, mais bon comme j'y suis...
Toujours dans le même formulaire, il y a un champs "Temps" où on saisi des heures. Dans ma table, j'ai mis ce champ en numérique pour que se soit plus simple. Par contre dans la saisie du formulaire, je ne peux pas mettre de décimales. Le 2,5 devient 3, le 0,5 devient 0 ect...
Je ne comprend pas trop d'où ça vient

[timoth]

C'est parce que ton champ est lié a un champ d'une de tes tables et que ce champ a un format de nombre du genre "Integer" ou "Long Integer".
T'emmerde pas et mets "Double", il acceptera les virgules

[Melhiril]

D'accord merci! Ca marche!