Discussion :

[marg0t]

Bonjour à tous,

Je viens de scinder ma base access en dorsale frontale, le problème que je rencontre est que je n'arrive plus à insérer des données dans une table.

Dans ma base j'ai un formulaire qui permet de lier les salariés aux affaires. Lors du clique sur un bouton, les données s'ajoutaient dans la table T_Salarié_Chantier, et là depuis que ma base est scindée, impossible d'ajouter directement grace à ce bouton. Je dois completer directement dans la base.

Une idée d'où ce problème peut venir?
Merci à tous.

[marot_r]

Quel est le code que tu tilises pour faire l'ajout par le bouton ?

A+

[marg0t]

Le voici

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
'==Procédure pour ajouter les informations du formulaire dans la table T_Salarié_Chantier=='
 
Private Sub Btn_AJout_T_Salarie_Chantier_Click()
On Error GoTo Erreur
 
 
'==Vérifier que les champs ne sont pas vides=='
  If IsNull(Me.Affaires_Clients.Value) Or IsNull(Me.Référence_Commande.Value) Then
            MsgBox ("Veuillez remplir les champs")
End If
 
'==Déclaration des variables=='
Dim Db As DAO.Database
Dim rs As DAO.Recordset
 
'==Ajout des informations dans la table: T_Salarié_Chantier=='
Set Db = CurrentDb
Set rs = Db.OpenRecordset("T_Salarié_Chantier", dbOpenTable, dbSeeChanges, dbPessimistic)
Set rs = CurrentDb.OpenRecordset("T_Salarié_Chantier")
rs.AddNew
rs.Fields("Ref") = Me.Affaires_Clients.Value              'Ajout de la référence dans la table T_Salarié_Chantier
rs.Fields("Référence Commande") = Me.Référence_Commande.Value    'Ajout de la référence commande dans la table T_Salarié_Chantier
rs.Fields("Projet") = Me.Nom_Projet.Value                        'Ajout de la description de la commande dans la table T_Salarié_Chantier
rs.Fields("LoginSalarié") = Me.Login_Utilisateur.Value           'Ajout du login dans la table T_Salarié_Chantier
rs.Fields("Client") = Me.Clients.Value
rs.Fields("Ref SAP") = Me.RefSAP.Value
rs.Update
MsgBox "L'affaire " & Me.Référence_Commande & " a bien été ajoutée ", vbOKOnly + vbInformation, "Confirmation d'ajout..."
 Exit Sub
Erreur:
    If Err.Number = 3022 Then MsgBox "Vous avez déjà ajouté cette affaire, veuillez en sélectionner une autre", vbExclamation
End Sub

Ce code ne fonctionne pas pour ajouter dans la table. Par contre quand on saisie directement dans la table T_Salarié_Chantier cela fonctionne très bien.

[marg0t]

Je ne sais pas si le problème se trouve réellement à cette ligne là mais en conitnuant mes recherches certaines personnes disent que sur des recordsets on ne peut utiliser l'option dbopentable
que sur des tables locales.Comme la bas est fractionnée il y a des tables attachées il faut donc mettre ceci :dbOpenDynaset.

La ligne

Code :

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

Set rs = Db.OpenRecordset("T_Salarié_Chantier", dbOpenTable, dbSeeChanges, dbPessimistic)

doit être remplacée par ceci

Code :

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

Set rs = Db.OpenRecordset("T_Salarié_Chantier", dbOpenDynaset, dbSeeChanges, dbPessimistic)

En faisant cela, le problème est résolu cependant je ne suis pas sure que se soit la meilleure technique.

[marg0t]

Merci de ton aide marot_r