Discussion :

[tahaji]

Bonjour tout le monde,

Je sollicite votre précieuse aide dans ma demande suivante:

Le fichier en pièce jointe "veille" contient deux formulaires : "frmPromoteur" et "frmProjet".

Objectif :

Quand je sélectionne un promoteur dans la formulaire "frmPromoteur" et que clique sur le bouton "suivant" je veux ouvrir le formulaire "frmProjet" afficher que les projets du promoteur sélectionné

J'ai essayé avec le code :

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub btnProjets_Click()
    Dim sDocName As String, sLinkCriteria As String
    sDocName = "frmProjet"
    sLinkCriteria = "NomPromoteur=" & NomPromoteur
    DoCmd.OpenForm sDocName, , , sLinkCriteria
    Forms(sDocName).FilterOn = True
End Sub

Mais je reçois le message d'erreur suivant:

Code :

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

1
2
3
4
 
erreur d'éxecution '3075': 
Erreur de synthaxe (opérateur) dans l'expression 
"NomPromoteur=AliDari"

Cordialement,
Taha.

[nico84]

Bonjour,

C'est une string donc à mettre entre ' :

Code :

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

sLinkCriteria = "NomPromoteur='" & NomPromoteur & "'"

Sinon Access cherche un champ Alibari et il ne le trouve pas

[tahaji]

salut @nico84

J'ai essayé la modification que tu m'as proposé et je reçois l'erreur :

"Erreur d’exécution 3464

Type de données incompatible dans l'expression du critère "

[nico84]

Il faut regarder ce qui ne va pas du coté de la table ou du formulaire

[tee_grandbois]

bonjour,

Il faut regarder ce qui ne va pas du coté de la table ou du formulaire

en effet la liste déroulante NomPromoteur du formulaire frmProjet a sa première colonne cachée contenant l'identifiant unique N°: encore un exemple de mauvaise utilisation d'une liste déroulante car on préfère mémoriser dans la table ce qui visible (c'est à dire le nom ou le libellé) plutôt que le code associé qui, du coup, ne sert plus à grand chose ...
Seule solution utiliser une "rustine" douteuse pour récupérer l'identifiant :

Code :

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

1
2
3
4
5
6
7
Private Sub btnProjets_Click()
    Dim sDocName As String, sLinkCriteria As String
    sDocName = "frmProjet"
    sLinkCriteria = "N°=" & DLookup("N°", "tblPromoteur", "Nompromoteur=""" & Me.NomPromoteur & """")
    DoCmd.OpenForm sDocName, , , sLinkCriteria
    'Forms(sDocName).FilterOn = True   'ligne inutile puisque on utilise déjà le paramètre WhereCondition de OpenForm
End Sub