Discussion :

[byrdo]

Voilà, j'ai créé un formulaire, dans lequel j'ai des champs texte à compléter.
Une fois ces champs remplis par l'utilisateur, j'aimerais que ceux-ci soient ajouter en tant que nouvel enregistrement dans une table.

Voici mon code VBA (que j'ai récupéré sur le net) :

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
Dim MaTable as RecordSet
Set MaTable = CurrentDb.OpenRecordset("Utilisateurs", dbOpenDynaset)
On Error Resume Next
With MaTable
    .AddNew
    !Nom = Form_ajout!txtnom
    !Prenom = Form_ajout!txtprenom
    !Service = Form_ajout!lstservice
    .Update
    .Requery
End With
If Err.Number <> 0 Then
    MsgBox Err.Description, , Err.Number
    GoTo Fin:
End If
MaTable.Close
Set MaTable = Nothing
Fin:
End Sub

Or, j'ai un soucis, lors du clic sur le bouton auquel j'ai associé de code, j'ai une box d'erreur qui apparait avec l'information ;

Erreur d'exécution '13' : Incompatibilité de type

Et en cliquant sur Débogage, je retourne sur mon code en VBA, où la ligne :

Code :

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

Set MaTable = CurrentDb.OpenRecordset("Utiisateurs", dbOpenDynaset)

est surlignée en jaune.


Quelqu'un pourrait-il me guider afin de débloquer ma situation?

Merci.

[Jeannot45]

Salut Byrdo,

Le plus simple serait de rattacher le formulaire à la table qui va recevoir les données.

Dans les propriétés du formulaire, il existe une propriété Record Source dans laquelle tu peux indiquer la table qui sera liée au formulaire.
Les différents champs que tu poses sur le formulaire sont directement liés à la source et renseigne l'enregistrement automatiquement.

A+

Jeannot

[byrdo]

Cette propriété Record Source se trouve dans les propriétés du bouton que j'ai créé pour envoyer les données?

Dois-je donner à mes champs texte les mêmes noms que les différentes colonnes de la table que je veux incrémenter avec un nouvel enregistrement?

[Jeannot45]

Bonjour byrdo

Reprenons les choses depuis le début. Un formulaire peut être soit indépendant soit dépendant.
On dit qu'il est indépendant s'il n'est rattaché à aucune table ou requete. Il est dépendant dans le cas contraire c'est à dire attaché à une table ou une requete.

1) Comment rendre dépendant un formulaire
-Deux méthodes:
a) Lors de la création du formulaire : Lorsque dans la fenêtre base de données tu fais dans l'onglet "Formulaire" : "Nouveau". Une boite de dialogue te demande de choisir la source
b) Si tu double clic sur "Créer un formulaire en mode creation". Il te faut alors afficher les propriétés du formulaire et dans l'onglet "Données" au niveau de Record Source, tu choisis la source à rattacher.

2) Positionner les champs attachés sur le formulaire
Tu affiches la liste des champs. Tu cliques maintenu sur le champ qui est concerné et tu le glisses sur le formulaire. (le nom du champ apparait dan la partie droite (Zone de texte = partie rattachée directement à la table) et la partie gauche (Etiquette = affiche le nom de champ ou la légende que tu pourrais avoir créer dans ta structure de table) du controle.

Le fait de rattacher une table à un formulaire et la manière la plus simple de renseigner une table (ajout ou modif d'enregistrement)


A+

Jeannot

[byrdo]

Je pense avoir perçu le fonctionnement que tu préconises.

En revanche, je désirai passer par l'utilisation de VBA.

De plus, je vais aussi avoir besoin de supprimer ou de modifier des champs dans ma table, par l'intermédiaire d'autres formulaires similaires.

Je voudrais que l'utilisateur puisse entrer des valeurs dans les champs, valeurs qui sur clic d'un bouton se retrouve incrémentées dans la table.

[Jeannot45]

Re,

Dans ce cas, modifie la procédure comme suit

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
Dim MaTable as DAO.RecordSet
Set MaTable = CurrentDb.OpenRecordset("Utilisateurs")
On Error Resume Next
With MaTable
.AddNew
.Fields("Nom") = Form_ajout!txtnom
.Fields("PreNom")= Form_ajout!txtprenom
.Fields("Service")= Form_ajout!lstservice
.Update
End With
If Err.Number <> 0 Then
MsgBox Err.Description, , Err.Number
GoTo Fin:
End If
MaTable.Close
Set MaTable = Nothing
Fin:
End Sub

A+

Jeannot

[byrdo]

Après modification, lors du clic sur le bouton, j'ai une petite fenêtre nommée "424", qui contient le message "Objet requis".

[Jeannot45]

Salut byrdo,

tu devrais vérifier si la bibliothèque DAO est activée dans les références du vb.

Quand tu es dans la fenêtre VBE, tu cliques sur Outils référence et tu recherche la bibliothèque : Microsoft DAO 3.6 Object Library

A+

Jeannot

[byrdo]

Cette bibliothèque est déjà cochée.

[Jeannot45]

Pourrais tu modifier le début du code comme suit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim MaTable as DAO.RecordSet
Dim strSqlMaTable as String
strSqlMatable = "SELECT * FROM Utilisateurs"
Set MaTable = CurrentDb.OpenRecordset(strSqlMatable)
On Error Resume Next
With MaTable
.AddNew
.Fields("Nom") = Form_ajout!txtnom
.Fields("PreNom")= Form_ajout!txtprenom
.Fields("Service")= Form_ajout!lstservice
.Update
End With

Vérifie également les noms de champ à utiliser

A+

Jeannot

[byrdo]

J'ai tenté la modification, mais sans succès.

Comme j'avais utilisé tes explications précédentes (notamment rendre le formulaire dépendant de la table), je suis malgré tout parvenu à un résultat conforme à mes attentes.

Cependant, j'avoue être agacé par le fait que je n'arrive pas à utiliser ce code VBA, qui serait quand même plus recherché et plus modulable en vue d'autres utilisations.

[Jeannot45]

Désolé et j'avoue que je ne comprends pas j'utilise moi-même cette procédure pour ajouter des enregistrements dans des tables et je ne rencontre pas de problèmes.

Un dernière solution (celle que j'utilise ...)
Plutot que de saisir les noms de champs, je me sers de l'index en fonction de la position du champ dans la requete

ainsi imaginons que la table soit Nom / Prenom / Service, la procédure donnerait

Code :

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

1
2
3
.Fields(0) = txtNom
.Fields(1) = txtPrenom
.Fields(2) = txtService

Remarque que l'index commence à 0

Voilà ....

A+
Jeannot