Discussion :

[couret3000]

Bonjour à tous et à toutes,

Ma base :


Tables principales :
Fiche (id_fiche), Maison (id_fiche, id_maison), Gite (id_fiche, id_maison, id_gite)

Tables secondaires :
Dépendant de maison : Habitant (id_fiche, id_maison, num_habitant)
Viro_Api (id_fiche, id_maison, id_pool_asp)

Dépend de gite : Photo (id_fiche, id_maison, id_gite, num_photo)
Viro_Larve (id_fiche, id_maison, id_gite, id_pool_larve)

J’ai créé un formulaire de saisie composé d’1 formulaire principal (Table Fiche) et d’un sous-formulaire (Table Maison)
Le sous-formulaire (Table Maison) contient :
1 sous-sous-formulaires (Table Habitant)
+ 1 sous-sous-formulaires (Table Gite)



Mes questions :
1) J’ai mis des boutons « enregistrement suivant » dans chaque formulaire et sous-formulaires, comment puis-je bloquer ce bouton pour qu’il ne puisse pas dépasser le dernier enregistrement de la table concernée (éviter une fiche vide) car j’ai ajouté un bouton « nouveau enregistrement »

---- Pour ce point, j'ai trouvé cette solution en créant un bouton indépendant.

Code :

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

1
2
3
4
5
6
7
8
Private Sub Suivant_Click()
Dim lng As Long
' Obtient le nombre d'enregistrements
    lng = Me.RecordsetClone.RecordCount
    If CurrentRecord <> lng Then
        DoCmd.GoToRecord , , acNext
        End If
End Sub

2) Comment faire passer les données des clés du sous formulaire par le bouton « nouveau enregistrement » afin que ces champs soient remplis.
(exemple dans le sous-sous-formulaire Habitant, les clés id_fiche, id_maison soient remplis)

3) J’ai des photos des gites et j’ai créé un formulaire « Photo » (le tuto de cafeine) que j’appelle à partir d’un bouton (Ouvrir un formulaire) dans le sous-sous-formulaire Gite mais je n’arrive pas à le bloquer sur les clés 3 d’identifications du gite (id_fiche, id_maison, id_gite)
Mes essais : macro bouton Photo

Code :

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

Where =" [Photo]![id_fiche] =" & "'" & [Formulaires]![frmFiche]![Gite sous-formulaire].[Formulaire]![id_fiche] & "'" Et "[Photo]![id_maison]=" & "'" & [Formulaires]![frmFiche]![Gite sous-formulaire].[Formulaire]![id_maison] & "'" Et "[Photo]![id_gite]=" & "'" & [Formulaires]![frmFiche]![Gite sous-formulaire].[Formulaire]![id_gite] & "'"

j’obtiens une erreur dans le formulaire photo car aucune donnée n’est passée

Ou dans Formulaire Photo
source :

Code sql :

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

1
2
SELECT Photo.id_fiche, Photo.id_maison, Photo.id_gite, Photo.num_photo, Photo.Photo
FROM (Fiche INNER JOIN Maison ON Fiche.Id_fiche = Maison.id_fiche) INNER JOIN (Gite INNER JOIN Photo ON (Gite.id_gite = Photo.id_gite) AND (Gite.id_maison = Photo.id_maison) AND (Gite.id_fiche = Photo.id_fiche)) ON (Maison.id_maison = Gite.id_maison) AND (Maison.id_fiche = Gite.id_fiche)WHERE (((Photo.id_fiche)=[Formulaires]![Gite sous-formulaire]![id_fiche]) AND ((Photo.id_maison)=[Formulaires]![Gite sous-formulaire]![id_maison]) AND ((Photo.id_gite)=[Formulaires]![Gite sous-formulaire]![id_gite]));

j’obtiens les fenêtres me demandant les valeurs de id_fiche, id_maison et id_gite

La première indication pour pouvoir résoudre ces 3 problèmes est de savoir s’il faut que je passe par des requêtes, des macros ou le code VBA, sachant que j’ai un peu de mal avec les expressions dans les macros.
Si j’arrive à régler (grâce à vous) ces problèmes je devrais pouvoir régler ceux concernant les autres tables (Viro_Aspi, Viro_larves, Emmergent….) qui sont basées sur le même modèle.

Merci d'avance pour votre attention et votre aide

Cordialement

Daniel

[Tofalu]

Vous auriez du gérer les identifiants des lignes avec des numéros autos et l'unicité des tuples avec des index. Là, il est difficile de lire les règles de gestions et vos requêtes vont être très complexes à écrire ne serait ce que pour gérer les jointures.

[couret3000]

Vous auriez du gérer les identifiants des lignes avec des numéros autos et l'unicité des tuples avec des index. Là, il est difficile de lire les règles de gestions et vos requêtes vont être très complexes à écrire ne serait ce que pour gérer les jointures.

Bonsoir,
je ne comprend pas très bien votre remarque, pourriez-vous, s'il vous plaît, me la préciser, par un exemple ?

Cordialement

Dan

Ps. Merci d'avoir fait la mise en forme je n'ai compris votre message qu'au réveil (la nuit porte conseil) , et j'ai trouvé ce matin que vous l'aviez fait pour moi.

[f-leb]

Bonjour,

Code :

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

Where =" [Photo]![id_fiche] =" & "'" & [Formulaires]![frmFiche]![Gite sous-formulaire].[Formulaire]![id_fiche] & "'" Et "[Photo]![id_maison]=" & "'" & [Formulaires]![frmFiche]![Gite sous-formulaire].[Formulaire]![id_maison] & "'" Et "[Photo]![id_gite]=" & "'" & [Formulaires]![frmFiche]![Gite sous-formulaire].[Formulaire]![id_gite] & "'"

Essaie avec :

Code :

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

Where =" [Photo]![id_fiche] =" & "'" & [Formulaires]![frmFiche]![Gite sous-formulaire].[Formulaire]![id_fiche] & "' AND [Photo]![id_maison]=" & "'" & [Formulaires]![frmFiche]![Gite sous-formulaire].[Formulaire]![id_maison] & "' AND [Photo]![id_gite]=" & "'" & [Formulaires]![frmFiche]![Gite sous-formulaire].[Formulaire]![id_gite] & "'"

[couret3000]

Bonjour et merci pour la réponse,

j'ai toute fois trouvé une solution en prenant en compte le fait que le formulaire Gite est "dans" le formulaire Maison qui est lui même "dans" le formulaire fichier. Je dois donc en tenir compte et ma commande WHERE devient :

Code :

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

1
2
3
4
WHERE (((Photo.id_fiche)=[Forms]![frmFiche]![Maison sous-formulaire].[Form]![Gite sous-formulaire].[Form].[id_fiche]) _
 AND ((Photo.id_maison)=[Forms]![frmFiche]![Maison sous-formulaire].[Form]![Gite sous-formulaire].[Form].[id_maison]) _
 AND ((Photo.id_gite)=[Forms]![frmFiche]![Maison sous-formulaire].[Form]![Gite sous-formulaire].[Form].[id_gite]))
ORDER BY Photo.num_photo;

Du coup toutes mes questions sont réglées

Comme l'a dit M.Tofalu, les requêtes deviennent difficiles à gérer, mais une fois que c'est fait.

Cordialement et merci

Daniel