Version imprimable
Bonjour LeepZepII,
Peux-tu me lever un doute ?
Si dans la table que j'importe rs1 et qui me sert à mettre à jour tbl Adhérents rs se trouve un nouvel adhérent, ou une modification, est-ce que je peux rajouter ou modifier tbl Adhérents rs ., qui est liée avec tbl Familles.
Ps. Je ne suis pas encore penché sur le dernier code concernant la récupérations des anciens numéros, je digére ce que j'ai appris avec ce fil.
Salutations.
Bonsoir,
L'ajout d'un nouvel adhérent pose effectivement problème si dans la table Adhérents le champ NuméroFamille à pour valeur par défaut 0 ou tout autre valeur n'existant pas dans la table Familles.
En effet, la famille numéro 0 n'existe pas dans la table Familles.
Dans ce cas il faut affecter la valeur Null à NuméroFamille dans la partie du code qui fait l'ajout.
Ou bien enlever la valeur par défaut du champ dans les tables Adhérents Excel et Adhérents.
Si c'est une modification, on ne touche pas à NuméroFamille, donc en principe l'intégrité référentielle est respectée.
A+
Bonjour LeepZepII,
Dans ce code que l’on à vue ensemble comment dire par un message que RéfRegoupFamille N’est pas renseigné et qu’il faut le faire ?
J'espére ne pas t'embêter trop.
Salutations
Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39If rs3.EOF Then blnCibleVide = True DernNumFam = 100000 Else blnCibleVide = False DernNumFam = DMax("NuméroFamille", "tbl Familles") End If '--- Boucle sur la table rs (Adhérents) Do While Not rs.EOF '--- Rechercher si famille existe par Nom+RegroupFamille If blnCibleVide Then blnExistePas = True Else rs3.FindFirst "[Nom]='" & rs("Nomfamille") & "' AND " & _ "[reGroupFamille]=" & rs("reGroupFamille") blnExistePas = rs3.NoMatch End If If blnExistePas Then '--- Famille Non trouvée, Création dans Familles rs3.AddNew DernNumFam = DernNumFam + 1 rs3("NuméroFamille") = DernNumFam rs3("Titre") = rs("Titre") rs3("Nom") = rs("NomFamille") rs3("ReGroupFamille") = rs("ReGroupFamille") rs3.Update rs3.Bookmark = rs3.LastModified ' va à enregistrement créé blnCibleVide = False End If '--- Mise à jour Adhérents rs.Edit rs("NuméroFamille") = rs3("NuméroFamille") rs.Update rs.MoveNext Loop
Bonsoir jmde,
j'ai un peu de mal à me souvenir l'ordre et la logique des choses.
Je vais essayer de récapituler.
1. Tu récupères (import) une table d'adhérents Adhérents Excel
2. Dans cette table tu mets manuellement une valeur >0 dans ReGroupFamille pour lever l'ambiguïté sur deux familles ayant le même nom.
3. Ajout de Adhérents Excel dans la table Adhérents ou mise à jour de Adhérents à partir de Adhérents Excel
4. Exécution du code objet de ta question.
Et la je ne vois pas dans quel cas rs("reGroupFamille") n'est pas renseigné.
Sauf peut-être les données déjà présentes dans la table Adhérents.
Si tu as ajouté le champ alors qu'il y avait déjà des enregistrement reGroupFamille contient Null.
Est-ce ce cas de figure ?
Ou bien souhaites-tu que le code demande à l'utilisateur de saisir une valeur ?
Et dans ce cas comment l'utilisateur fait-il le choix de la valeur ?
A+
Bonjour LeepZepII,
Ta récapitulation est correcte.
Le cas où rs ("reGroupFamille") n’est pas renseigné est surtout dû à l’oubli de l’utilisateur de mettre manuellement une valeur dans rs ("reGroupFamille").
Actuellement si le cas se produit j’ai l’erreur « Erreur de syntaxe (opérateur absent) dans l’expression » sur cette ligne.
Un message ou autre l’invitant à renseigner le Numéro de Regroupement Famille pourrait faire l’affaire.
Mais bien sûr si on peut lui permettre d’accéder en même temps à l’enregistrement et ajouter le numéro ça serait un plus.Code:
2
Je renseigne manuellement les numéros de regroupement à travers mon formulaire Adhérents.
Salutations
Bonjour jmde,
La solution simple et rapide:
Au début du code, compter les enregistrements non valides.
La solution longue:Code:
2
3
4
5
6
7
8
9
10
11
12
On crée un formulaire "fmEntrerGroupFamille" qui va servir de boîte de dialogue.
Dans l'en-tête de ce formulaire, on place une zone de texte "txtReGroupFamille" dans laquelle on saisira la valeur,
et un bouton pour valider "cmdOK".
Ce dernier cache le formulaire au lieu de le fermer.
Dans le formulaire tu affiche les données que tu veux.Code:
2
3
4
5
6
7
Il pourrai être basé sur la table Adhérents et avoir un sous-formulaire sur Familles et un lien Père/Fils par le nom de famille.
Au niveau du code, on déclare une variable intReGpFam de type Integer.
Et on rajoute ce qui est en bleu.
Pour bien faire il faudrait que le seul moyen de fermer le formulaire "fmEntrerGroupFamille" soit le bouton de validation.Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25'--- Boucle sur la table rs (Adhérents) Do While Not rs.EOF If IsNull(rs("reGroupFamille")) Then intReGpFam = -1 ' Ouvre formulaire filtré sur rs("Nomfamille") en mode Modal DoCmd.OpenForm "fmEntrerGroupFamille", acNormal, , _ "[Nomfamille] = '" & rs("Nomfamille") & "'" , , acDialog intReGpFam = Forms!fmEntrerGroupFamille!txtReGroupFamille DoCmd.Close acForm, "fmEntrerGroupFamille" rs.Edit rs("reGroupFamille") = intReGpFam rs.update End If '--- Rechercher si famille existe par Nom+RegroupFamille If blnCibleVide Then blnExistePas = True Else rs3.FindFirst "[Nom]='" & rs("Nomfamille") & "' AND " & _ "[reGroupFamille]=" & rs("reGroupFamille") blnExistePas = rs3.NoMatch End If
Donc enlever le bouton fermer (X).
Voila. J'espère que ça fonctionnera.
A+
Bonsoir LeepZepII,
Les deux codes fonctionnent bien, seulement je voudrais pouvoir l’exécuter par un bouton qui se trouve sur mon formulaire principal qui comprend :
Une zone de texte : cmbRegroupFamille
Une zone de texte : txtNomFamille
Une zone de texte : txtNbFamilleIdentique
Un Bouton : btnOk
SousForms qui affiche tous les Noms identiques, et les RegroupFamille vide.
Et à chaque passage d’un Nom identique avoir un arrêt pour compléter ou modifier le RegroupFamille.
Salutations
Bonsoir jmde,
Sur quelle tables sont basés ton formulaire principal et les sous-formulaires ?
Formulaire principal : source = table ....
Sous-formulaire Nom : source = table ....
Sous-formulaire reGroupFamille : source = table ....
C'est pour m'aider à comprendre car il faut un autre code pour parcourir les enregistrements du formulaire.
Si je comprends bien on parcours les enregistrements et si :
- NuméroFamille est Null et reGroupFamille est Non Null
--> on le met à jour NuméroFamille
- NuméroFamille est Null et reGroupFamille est Null
--> Si [Nom] (de famille) n'exite pas dans Famille on le crée
--> Sinon on s'arrête sur l'enregistrement.
A+
Bonsoir LeepZepII,
Formulaire principal : source = table « tbl Familles »....
Sous-formulaire Nom : source = table « tbl Adhérents »..
..
Sous-formulaire reGroupFamille : source = table .le sous formulaire n’existe pas j’ai simplement sur le formulaire principal :
Une liste déroulante cmbreGroupFamille pour renseigner le Numéro de regroupement des Familles (0=1 Adhérent sans famille, 1=Adhérent avec famille, 2=Adhérent avec Nom de famille identique).
Une zone de texte : txtNomFamille qui permet de visualiser le Nom qui est lu où modifié.
Une zone de texte : txtNbFamilleIdentique qui afficher le Nombre de Nom identique trouvé.
Pour le Nom de famille je ne suis pas inquiet il sera toujours renseigné.
On parcourt les enregistrements et si :
--> DCount NomFamille=1, NuméroFamille est Null et reGroupFamille est Non Null ou Null
--> On le visualise dans le sous/formulaire.
--> On s'arrête sur l'enregistrement (focus sur cmbreGroupFamille).
--> On renseigne la zone (cmbreGroupFamille).
--> Et on met à jour le NuméroFamille.
--> DCount NomFamille>1, NuméroFamille est Null ou Non Null et reGroupFamille est Null ou Non Null. (J’ai mis Null ou Non Null pour le cas ou un adhérent en début d’année à un reGroupFamille=0, et en cour d’année son reGroupFamille devient 1 ce qui me permet de le modifier).
--> On visualise tous le Noms identiques dans le sous/formulaire.
--> On s'arrête sur chaque enregistrement (focus sur cmbreGroupFamille).
--> On renseigne la zone à chaque fois(cmbreGroupFamille).
--> Et on met à jour le NuméroFamille.
J’espère que cela est clair.
Salutations.
Bonsoir jmde,
pour être honnête je ne sais pas par quel bout prendre le problème.
Je ne suis pas suffisament immergé dans ton application pour écrire un code qui s'y applique.
Voici peut-être une piste avec ce code à déclencher par un bouton sur ton formulaire.NbNom : compte de [Nom] dans la table adhérentsCode:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28Dim db As DAO.Database, rs1 As DAO.Recordset Dim rsfrm As DAO.Recordset Dim strSqlAdh As String strSqlAdh = "SELECT [tbl Adhérents].*," & _ "(SELECT Count(*) FROM [tbl Adhérents] As T1 WHERE T1.Nom=[tbl Adhérents].Nom) AS NbNom," & _ "(SELECT Count(*) FROM [tbl Familles] As T2 WHERE T2.Nom=[tbl Adhérents].Nom) AS NbFam" & vbCrLf & _ "FROM [tbl Adhérents];" Set db = CurrentDb Set rs1 = db.OpenRecordset(strSqlAdh) Set rsfrm = Me.Recordset Do While Not rs1.EOF If rs1("NbFam") = 1 And IsNull(rs1("NuméroFamille")) Then ' va au premier enregistrement du formulaire principal dont le Nom est égal à rs1("Nom") rsfrm.FindFirst "Nom='" & rs1("Nom") & "'" GoTo ENDPROC End If rs1.MoveNext Loop ' Si on arrive ici, c'est qu'on a trouvé aucun enregistrement ENDPROC: Set rsfrm = Nothing db.Close
NbFam : compte de [Nom] dans la table Familles
Bon courage
Bonjour LeepZepII,
Je voudrais apporter quelques modifications et par courtoisie, avant de poser les questions ou d'ouvrir un autre fil, je voudrais te demander si tu acceptais de m'aider.
Salutations.
Bonjour,
Je n'ai pas tout lu mais je pense que :
serait plus simple en exécutant deux requêtes non ?Citation:
Je voudrais au départ ajouter les enregistrements de rs1 à rs.
Puis si rs1 à des nouveaux enregistrements les rajouter à rs,
Bonsoir,
Tout ce que je peux te promettre c'est au moins d'essayer.
A+
Re bonsoir LeepZepII,
Je te remercie vivement, demais je ferais une petite récap pour voir plus clair.
Salutations
Bonjour LeepZepII,
J’ai rajouté une case à cocher oui/non
tbl Adhérents
ID….Regroup ….NuméroFamille…Nom………Prénom…Adresse….. Case à cocher
1…………1…………….1000001………………Mme André……..A1………………A2……………………OUI
2…………2…………….1000002………………Mme Bernart……B1………………B2…………………..NON
3…………2…………….1000002………………M. Bernart……...B1………………B2…………………..OUI
4…………1…………….1000003………………M. Claude…………C1………………C2…………………..OUI
A partir de cette table je voudrai un regroupement par NuméroFamille, et rajouter ces enregistrements pour avoir une table famille(rs3) de ce type:
Tbl Familles
ID…………….…NuméroFamille… Nom……….Prénom……Adresse
1………………………….1000001…………… Mme.André………A1………………A2
2………………………….1000002…………… M.Bernat………….B1………………B2
3………………………….1000003…………….M.Claude………….C1………………C2
La relation
Familles Adhérents
NuméroFamille ----- --- RéfAdhérent
Nom \ NuméroLicence
Prénom ----- NuméroFamille
Adresse Nom
Prénom
Titre
Adresse
Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
Les modifications :Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
1)
Lorsque je crée les enregistrements de la table familles si la case à cocher de la tbl adhérent n’est pas cocher prendre les valeurs de cette ligne (Nom, Prénom, Adresse dans l’exemple plus haut pour le numérofamille 100002 prendre la ligne de M. Bernart).
2)
Ca concerne la récupération des numéroFamille pour ceux qui sont parties.
Pour l’Adhérent unique si la case à cocher départ est cocher effacer le champ numérofamille de la tbl Adhérents, et supprimer l’enregistrement correspondant dans la tbl Familles.
Pour l’adhérents multiple attendre que toutes les cases soient cochées pour supprimer l’enregistrement.
Salutations
Bonjour jmde,
Je vais d'abord répondre à ta deuxième question.
Voici une Sub qui fait ce que tu demandes, à l'aide de trois requêtes.
Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Pour la question 1)
Ca ne serait pas le contraire ?Citation:
Lorsque je crée les enregistrements de la table familles si la case à cocher de la tbl adhérent n’est pas cocher prendre les valeurs de cette ligne (Nom, Prénom, Adresse dans l’exemple plus haut pour le numérofamille 100002 prendre la ligne de M. Bernart).
La case à cocher de M.Bernart est cochée.
Je suppose que le but est de forcer la ligne à utiliser dans la table "tbl Adhérents" pour créer une nouvelle entrée dans la table "tbl Familles".
Donc il faudrait que cette ligne apparaisse en premier dans le jeu d'enregistrements rs pour que la famille soit créée et existe lorsque l'on va traiter les autres enregistrements de cette même famille.
Ca doit pouvoir s'arranger en modifiant l'ordre de tri :
OUI (-1) apparait avant NON (0)Code:Set rs = db.OpenRecordset("SELECT * FROM [tbl adhérents] WHERE Nz([NuméroFamille],0)=0 AND [tbl adhérents].Départ=False ORDER BY [tbl adhérents].NomFamille, [tbl adhérents].[Case à Cocher]")
A+
Bonjour LedZpII,
Merci pour ta réponse.
Pour la partie 1 c’est ok.
Pour la partie 2 presque, car je voudrais garder l’enregistrement dans la tbl Adhérents (donc mettre à blanc le champ NuméroFamille et RegroupFamille).
Lorsque je relance la procédure j’ai l’erreur tblFamilleVide existante donc je suppose que je dois supprimer la table à chaque lancement de la procédure ?
A quoi sert le saut de ligne " & vbCrLf & _ dans la chaîne ?
J’ai un autre cas ou au lieu de récupérer le numéroFamille je dois refaire une nouvelle numérotation pour avoir un ordre chronologique, comment dans ce cas relancer la numérotation ?
Salutations.
Bonsoir jmde,
voici le code corrigéCode:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Juste à faire joli. On peut le remplacer par un espace.Citation:
A quoi sert le saut de ligne " & vbCrLf & _ dans la chaîne ?
Je trouve que c'est plus lisible avec des sauts de lignes quand je dois déboguer une requête SQL dans VBA.
Je ne comprends pas ce que tu veux dire. Tu as un exemple ?Citation:
J’ai un autre cas ou au lieu de récupérer le numéroFamille je dois refaire une nouvelle numérotation pour avoir un ordre chronologique, comment dans ce cas relancer la numérotation ?
A+
Bonsoir LedZeppII,
Pour le " & vbCrLf & en effet je trouve que c’est très pratique pour la lisibilité d’une requête Sql.
Pour le Update je suis content car j’avais essayé de le faire de cette façon, mais je me suis mélanger les crayons.
Quelques explications sur cette ligne serait le bien venue pour moi, et à quoi correspond Type = 1 ?
De même que l’indice de sum(1)Code:If DCount("*", "MSysobjects", "Name='tblFamilleVide' AND Type=1") > 0 Then
Par contre j’ai un problème, lorsque pour faire mes essais je supprime le premier numéroFamille "100001" je ne peux plus le récupérer pour une autre Adhérent.
Et enfin pour faire joli comme tu dis, comment faire une barre de progression pendant la numérotation.
Salutations
Bonjour jmde,
La ligne
vérifie l'existance de la table "tblFamilleVide".Code:If DCount("*", "MSysobjects", "Name='tblFamilleVide' AND Type=1") > 0 Then
MSysobjects est un table système d'Access contenant la liste des objets tables, requêtes, formulaires, ....
Type = 1 signifie Objet de type table.
sum(1) est équivalent à Count(*) dans ma requête.
Au passage je m'apperçois qu'on peut ignorer les NuméroFamille Nulls.
Code:
2
3
4
5
6
7
8
9
Ok, je vois maintenant.Citation:
Par contre j’ai un problème, lorsque pour faire mes essais je supprime le premier numéroFamille "100001" je ne peux plus le récupérer pour une autre Adhérent.
La fonction comble les trous, mais seulement pour des enregistrements existants.
J'ai recodé la fonction :Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Pour la barre de progression Access il y a trois phases.
1. Initialisation avec la valeur max (le nombre d'enregistrements du recordset rs)
2. Mise à jour. On donne une valeur entre 1 et la valeur max (n° d'enregistrement dans rs)
3. Suppression. On enlève la barre de progression
Ossature du code :
A+Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19