[débutante][formulaire]2 contraintes pour un bouton

**astirw** · 25/04/2007, 13h41

Bonjour,
A chaque jour son problème...
Je ne suis vraiment pas callée en programation don g fait un petit "truc" qui me parraissait logique mais ca marche pas ...
Donc je suis sur un bouton qui lorsqu'on le clique ouvre un formulaire(appelé ici virement) qui renvoie les données qu'on vient d'écrire dans le formulaire(données) où il y a le bouton.
Mon probleme: Je veux que le formulaire "Virement"apparraisse celon deux champs du formulaire "données". G pris l'assistant access pour fair cela, seulement à son niveau on ne peut choisir qu'une seule contrainte, g donc rajoutée dans le code la deuxième contrainte et g mis un simple "AND" en toute logique des communs des mortels... mais bon c pas ca ...
Donc que dois-je écrire entre ces deux contraintes" ????
Merci

Je vous joins le code ...

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
16
17
18
19
20
21
22
23
24
On Error GoTo Err_Commande33_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "VIREMENT"
 
    stLinkCriteria = "[montant]=" & "'" & Me![Texte14] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
   AND
 
    stLinkCriteria = "[date]=" & "'" & Me![Texte12] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
 
Exit_Commande33_Click:
    Exit Sub
 
Err_Commande33_Click:
    MsgBox Err.Description
    Resume Exit_Commande33_Click
 
End Sub

**jean-paul lepetit** · 25/04/2007, 13h50

Salut,

Peut être ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
On Error GoTo Err_Commande33_Click
   Dim stDocName As String
   Dim stLinkCriteria As String
   stDocName = "VIREMENT"
 
  stLinkCriteria = "[montant]=" & "'" & Me![Texte14] & "' and [date]=" & "'" & Me![Texte12] & "'"
  DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Commande33_Click:
   Exit Sub
 Err_Commande33_Click:
  MsgBox Err.Description
  Resume Exit_Commande33_Click
 End Sub

**astirw** · 25/04/2007, 13h56

Re,
Quand je fais ça, il m'écrit "l'action Openform à été annulée" ...

Invité · 25/04/2007, 13h58

Bonjour

Si [Date] est bien une date met des # à la place des ' autour de Me![Texte12]

Starec

**jean-paul lepetit** · 25/04/2007, 13h58

Excuses moi, j'avais pas vu qu'il y avait des dates

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
On Error GoTo Err_Commande33_Click
   Dim stDocName As String
   Dim stLinkCriteria As String
   stDocName = "VIREMENT"
 
  stLinkCriteria = "[montant]=" & "'" & Me![Texte14] & "' and [date]= #"Me![Texte12] & "#"
  DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Commande33_Click:
   Exit Sub
 Err_Commande33_Click:
  MsgBox Err.Description
  Resume Exit_Commande33_Click
 End Sub

**astirw** · 25/04/2007, 14h06

Heuu, c dans le code que Jean Paul Leptit m'a envoyé que je dois changer n'est-ce pas ? et g fais ça, comme je pense l'avoir compris...
et maintenant il me marque qu'il y a une erreure de syntaxe

(Comprenez bien que ce n'est pas de la mauvaise fois si je fais pas les choses exactement comme vous me le demandez, mais c vraiment que j'ai l'impression d'écrire une autre langue dont je ne comprend rien ...)

stLinkCriteria = "[montant]=" & "'" & Me![Texte14] & "' and [date]=" & # & Me![Texte12] & #

**astirw** · 25/04/2007, 14h12

Re,
Donc merci pour la rectification, mais il me marque "erreure de syntaxe"...
Je redonne le code que tu m'as donné que g mis dans mon formulaire, au cas où...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Commande33_Click()
POn Error GoTo Err_Commande33_Click
   Dim stDocName As String
   Dim stLinkCriteria As String
   stDocName = "VIREMENT-5MILLIONS"
 
  stLinkCriteria = "[montant]=" & "'" & Me![Texte14] & "' and [date]= #"Me![Texte12] & "#"
  DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Commande33_Click:
   Exit Sub
Err_Commande33_Click:
  MsgBox Err.Description
  Resume Exit_Commande33_Click
End Sub

**jean-paul lepetit** · 25/04/2007, 14h19

Un P en trop devant OnError Goto

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 Commande33_Click()
On Error GoTo Err_Commande33_Click
   Dim stDocName As String
   Dim stLinkCriteria As String
   stDocName = "VIREMENT-5MILLIONS"
 
  stLinkCriteria = "[montant]=" & "'" & Me![Texte14] & "' and [date]= #"Me![Texte12] & "#"
  DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Commande33_Click:
   Exit Sub
Err_Commande33_Click:
  MsgBox Err.Description
  Resume Exit_Commande33_Click
End Sub

**astirw** · 25/04/2007, 14h25

Re
Décidément ça ne marche toujours pas, il y a marqué qu'il y a "une erreure de syntaxe" et la phrase ou vus avez fait les modifs est mise en gras ...
-----
(Pour les messages privés, je suis au bureau et je n'y ai pas accés durant la journée .. Merci qd même !)