Discussion :

[rag83]

Bonjour,

j'aimerais savoir si, dans un formulaire en mode continu, il est possible de concaténer deux champs 1 et 2 seulement si le champ 2 ne contient pas telle ou telle valeur.

Il y aurait donc soit

[champ1] &" " & [champ2]

soit seulement

[champ1]

si mon champ2 contient certaines valeurs.

Merci

[madefemere]

Bonsoir,

Tu as la fonction VRAIFAUX ou IIF en anglais pour faire cela. Comme source du contrôle résultat, tu mets :

Code :

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

= VRAIFAUX (Tacondition; [champ1]; [champ1] &" " & [champ2])

Cordialement,

[rag83]

Bonsoir Madefemere et merci pour ta réponse,

en effet ça fonctionne quand je mets le code directement dans la source du contrôle, par contre je pense qu'il va falloir que je fasse ça en VBA car mon contrôle alterne une source ou l'autre au clic sur un bouton.

J'ai essayé de le faire mais je me retrouve avec un #Nom ? affiché dans le contrôle quand je passe sur la source avec le iif.

Code :

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

1
2
3
4
5
6
7
If Me.ncrs.ControlSource = "nomCommercial" Then
    Me.ncrs.ControlSource = IIf([prefixeRS] = "Monsieur" Or [prefixeRS] = "Madame", [raisonSociale], [raisonSociale] & " " & [prefixeRS])
    Me.Auto_EnTete0.Caption = "RAISON SOCIALE"
Else
    Me.ncrs.ControlSource = "nomCommercial"
    Me.Auto_EnTete0.Caption = "NOM COMMERCIAL"
End If

Qu'est ce qui ne va pas ?

[madefemere]

Bonsoir,

Je pense que c'est parce que tu n'instancies pas correctement le nom du champ [prefixeRS] ou cela n'existe même pas dans ton formulaire ??
Et avec :

Code :

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

1
2
3
4
5
6
7
8
 
If Me.ncrs.ControlSource = "nomCommercial" Then
    Me.ncrs.ControlSource = IIf(Me.prefixeRS = "Monsieur" Or Me.prefixeRS = "Madame", Me.raisonSociale, Me.raisonSociale & " " & Me.prefixeRS)
    Me.Auto_EnTete0.Caption = "RAISON SOCIALE"
Else
    Me.ncrs.ControlSource = "nomCommercial"
    Me.Auto_EnTete0.Caption = "NOM COMMERCIAL"
End If

Cordialement,

[rag83]

Bonsoir,

Petit soucis en effet, le champ prefixeRS n'existait pas dans mon formulaire, je l'ai donc ajouté mais cela ne fonctionne toujours pas, ni avec l'un, ni avec l'autre des codes ci-dessus, j'ai toujours #Nom ? qui s'affiche.

C'est la concaténation qui semble poser problème car par exemple

Code :

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

Me.ncrs.ControlSource = IIf([prefixeRS] = "Monsieur" Or [prefixeRS] = "Madame", "raisonSociale", "raisonSociale" & "prefixeRS")

n'affiche pas #Nom ? mais seulement "raison Sociale" pour tous les enregistrements

[madefemere]

Bonjour,

Plutôt que ta condition est toujours "VRAI" ?
De plus, dans ta concaténation, au lieu d'attribuer la valeur du champ à la concaténation des valeurs, tu attribues au champ les valeurs "texte" : "raisonSociale" si la condition est vraie ET "raisonSociale" & "prefixeRS" si c'est faux

Essaie

Code :

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

Me.ncrs.ControlSource = IIf((Me.prefixeRS = "Monsieur" Or Me.prefixeRS = "Madame"), Me.raisonSociale, Me.raisonSociale & " " & Me.prefixeRS)

Cordialement,

[rag83]

OK je vois mais malheureusement ça ne fonctionne toujours pas

Ce qui marche parfaitement, directement dans la source contrôle de la zone de texte ncrs :

Code :

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

=VraiFaux(([prefixeRS]="Monsieur" Ou [prefixeRS]="Madame");[raisonSociale];[raisonSociale] & " " & [prefixeRS])

Ce qui ne marche pas : en VBA, ceci ne provoque pas d'erreur (n'affiche pas #Nom ?) mais n'affiche que la raisonSociale peu importe que la condition soit vrai ou faux.

Code :

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

Me.ncrs.ControlSource = IIf(([prefixeRS] = "Monsieur" Or [prefixeRS] = "Madame"), [raisonSociale], [raisonSociale] & " " & [prefixeRS])

Mais pourquoi est-ce que ça ne fonctionne pas en VBA ???

[madefemere]

Bonsoir,

Je crois qu'il y a confusion dans ton utilisation des propriétés d'une zone de texte :
- ControlSource permet d'attribuer une valeur Texte qui va être calculée.
- Pour mettre une valeur ou tester la valeur d'une zone de texte, il suffit d'utiliser son nom ou la propriété Value.
Ce qui donnerait cela à mon avis :

Code :

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

1
2
3
4
5
6
7
If Me.ncrs = "nomCommercial" Then
    Me.ncrs = IIf(Me.prefixeRS = "Monsieur" Or Me.prefixeRS = "Madame", Me.raisonSociale, Me.raisonSociale & " " & Me.prefixeRS)
    Me.Auto_EnTete0.Caption = "RAISON SOCIALE"
Else
    Me.ncrs = "nomCommercial"
    Me.Auto_EnTete0.Caption = "NOM COMMERCIAL"
End If

NOTA : Par contre je n'ai pas compris ce que tu veux faire dans ton test :
Si ncrs = NomCommercial alors
Modifier sa valeur
Sinon
ncrs = NomCommercial

Cordialement,

[rag83]

Tu as raison, je pense qu'en effet je m'emmele un peu les pinceaux entre le nom et le controlSource de la zone de texte.

Ce que je voudrais faire c'est alterner au clic sur un bouton soit un type d'affichage, soit un autre.

Mon code actuel, très simple, qui fonctionne est celui-là :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub btnSwitch_Click()
 
If Me.ncrs.ControlSource = "raisonSociale" Then
    Me.ncrs.ControlSource = "nomCommercial"
    Me.Auto_EnTete0.Caption = "NOM COMMERCIAL"
Else
    Me.ncrs.ControlSource = "raisonSociale"
    Me.Auto_EnTete0.Caption = "RAISON SOCIALE"
End If
 
End Sub

et je voudrais donc remplacer "raisonSociale" par la concaténation sous condition dont on parle.

J'essaye ce que tu as mis demain, je te remercie encore pour ton aide.

[rag83]

Voila je viens d'essayer et malheureusement ça ne fonctionne pas

Es-tu sur qu'il ne faut pas mettre le controlSource madefemere, parce qu'avec ton dernier code le résultat est plutôt particulier...

Quand je clique sur le bouton, c'est le nom commercial ou la raison sociale de mon établissement qui est remplacé par "nomCommercial" ou par "SARL"...

[Invité]

Bonjour

Ton formulaire étant en mode continu, pourquoi ne pas faire la concaténation dans la requête qui alimente le formulaire ?

Philippe

[rag83]

Ceci fonctionne évidemment parfaitement, j'y avais pensé il y a quelques jours puis ca m'était sorti de la tête

Problème résolu, merci à toi Philippe ainsi qu'à madefemere pour s'être penché sur mon problème