Discussion :

[Waals]

Bonjour,

Je souhaiterais créer un formulaire afin d'ajouter/modifier des données dans une table.

Cette table comporte 3 champs : Date | Code Chantier | Code Chef

Mon formulaire est formé de cette manière :

La date s'inscrit automatiquement dans une zone de texte à l'ouverture du formulaire, on choisit ensuite le chantier dans une liste déroulante, (on peut choisir de lui attribuer un chef, ou laisser vide) et on appuie sur OK (le Me.requery écrit les données dans la table, et la fenetre est ensuite fermée)

Cette étape crée un nouvel enregistrement dans ma table.
Cependant je n'ai aucun moyen de modifier cet enregistrement à partir du formulaire. Si je selectionne la même date et le même chantier pour ensuite modifier le code chef attribué, cela me crée un nouvel enregistrement sans modifier celui déjà créé.

Que faire, donc, pour résoudre ce probleme sachant que mon couple Date/Code Chantier est unique pour chaque enregistrement ?

[Marc_27]

Bonjour Waals.

Tu peux ouvrir ton formulaire en mode modification, soit par code VBA

Code :

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

DoCmd.OpenForm "monFormulaire", , "", "date=#" & Me.date.Value & "# AND [code chantier]='" & Me.<code chantier>.Value & "'", acFormEdit

Soit par un Macro, où tu mets tes condition WHERE...

[Kawabaumga]

Bonjour,
qu'entendez-vous par:

Que faire, donc, pour résoudre ce probleme sachant que mon couple Date/Code Chantier est unique pour chaque enregistrement ?

Si le couple Date/Code Chantier est unique (clé primaire), il n'est techniquement pas possible d'avoir des doublons

[Waals]

J'ai essayé de mettre une clé primaire sur les 2 premiers champs, mais dans ce cas là, il ne me créé aucun nouvel enregistrement. Il modifie sans cesse le premier enregistrement.

Ce que je souhaite avoir : Il peut y avoir plusieurs fois la même date, plusieurs fois le même chantier, mais jamais à la fois la même date et le même chantier.

>Marc_27 : Je ne vois pas trop comment me debrouiller avec ce morceau de code. Il faut que le formulaire puisse aussi ajouter des enregistrements si le couple Date/Chantier n'existe pas.

[Kawabaumga]

Ce que je souhaite avoir : Il peut y avoir plusieurs fois la même date, plusieurs fois le même chantier, mais jamais à la fois la même date et le même chantier.

Une clé primaire sur les deux éléments permet d'arriver à un tel résultat.

En ce qui concerne le fait que ça ne te créé pas d'enregistrement, je dirais qu'il y a une erreur de conception

[Marc_27]

En ce qui concerne le fait que ça ne te créé pas d'enregistrement, je dirais qu'il y a une erreur de conception

Je pense qu'ils ne sont pas des vrais cles, ils ont cette propriété ensemble...
s'il met les deux champs comme cle primaire, ils ne pouront pas être dupliques individualement dans la table, même si l'autre champ est différent, et dans ce cas il pourrait mettre que un enregistrement par jour (ou que un chantier), à cause de ne pas avoir une violation de cle.

>Marc_27 : Je ne vois pas trop comment me debrouiller avec ce morceau de code.

Concernant le code, il serait à mettre dans l'événement sur click du bouton d'ouverture de ton formulaire...

Il faut que le formulaire puisse aussi ajouter des enregistrements si le couple Date/Chantier n'existe pas.

C'est vrai qui avec mon code tu ne pourras faire que les modifications, pas des ajouts.
Pour avoir l'option après l'ouverture du formulaire (ajout ou modification), je pense qu'il serait plus facile avec des formulaires independents (non liés à ta table).

Pour faire avec des forms liés je ne suis pas sure de comment le faire.

[Waals]

J'arrive parfaitement à ajouter des enregistrements en les tapants dans la table, mais en passant par mon formulaire, rien à faire. Il reste encore et toujours sur la premiere ligne.

J'ai mis les differents champs dans la "Source Controle" des propriétés de chaque zone de texte/liste déroulante, et ai ajouté un bouton de validation ayant pour code :

Code :

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

1
2
3
Private Sub Valider_Click()
Me.Requery
End Sub

Cela devrait pourtant fonctionner non ? (Sachant que j'ai posé une clé primaire sur Date et code chantier)

[Marc_27]

Bonjour Waals.

Tu dises que avec une cle primaire dans ton champ <Chantier> t'arrive à avoir deux enregistrements avec la même valeur (dans le champ <chantier>), en les tapant directement sur ta table?

Normalement tu ne devrais pas pouvoir le faire, parce que on ne peut pas avoir des doublons dans un champ cle primaire...

Sinon, une solution possible (mais pas testé) serait faire quelque chose jor

Code :

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

1
2
3
4
5
6
7
Private Sub Valider_Click()
If DCount("[Code Chef]", "taTable", "[Date]=#" & Me.<Date>.Value & "# AND [Code chantier]='" & Me.<Code chantier>.Value & "'")>0 then
     'Modification avec un recordset
else
     Me.Requery 'pour l'ajout d'un nouveau
End If
End Sub

[Waals]

Bon voici ce que j'ai tenté :

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
Private Sub Valider_Click()
Dim db As DAO.Database
Dim cle As String
Dim sql As String
Dim MaTable As Recordset
 
Set MaTable = CurrentDb.OpenRecordset("AttribChefJ", dbOpenDynaset)
'Set db = CurrentDb
cle = Me.sousChantier.Value & Me.Date.Value
Me.cle = cle
 
 
MaTable.FindFirst "[cle] = '" & cle & "'"
If Not MaTable.NoMatch Then
MaTable.Delete
MsgBox ("yop")
End If
MaTable.AddNew
MaTable("cle") = cle
MaTable("Chef") = Me.Chef
MaTable("DateJ") = Me.Date
MaTable("Chantier") = Me.Chantier
MaTable.Update
MaTable.Close
End Sub

Ma clé primaire (champs "cle") étant la concaténation des champs "Chantiers" et "DateJ", elle se doit d'etre unique.

L'ajout d'enregistrements dans la base se déroule parfaitement, mais lorsque je souhaite en modifier un (MaTable.delete puis MaTable.addNew), j'obtiens une magnifique erreur 3188 : "impossible de mettre a jour; actuellement verrouillé(e) par une autre session sur cette machine."

(En cliquant sur "débogage", ma ligne MaTable.delete est surlignée)

Je sens que je suis à 2 doigt d'y arriver, que faut il faire pour que cette erreur ne se produise pas sachant qu'aucune autre session n'est ouverte ?

[Marc_27]

Je crois qu'il se produit parce que ton formulaire est lié à la table, et lorsqu'il ouvre l'enregistrement reste bloqué aux modifications...

J'ai des formulaires avec lesquels je fais des ajouts/ modifs comme tu veux, mais je prefere d'utiliser un formulaire independent pour ne pas avoir ce probleme. T'as déjà pensé à faire ça? Tu peux charger les donnés que tu veux à l'ouverture du formulaire avec de DAO et les ajouts/ modifs tu fais aussi avec DAO.

Depuis quelque temps je n'utilise que les formulaires independents, je crois que j'ai beaucoup plus de controle sur des actions comme ça...

[User]

Salut,

Peux-tu préciser comment tu ouvres ce formulaire et aussi le code que tu utilises pour l'ouvrir ?

A+