Discussion :

[fanny56]

Bonjour,

Je dois créé un outils Access pour mon travail et pour faire un truc je dois utiliser le langage VBA et les macros mais je n'y connais rien! et les cours que j'ai pu trouver sur ce site ne m'aident pas vraiment...

je vous explique ma situation:

deux formulaires:

dans le premier, l'utilisateur doit saisir une ville dans une liste déroulante ("VilleDepart") et appuyer sur Ok pour le renvoyer sur un 2ème formulaire.
je souhaiterais que la valeur saisie dans la liste déroulante se répercute (se duplique) sur le champs "NomVille" du 2ème formulaire et que ça ouvre en même temps le 2ème formulaire.

J'ai essayer de bidouiller quelquechose mais ça ne marche pas...:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub OK_Click()
    'Si la liste déroulante "VilleDepart" est nulle alors
 If "VilleDepart" = "" Then
    ' Afficher un message " Il faut saisir une ville valide!", Ok, annuler
    villedepart = MsgBox("Il faut saisir une ville valide", vbOKCancel)
    ' Sinon
Else
    'la valeur saisie dans la liste déroulante "Villedepart" du formulaire "Question Ville" est alors dupliquée ou renvoyée dans le champs "NomVille" du formulaire "réponse ville de départ"
    Forms("réponse Ville de départ").NomVille = Forms("question Ville").ListBox("Ville départ").Value
    'Charger le formulaire "Réponse ville de départ"
    DoCmd.OpenForm ("réponse Ville de départ")
End If
End Sub

J'espère que vous voudrez bien me donner un ptit coup de main et vous en remercie d'avance!

[madefemere]

Bonsoir,

Bienvenu dans le forum et ne te décourages pas.

Tu ne peux pas attribuer une valeur au contrôle de ton formulaire s'il n'est pas ouvert. Inverses tes 2 lignes entre Else et End if

Code :

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

1
2
3
4
'Charger le formulaire "Réponse ville de départ"
DoCmd.OpenForm ("réponse Ville de départ")
'la valeur saisie dans la liste déroulante "Villedepart" du formulaire "Question Ville" est alors dupliquée ou renvoyée dans le champs "NomVille" du formulaire "réponse ville de départ"
Forms("réponse Ville de départ").NomVille = Forms("question Ville").ListBox("Ville départ").Value

Conseil : Utilises l'Underscore "_" en séparation de tes noms de contrôles ou d'objets pour ne pas avoir de problème de syntaxe des fois.

J'espère que ça t'aidera.