Discussion :

[zooffy]

Bonjour

Je viens vers vous parce que je crois que j'ai tout oublié. Cela fait super longtemps que j'ai pas bossé dans un ACCESS pour faire une application et en plus la dernière fois que je l'ai fait c'était avec la version 2005, du coup, maintenant que je suis sur la version 2010, j'avoue être doublement paumé.
J'ai parcouru la doc et la MSDN, mais j'avoue que j'ai du louper un detail.

J'ai fais un fichier MDB avec mes formulaires et un autre avec juste des tables pour stocker mes données à part (habitude que j'ai prise il y a longtemps et que je trouve toujours utile). Ensuite j'ai fait une liaison entre les deux pour accéder à mes tables à partir de mes formulaires (et autres développements).

Là, j'en suis à faire un truc qui me paraissait simple mais qui ne fonctionne pas. Je vais peut-être vous poser mon code et vous expliquer juste après.

Code :

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

1
2
3
4
5
6
7
8
Sub EnregistrerUtilisateur(NomFormulaire As String)
MsgBox "je vais enregistrer un utilisateur qui vient de cliker sur un bouton"
Dim dbs As Database
Set dbs = OpenDatabase("Mon Application.mdb")
dbs.Execute "INSER INTO Utilisation_Bouton (Operateur, Nom_Formualire) VALUES (" & Environ("USERNAME") & "," & NomFormulaire & ")"
dbs.Close
 
End Sub

Lorsque je click sur le bouton il me met mon message et ensuite il bloque sur la ligne de liaison de la base de donnée et ne me disant :

Could not find the 'Mon Application.mdb'

C'est là que je comprends pas, je suis bien censé être déjà dans le fichier concerné ?
Ou alors, pour executer une requête SQL à partir d'un module VBA I y a une autre methode que je n'ai pas trouvé ?

Merci pour votre aide.

[Jean-Philippe André]

Salut,

On n'arrete pas le progres

l'extension des BDD depuis la version 2007 est passée de .mdb a .accdb.

Le cours disponible ici devrait t'aider :
http://warin.developpez.com/tutoriel...erieurs/#LII-A

[zooffy]

Merci pour ton aide.

Entre temps j'ai trouvé un truc qui me parait un peu mieux, moins de ligne de code, mais j'ai un autre souci.

Code :

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

CurrentDb.Execute "INSER INTO Utilisation_Bouton (Operateur, Nom_Formualire) VALUES (" & Environ("USERNAME") & "," & NomFormulaire & ")"

Et là il me raconte qu'il ne trouve pas la table. Je pense que cela doit venir du fait que c'est une table liée, mais j'ai un peu de mal à trouver pourquoi il ne la comprends pas alors qu'elle apaprait dans la liste des tables.
Ou alors c'est parce que je suis dans un module ?

Merci et bon app (c'est l'heure je crois).

[Jean-Philippe André]

Attention, tu utilises CurrentDb, alors que ton code pointe sur dbs (voir ton premier post)

ensuite, le code de ta requete va generer des erreurs, cat tu inseres des champs de type texte, et il manquait un T a INSERT

Code :

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

dbs.Execute "INSERT INTO Utilisation_Bouton (Operateur, Nom_Formualire) VALUES ('" & Environ("USERNAME") & "','" & NomFormulaire & "')"

[zooffy]

Merci pour ton aide.

Justement en utilisant CurrentDB je me suis apercus que je faisais la meme chose avec une seule ligne de code.
Et merci pour le T, c'est le truc qui faisait que ça plantait. Comme quoi, une paire d'yeux supplémentaire c'est toujours mieux.

Maintenant ça marche, j'enregistre mon truc comme il faut.

Merci pour tout et à bientôt parce que je sens que je vais encore rencontrer des petites soucis.

Bonne journée.