Discussion :

[gaelou7]

Bonjour,
Je sollicite votre aide car je sèche complètement et je ne trouve pas de réponse sur le forum. Surement de mauvais mots clés utilisés.

J'ai 3 tables:
- Bénévole: N°bénévole, Nom_Bénévole,
- Affectation: N°affecation, adresse
- planning: ID, N°affectation, N°bénévole, date


Je souhaite faire un formulaire "Mois" avec en entête de colonne le nom des bénévoles et en entête de ligne le jour du mois. Dans les cellules je veux l'adresse d'affectation

Il faut qu'à l'affichage j'ai seulement 1 mois.

Je suis preneur de tout conseil.

Merci

[hyperion13]

Salut
Une solution en utilisant 2 combobox pour filtrer une qry_plan source d'un frm_plan et qui est proche de votre besoin.

[gaelou7]

Merci pour ton retour, alors je pense que tu as mal compris le type de formulaire que je veux.
Du coup je t'ai envoyé un exemple en pièce jointe.
La requête dans laquelle tu fais ressortir le mois et les listes déroulantes (notamment celle pour sélectionner le mois) vont mettre bien utiles.

J'ai un peu complexifié mon problème et j'ai ajouté un champs durée dans ma table planning.
La durée c'est un coefficient de 0 à 1.
1=toute la journée
0.5=une demie journée
Du coup un un bénévole peut pour 1 même jour être à plusieurs adresses différence (max 3).

J'ai 3 tables:
- Bénévole: N°bénévole, Nom_Bénévole,
- Affectation: N°affecation, adresse
- planning: ID, N°affectation, N°bénévole, durée, date

Temps Passé 2022.pdf

[Robert1957]

Bonjour gaelou7, hyperion13,

Voici une Bd qui fait ce que vous désirez, ce n'est pas de moi mais de Denis Hulo. Il faudra adapter à vos besoins. Vous trouverez une grande variété de planning Ici

Planning.zip

Bonne journée

[gaelou7]

Ca semble très bien je vais essayer de me débrouiller avec ca mais je suis très nul en vba mais je pense que ca va le faire

[gaelou7]

Bonjour à tous,
J'essaye d'avancer sur mon projet mais je bloque sur un truc
J'aimerai afficher pour chaque adresse d'affectation mes différents nom_bénévole dans une même cellule et je ne trouve pas la solution.

exemple

Rue de paris / Damien charles
Rue Vaugirard / Patrick Damien Charles

j'arrive seulement à faire ca:

Rue de paris / Damien
Rue de paris / charles
Rue Vaugirard / Patrick
Rue Vaugirard / Damien
Rue Vaugirard / charles

[tee_grandbois]

bonjour,
la solution est pourtant proposée dans les "Meilleures sources d'Access" ici
et ici ou là deux parmi les nombreuses discussions s'y référant

[gaelou7]

Bonjour,
Merci tee_grandbois, tes liens m'ont débloqué.
J'ai réussi à faire fonctionner cette solution dans une requête, c'est parfait. Petite question bête, en VBA comment fait-on pour appeler un champs composé d'un espace ? Par exemple N° bénévole au lieu de N°bénévole
J'arrive pas à faire fonctionner le VBA quand il y a un espace. J'ai essayé les crochets les parenthèses mais ca ne marche pas
Je reviendrai surement vers toi pour faire fonctionner le même type de formule dans un formulaire si je n'y arrive pas.

[tee_grandbois]

bonsoir,

J'ai essayé les crochets les parenthèses mais ca ne marche pas

certes, mais il faudrait poster le code pour qu'on puisse trouver où ça coince

[gaelou7]

Du coupe le code est le suivant:

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
 
Public Function Recupbenevole(N° affectation As Long) As String
Dim res As DAO.Recordset
Dim SQL As String
'Selectionne les participant du projet
SQL = "SELECT N° benevole FROM benevole WHERE N° affectation =" & N° affectation
Set res = CurrentDb.OpenRecordset(SQL)
'Concatene les différents enregistrement
While Not res.EOF
    Recupbenevole = Recupbenevole & res.Fields(0).Value & ";"
    res.MoveNext
Wend
'Enleve le dernier espace
Recupbenevole= Left(Recupbenevole, Len(Recupbenevole) - 1)
'libere la mémoire
Set res = Nothing
End Function

Si je fais le même code en enlevant les espaces entre N° et affectation et entre N° et benevole et en enlevant le même espace dans les tables ca fonctionne.

[tee_grandbois]

bonjour,

Si je fais le même code en enlevant les espaces entre N° et affectation et entre N° et benevole et en enlevant le même espace dans les tables ca fonctionne.

c'est la meilleure solution, il faut éviter les espaces dans les noms source de problème (la preuve), proscrire également les mots réservés et les caractères non-alphanumériques (> < ? * / + - ù é \ ... etc.) sauf le souligné _ fortement recommandé pour remplacer les espaces
Sinon, il faut mettre des crochets:

Code :

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

SQL = "SELECT [N° benevole] FROM benevole WHERE [N° affectation] =" & Me.[N° affectation]

[gaelou7]

Je sais pour les espaces et les accents mais malheureusement la base a été construite comme ca.

Après avoir modifié le code comme tu me l'as expliqué, j'ai probablement un problème sur la partie suivante

Code :

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

1
2
 
Public Function Recupbenevole(N° affectation As Long) As String

J'ai le message d'erreur " Erreur de syntaxe (opérateur absent) dans l'expression "Recupbenevole(N° affectation)"quand j'exécute la requête:

SELECT DISTINCT benevole.[N° affectation], Recupbenevole(N° affectation) AS benevoles
FROM benevole;

J'ai le message d'erreur " Erreur de compilation dans l'expression "Recupbenevole([N° affectation])" quand j'exécute la requête:

SELECT DISTINCT benevole.[N° affectation], Recupbenevole([N° affectation]) AS benevoles
FROM benevole;

[tee_grandbois]

Code :

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

Public Function Recupbenevole(N° affectation As Long) As String

effectivement, je n'avais même pas remarqué ...
pour le paramètre de la fonction, il faut lui donner un nom sans espaces : VBA n'en accepte pas:

Code :

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

1
2
Public Function Recupbenevole(NumAffectation As Long) As String
'ou bien : Public Function Recupbenevole(Turlututu As Long) As String ' ce sera,t pareil tant qu'il n'y a pas d'espaces

pour le SQL, il faut des crochets, car on est dans l'environnement SQL:

Code SQL :

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

1
2
SELECT DISTINCT [N° affectation], Recupbenevole([N° affectation)] AS benevoles
FROM benevole;

et dans la fonction:

Code VBA :

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

SQL = "SELECT [N° benevole] FROM benevole WHERE [N° affectation] =" & NumAffectation

[gaelou7]

Merci beaucoup, ca marche.
Je vais me pencher sur la conception de mon planning et je reviendrai dans les prochains jours sur le fil de discussion pour clôturer la discussion ou pour demander de l'aide