Discussion :

[sonofliberty]

Bonjour,

En desespoir de cause, je vous pose ma question:

J'aimerai avec un bouton afficher un formulaire X ( basé sur une requete selection) qui puisse etre modifié par l'utilisateur et qui s'ouvre selon 2 critéres.

Aujourd'hui il fonctionne correctement avec 1 seul critére:

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
 
Private Sub Commande171_Click()
On Error GoTo Err_Commande171_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "FORMULAIRE PLANNING PERSO"
 
    stLinkCriteria = "[Date_RDV]=" & "'" & Me![DATERDV_SPECIAL] & "'"
 
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Commande171_Click:
    Exit Sub
 
Err_Commande171_Click:
    MsgBox Err.Description
    Resume Exit_Commande171_Click

J'aimerai qu'il s'ouvre également avec un deuxième critere qui est la valeur d'un champs CODE qui est dans le formulaire Y (ou il y a le bouton d'excecution de X).
Je veux que mon formulaire X s'ouvre quand CODE = CodePerso.
Code perso étant un champ du formulaire X.

Merci de me dire comment rajouter ce deuxieme criteres et que mon formulaire continue a etre modifiable.

Merci enormement.

A+

[Sinclar]

Salut,
Ca devrait marcher comme cela:

[code]
On Error GoTo Err_Commande171_Click

Dim stDocName As String
Dim sql As String
stDocName = "FORMULAIRE PLANNING PERSO"

sql = "[Date_RDV]=" & "'" & Me![DATERDV_SPECIAL] & "'"
sql = sql & "AND"
sql = sql & "[code] =" & Me.CodePerso

DoCmd.OpenForm stDocName, , , sql
[/code]

[sonofliberty]

MERCI BEAUCOUP C'EST SUPEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEERRRRRRRRRR


CA MARCHEEEEEEEEEEEEEEEEEEEEEEEEEEEE


JE SUIS TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP TROP CONTENT

MERCI SINCLAR

[sonofliberty]

un autre petit merci ça mange pas de pain et ca fait plaisir

[matdrap]

J'ai essayé le code place ci-haut et il m'indique comme erreur

"L'action OpenForm à été annuler"...

voici ce que j'ai fait

[code]
Dim sql As String
Dim stDocName As String

stDocName = "frmConsultation"
If Me.lstNomProjet.ListIndex <> -1 Then

sql = "[tblVersionProjet.NoVersionProjet]=" & "'" & Me[lstNomProjet].Column(0) & "'"
sql = sql & "AND"
sql = sql & "[tblProjet.NoProjet]=" & Me![lstNomProjet].Column(3)

DoCmd.OpenForm stDocName, , , sql

est-ce que quelqu'un peu m'aider??

[rob1son76]

Salut,

Bon la réponse vient 2 ans après mais mieux vaut tard que jamais.
Je pense que ton erreur viens d'un oublie de guillemet.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim sql As String
Dim stDocName As String

stDocName = "frmConsultation"
If Me.lstNomProjet.ListIndex <> -1 Then

sql = "[tblVersionProjet.NoVersionProjet]=" & "'" & Me[lstNomProjet].Column(0) & "'"
sql = sql & "AND"
sql = sql & "[tblProjet.NoProjet]=" & "'" & Me![lstNomProjet].Column(3) & "'"

DoCmd.OpenForm stDocName, , , sql