Discussion :

[mzelvivi]

Pour RechDom, les guillemets sont critiques et il met #Erreur à la moindre faute de frappe. Peux-tu faire un copier-coller de ta saisie ?

[Marmouz]

=RechDom("[Nb jrs loc FSIA ]";"[Dossier FSI Non Remorqué]")

Je recherche dans la requête Dossiers FSI Non Remoqué la valeur Nb jrs loc FSIA...

[mzelvivi]

Je crois qu'il y a un espace en trop :

=RechDom("[Nb jrs loc FSIA|]";"[Dossier FSI Non Remorqué]")

[Marmouz]

oui il y avait bien un espace à cat endroit mais je l'ai supprimé mais ça marche toujours pas "erreur"
Sinon quelle est la syntaxe dans RechDom ,c'est peut être cela qui ne va pas

[mzelvivi]

Non non, la syntaxe est bonne, pour info c'est rechdom("[Champ]";"[Requête]")
C'est bizarre que ça ne marche pas, j'ai testé avec tes noms au cas où et chez moi ça passe nickel !
Tu as quelle version d'Access ?

[Marmouz]

Pack Office XP

[Marmouz]

c bon ça marche...youpi

en fait c'était =rechdom("[champ]";"requête")

[mzelvivi]

Bravo !
Moi j'ai Access 2000, ça marche avec ou sans les crochets. C'est un peu bizarre que ça change pour XP mais vraiment bravo d'avoir trouvé !
Du coup tout marche, alors ! non ?

[Marmouz]

non pas tout encore...
- maintenant je dois actualiser automatiquement les données qd je change la selection dans la liste deroulante.
- créer de nouvelles tables et nouvelles requétes pour compléter mon fomulaire

Merci

[Marmouz]

une petite aide pour l'actualisation ??

[mzelvivi]

Bonjour,
Utilise Requery dans AfterUpdate, juste avant End Sub: http://www.developpez.net/forums/vie...238281#2238281

[Marmouz]

Merci mais en fait, ce que je dois faire actuellement c'est la chose suivante pour actualiser :
Choisir dans ma liste deroulante un cade
Passer en mode création
Revenir en mode affichage opur que les données s'actualisnet.

En mettant les requery dans chaque zone de texte, ça ne change rien...je doit toujours fair ela même manip

Merci

[mzelvivi]

requery dans chaque zone de texte

?? Moi j'ai dit "pour" chaque zone de texte c'est pas pareil
Je crois que tu as mis ça au mauvais endroit :

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 Liste1_AfterUpdate() 
  Me!Liste2 = Me!Liste1 
  Me!Texte0.Requery
  Me!Texte1.Requery
  Me!Texte2.Requery 'etc
End Sub 
 
Private Sub Liste2_AfterUpdate() 
  Me!Liste1 = Me!Liste2 
  Me!Texte0.Requery
  Me!Texte1.Requery
  Me!Texte2.Requery 'etc
End Sub

Et là ça marche, sûr !

Tu peux aussi simplifier comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Liste1_AfterUpdate() 
  Me!Liste2 = Me!Liste1 
  FcnMiseAJour
End Sub 
 
Private Sub Liste2_AfterUpdate() 
  Me!Liste1 = Me!Liste2 
  FcnMiseAJour
End Sub
 
Private Function FcnMiseAJour()
  Me!Texte0.Requery
  Me!Texte1.Requery
  Me!Texte2.Requery 'etc
End Function