Discussion :

[alijaona]

Bonjour à tous,

Je voudrais demander quel est le code vba access pour réaliser des fontions enregistrement ou suppression qui peut injecter des enregistrement dans des tables dont les nombres de champs est variable.
C'est à dire que la fonction peut insérer des enregistrements tantôt dans des tables avec deux champs, tantôt avec trois champs ou plus

Merci d'avance

Alijaona

[loufab]

Bonjour,

Pour la suppression le nombre de champs n'a aucune importance puisque tu supprime un enregistrement.

Une requête sql :

Code :

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

DELETE * FROM Table [Where Condition];

En VBA :

Code :

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

1
2
3
4
5
6
dim rst as recordset
set rst = currentdb.openrecordset("Table",dbopendynaset)
rst.findfirst [condition]
if not rst.nomatch then
   rst.delete
...

Pour plus d'info voir le tuto sur DAO.

Pour l'insertion la requete sql peut prendre plusieurs formes :

Code :

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

INSERT INTO matable (champ1,champ2,...) Values (10,"valeur texte",...)

ou

Code :

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

INSERT INTO matable (champ1,champ2,...) Select (champ1,champ2...)

En VBA

Code :

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

1
2
3
4
5
6
7
8
dim rst as recordset
set rst = currentdb.openrecordset("Table",dbopendynaset)
rst.addnew
rst.fields(0) = "valeur texte"
rst.fields(1) = 10
...
rst.update
...

Cordialement

[alijaona]

Merci pour ce petit rappel loufab,

Cependant, le but c'est de créer une foction du genre

enregistrer("nom de latable","champ1","champ2"...)

que 'lon pourrais utiliser sur des formulaires
afin d'insérer des enregistrements dans des tables dont les nombre champs sont variable.

on peut utiliser par exemple la même fonction pour insérer des enregistrements à la fois dans la table
client dont les champs sont code_client,nom_client (2 champs)
et la table
commande dont les champs sont code_commande,date_commande,code_client_article_quantite (3 champs)

Nb:les types de champs sont également variable :nombre ou caractère

Merci d'avance

Alijaona

[loufab]

Le plus simple est d'utiliser la technique à base de requête SQL, que tu peux construire dynamiquement dans VBA.

Regarde les différents tutos sur le sujet :
Débogage de requete sql en VBA.
l'un des tutos sur les modules de recherche qui sont fait à partir de requête dynamique.

Pour passer des arguments tu peux utiliser des tableaux à 1 dimension

Nom du champ, type, Valeur

Allez lance toi !

Cordialement,