Discussion :

[azertix]

Si je mets dans ma signature de pas m'envoyer de MP, c'est pas pour faire joli. Quand je reçois un message qui me dit "si tu peux jeter un oeil à mon message de ce matin", ça me donne encore moins envie de répondre ...
Heureusement que tout le monde ne m'envoie pas un MP quand je ne réponds pas dans les 5 minutes qui suivent ...

Enfin bref, ton message d'erreur veut dire que tu as certainement une clé étrangère à renseigner. Quand tu ajoute un quartier, il te faut renseigner le numéro de ville associé à ce quartier, et de même, quand tu ajoute l'adresse il te faut renseigner le numéro de ville et le numéro de quarrtier correspondant à l'adresse.

[Boubou382002]

Désolé pour le MP, mais je ne savais pas si tu étais tenu au courant lorsque je laissais un message dans cette discussion...
Promis c'était la dernière fois !

[Boubou382002]

Je recommence tout depuis le début.
J'ai trois tables :
Ville : Numéro ville (NumAuto), Nom ville (Texte)
Quartier : Numéro ville (Numérique), Numéro quartier (NumAuto), Nom quartier (Texte)
Adresse : Numéro ville (Numérique), Numéro quartier (Numérique), Numéro adresse (NumAuto), Nom adresse (Texte), Nombre de logements (Numérique).

J'ai un formulaire d'accueil avec deux boutons : Nouvelle adresse et Recherche.

- En cliquant sur Nouvelle adresse, je tombe sur un formulaire avec deux zones de texte (Nom ville et Nom quartier), un sous formulaire dans lequel je rentre les noms des adresses avec leur nombre de logements correspondant et un bouton "Ok".
Là j'ai un problème. Lorsque j'ajoute une adresse dans un quartier existant déjà dans une ville existant déjà, ça ajoute une ligne avec le même Nom de ville et le même Nom de quartier, mais un Numéro ville et un Numéro quartier différent.
Lorsque j'ajoute les adresses et les nombres de logements, j'ai le message d'erreur suivant : " Vous ne pouvez pas ajouter ou modifier un enregistrement car l'enregistrement associé est requis dans la table Quartier".


- En cliquant sur Recherche d'adresse, je tombe sur un formulaire avec des listes déroulantes (Nom ville et Nom quartier).
J'aimerais, après avoir choisi une ville et un quartier, tomber sur un formulaire qui m'afficherait les données correspondantes à ce quartier (données rentrées au préalables dans la table "Adresse".cf "En cliquant sur Nouvelle adresse...").

Je suis assez clair dans mes propos ou non ?

[azertix]

- Pour ton premier souci, tu as sans doute oublié de renseigner le numéro de quartier, ou alors tu as mis un numéro qui n'existe pas dans la table.
- Pour ton deuxième problème, cherche sur le forum, tu trouveras des solutions. Il faut que tu fasses un critère qui définirait quel enregistrement afficher dans tes zones de liste

[Boubou382002]

Salut,
j'ai modifié mes tables :
Ville : Numéro ville (NumAuto), Nom ville (Texte)
Quartier : Numéro ville (Numérique), Numéro quartier (NumAuto), Nom quartier (Texte)
Adresse : Numéro quartier (Numérique), Nom adresse (Texte), Nombre de logements (Numérique).

J'ai toujours le même message d'erreur : "Vous ne pouvez pas ajouter ou modifier un enregistrement car l'enregistrement associé est requis dans la table Quartier" .

Je pense que le problème est au niveau du Numéro de quartier. Il ne doit pas se "copier" dans la table Adresse...

[azertix]

Attention, ça ne va pas, il te faut forcément une clé primaire dans ta table Quartier
Tu as fait un MCD ? Si oui, peux le poster, s'il te plait ?

[Boubou382002]

Dans ma table Adresse tu voulais dire ...
Non pas fait de MCD.
Avant j'avais mis un Numéro d'adresse en clé primaire, mais une adresse, si elle fait partie d'un quartier qui fait lui même parti d'une ville, elle n'a pas besoin de numéro ?

[azertix]

C'est normal que tu aies des problèmes relationnels si tu saute toute l'étape d'analyse. C'est le plus important dans la réalisation d'un projet. C'est comme "l'ossature" de ton application
Tu devrais faire un MCD avant tout. Regarde sur le forum, tu trouveras des tutos, des cours, et il y a aussi un forum.
Je pense que ton souci ne vient pas du VBA

[Boubou382002]

ça donne un truc de ce style

[Boubou382002]

Mon formulaire ressemble à ça

[azertix]

Pour des questions d'analyse, tu devrais poster ici

[Boubou382002]

Je viens de poster un message, mais tu ne peux pas répondre toi ?
Tant pis alors, je te remercie pour tout.
J'espère avoir des réponses d'ici la fin de la journée parceque ça commence à me peser là.

[azertix]

Moi je suis débutant en prog, alors que sur le forum spécialisé dans l'analyse, tu auras des avis de gens plus expérimentés dans ce domaine (normalement...).
Par contre, rien ne t'empêche de revenir une fois ton MCD niquel, si tu as des soucis de codage

[Boubou382002]

Impécran de ma bdd, si vous la voulez en entière pour m'aider, n'hésitez pas à me contacter.

[Boubou382002]

Manquait juste le form_accueil

[FreeAccess]

Bonjour....

...table Ville avec le champ nom.
...zone de texte dans un formulaire.
...après avoir tapé ...."Lyon" dans cette zone de texte, Lyon s'ajoute dans ma table.

Pourquoi faire compliquer...

Généralement sous ACCESS, on utilise les formulaires pour saisir des données qui seront "stockées" dans une table.
Pour cela, sur ton formulaire existant......:
Propriété Source = Ville (le nom de ta table)

..sur ton champ texte (actuellement indépendant.....non lié à aucune table)..:
Propriété Source contrôle = Nom ville (le nom du champ contenue dans ta table ville)

Maintenant, à chaque fois que tu saisira une donnée dans ta zone de texte, celle-ci sera automatiquement "stockée" dans la table Ville qui est la source de ton formulaire.....

Voila, ceci est juste le principe de base.....
Maintenant, je pense qu'une lecture assidue des divers cours disponibles sur le Forum devrait t'aider à mieux comprendre..:
http://access.developpez.com/cours/

Bonne lecture......

[hed62]

Idem pour le MP... Mais on va dire que tu avais une excuse, je viens rarement par ici !

Boubou, je pense que tu as interet à potasser de nombreuses notions / cours, notamment sur le fonctionnement des tables, des clefs etc.. Et ensuite une série sur 'comment effectuer des requêtes sur une base', enfin voir du coté des fonctionnalité d'access, puisqu'apparemment tu travaillerais sous access... Car comme le dit FreeAccess, des formulaires peuvent être fait automatiquement, etc..

[azertix]

Comme je te l'ai dit, ce qui est certain, c'est que tu ne peux pas te permettre de faire l'impasse sur ton MCD (d'où le fait que je t'aie réorienté vers le forum concerné). Sinon, même si ton code est correct, les règles de gestion ne seront pas forcément respectées, ou alors pas comme tu le veux : tu pourras ajouter n'importe quoi n'importe où ou alors tu ne pourras rien ajouter du tout (c'est ton cas ici).

[Boubou382002]

Voici donc le code de mon formulaire "Nouvelle adresse"


Commande8 est mon bouton OK

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
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
Private Sub Commande8_Click()
 
 
   If IsNull(Me.Texte0) Or Me.Texte0 = "" Then
    MsgBox "Veuillez remplir le champ Nom ville", vbOKOnly + vbInformation, "Information manquante..."
Else
    Dim tVille As Recordset
    Set tVille = CurrentDb.OpenRecordset("Ville", DB_OPEN_DYNASET)
 
    tVille.AddNew
    tVille![Nom ville] = Me.Texte0
    tVille.Update
    tVille.MoveLast
 
 End If
 
 
 If IsNull(Me.Texte2) Or Me.Texte2 = "" Then
    MsgBox "Veuillez remplir le champ Nom quartier", vbOKOnly + vbInformation, "Information manquante..."
Else
    Dim tQuartier As Recordset
    Set tQuartier = CurrentDb.OpenRecordset("Quartier", DB_OPEN_DYNASET)
 
    tQuartier.AddNew
    tQuartier![Nom quartier] = Me.Texte2
    tQuartier![Numéro ville] = tVille![Numéro ville]
    tQuartier.Update
    tQuartier.MoveLast
 
End If
 
    Texte0 = ""
    Texte2 = ""
 
    On Error GoTo Err_Commande8_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Tableau adresse"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    DoCmd.Close acForm, "Nouvelle adresse"
 
Exit_Commande8_Click:
    Exit Sub
 
Err_Commande8_Click:
    MsgBox Err.Description
    Resume Exit_Commande8_Click
 
End Sub

Commande10 est mon bouton "Retour accueil"

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
Private Sub Commande10_Click()
On Error GoTo Err_Commande10_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Accueil"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    DoCmd.Close acForm, "Nouvelle adresse"
Exit_Commande10_Click:
    Exit Sub
 
Err_Commande10_Click:
    MsgBox Err.Description
    Resume Exit_Commande10_Click
 
End Sub

[azertix]

Alors déjà, tu devrais utiliser la balise CODE (bouton # dans la barre d'outils d'édition) pour afficher ton code de manière plus propre et lisible.

Ensuite, il faut que tu ajoute une adresse de la même manière que tu as ajouté un quartier : tu renseigne le numéro de quartier, le nom adresse, et le nombre de logements.
D'autre part, dans un premier temps, j'enlèverais la fin de ton code :

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
On Error GoTo Err_Commande8_Click
 
Dim stDocName As String
Dim stLinkCriteria As String
 
stDocName = "Tableau adresse"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, "Nouvelle adresse"
 
Exit_Commande8_Click:
Exit Sub
 
Err_Commande8_Click:
MsgBox Err.Description
Resume Exit_Commande8_Click

et je mettrais des messages de confirmation d'ajout à la fin de chaque insertion d'enregistrement, afin d'être sûr que l'insertion a bien été effectuée.
Car visiblement, tu tente d'ajouter un enregistrement dont la clé étrangère n'existe pas dans la table correspondante.

Enfin, je vois que tu veux ouvrir un formulaire selon un critère, mais tu n'as pas renseigné ce critère (stLinkCriteria).