Discussion :

[DamKre]

Bonjour,

Suite à cette discussion, je me demande comment construire les formulaires avec une table principale et une (ou plusieurs) table(s) liées en relation "un-à-un".

Un formulaire principal avec un sous-formulaire ?
Et comment éviter l'entrée de plusieurs données pour le même id ?

Merci de votre aide.

[hyperion13]

Salut
Sur l'évènement Form_Current() du form principal faire un test du genre

Code :

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

1
2
3
    If Me.NomduSform.Form.Recordset.RecordCount >= 1 Then
        MsgBox"Vous ne pouvez pas ajouter de nouvel enregistrement !"
    End If

[DamKre]

Bonjour,

Merci de cet élément de réponse.

Voici ce que j'ai mis en place, en lien avec ta proposition:

Sur le formulaire principal :

• S'il y a déjà un enregistrement dans le sous-formulaire -> bloquer l'ajout de données dans ce dernier
• S'il n'y a aucun enregistrement dans le sous-formulaire -> autoriser l'ajout de données.

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Current()
On Error GoTo Erreurs
 
If Me.NOMDUSF.Form.Recordset.RecordCount < 1 Then
    NOMDUSF.Form.AllowAdditions = True
Else
    NOMDUSF.Form.AllowAdditions = False
End If

Dans le sous-formulaire:

• après l'insertion de données -> bloquer l'ajout de données :

Code :

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

1
2
3
4
5
6
Private Sub Form_AfterInsert()
On Error GoTo Erreurs
 
Form.AllowAdditions = False
 
Exit Sub

Cela a l'air de fonctionner dans les premiers tests.

Il faut cependant encore traiter le cas, très improbable, où deux utilisateurs seraient sur le même id en même temps.

Cette solution semble-t-elle correcte ?