Discussion :

[bluebird3]

Bonjour à tous!

Je travaille sur une base de donnée comportant de nombreuses variables pour une même personne. Pour des raisons pratiques, ces informations sont enregistrées dans différents tableaux thématiques, tous liés entre eux par une relation un-à-un.

Mon objectif étant de disposer d'un formulaire principal pour les données générales, et d'autres formulaires thématiques, accessibles à partir de boutons disposés sur le formulaire principal.

A cette fin, j'aurais besoin de réaliser une macro, qui lorsque un enregistrement est ajouté sur le formulaire principal, crée automatiquement cet enregistrement (vide), au sein de tous les tableaux secondaires.

Honnêtement je galère avec VisualBasic, je ne sais pas comment m'y prendre.

Si vous avez une idée, je suis preneur,

[madefemere]

Bonjour,

Quelle est la NECESSITE de :
[QUOTE bluebird3] A cette fin, j'aurais besoin de réaliser une macro, qui lorsque un enregistrement est ajouté sur le formulaire principal, crée automatiquement cet enregistrement (vide), au sein de tous les tableaux secondaires. [/QUOTE]
s'il n'y a pas de valeurs?

Parce qu'à première vue, ce que tu veux faire est incohérent indépendamment de VBA.

Bonne continuation

[T4keo]

Est-ce que tu parle d'une fonction dans ce genre ?

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
Function AjouterLigneDansTable(nomTable As String, nomChamp As String, Identifiant As String) As Boolean
    'Fonction qui va ajouter une ligne dans une table avec l'identifiant.
 
    Dim rst As DAO.Recordset
 
    'Requête qui va chercher les enregistrement ayant cette identifiant
    Set rst = CurrentDb.OpenRecordset("SELECT [" & nomChamp & _
    "] FROM [" & nomTable & _
    "] WHERE [" & nomChamp & "] = '" & Identifiant & "';")
    If rst.EOF Then
    'Si pas de résultat
        DoCmd.RunSQL "INSERT INTO [" & nomTable & "]([" & nomChamp & _
        "]) VALUES ('" & Identifiant & "');" 'INSERER une nouvelle ligne dans la table avec l'identifiant
        AjouterLigneDansTable = True
    Else
        AjouterLigneDansTable = False
    End If
    rst.Close: Set rst = Nothing  'Fermeture de la table de la requête
End Function

[bluebird3]

Merci pour vos réponses!

J'ai en effet testé la macro proposée par T4keo, adaptée en définissant les variables, avec un tableau test, et en l'exécutant grâce à un simple bouton sur un formulaire

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
Private Sub Commande19_Click()
Function AjouterLigneDansTable(nomTable As String, nomChamp As String, Identifiant As String) As Boolean
    'Fonction qui va ajouter une ligne dans une table avec l'identifiant.
    nomTable = "MenuTest"
    nomChamp = "N°"
    Identifiant = "17"
 
    Dim rst As DAO.Recordset
 
    'Requête qui va chercher les enregistrement ayant cette identifiant
    Set rst = CurrentDb.OpenRecordset("SELECT [" & nomChamp & _
    "] FROM [" & nomTable & _
    "] WHERE [" & nomChamp & "] = '" & Identifiant & "';")
    If rst.EOF Then
    'Si pas de résultat
        DoCmd.RunSQL "INSERT INTO [" & nomTable & "]([" & nomChamp & _
        "]) VALUES ('" & Identifiant & "');" 'INSERER une nouvelle ligne dans la table avec l'identifiant
        AjouterLigneDansTable = True
    Else
        AjouterLigneDansTable = False
    End If
    rst.Close: Set rst = Nothing  'Fermeture de la table de la requête
End Function
End Sub

Malheureusement, aucun enregistrement 17 n'est créé à son activation. Avez-vous une idée de mon erreur?

@Madefemere: La nécessité vient du fait que si je ne réalise pas cette manipulation, je ne peux pas créer des liens vers des sous-formulaires dirigés vers le même enregistrement que celui du formulaire principal... car ce nouvel enregistrement n'existe simplement pas. ET je ne peux pas me fier pour ces sous-formulaires à une création automatique d'enregistrement type "NumAuto", car le numéro d'enregistrement peut différer de celui de l'enregistrement principal. Bref, ça ne marche pas.

J'ai bien conscience que ce n'est sans doute pas la méthode la plus adaptée.
As-tu une autre démarche en tête? Mon objectif pour cette partie de la BdD est finalement trivial: Disposer de 5 tableaux liés un-à-un, afin de disposer plus facilement des différents types d'informations concernant un unique enregistrement.

[Robert1957]

Bonjour bluebird3,

Je crois que la réponse de madefemere est la bonne réponse. Si ton MCD est bien conçu une table principale en relation avec les autres tables. Un formulaire principal avec liaison père/fils tu vas avoir de façon automatique dès que tu inscriras des données dans un enregistrement fils la liaison que tu veux. Si aucune donnée pourquoi créer un enregistrement? Sinon tout inclure dans la même table.

Bonne journée

[Tofalu]

A mon avis, la modélisation n'est pas bonne.
Postez votre modèle relationnel