Discussion :

[MADA BLACK]

Bonjour Forum
Bonjour a tous et a toutes
SVP si vous pouvez m'aider a realiser ce fichier
J'ai une database ACCESS nommee (DB1) et aussi 5 TextBox
J'aimerai bien si vous pouvez m'aider bien sur lorsque j'ecris les cordonnees dans Form1 et je clique sur Command1 alors ces cordonnees seront transmis vers ma database ACCESS ..
Merci beaucoup d'avance pour l'aide
Tres cordialement
MADA

[DAUDET78]

SVP si vous pouvez m'aider a realiser ce fichier

On ne peut t'aider que si tu n'as déjà un peu bossé. A la vue de ton ZIP, tu as rien fait du tout !

Et, à quoi ça sert de t'aider (je l'ai fait, hélas, dans un temps ancien), vu que tu n'en tires pas profit pour améliorer ta méthode de programmation ?
Je t'avais expliqué comment indexer une TextBox. C'est passé à la trappe ..... aux oubliettes.

[MADA BLACK]

On ne peut t'aider que si tu n'as déjà un peu bossé. A la vue de ton ZIP, tu as rien fait du tout !

Et, à quoi ça sert de t'aider (je l'ai fait, hélas, dans un temps ancien), vu que tu n'en tires pas profit pour améliorer ta méthode de programmation ?
Je t'avais expliqué comment indexer une TextBox. C'est passé à la trappe ..... aux oubliettes.

Bonjour DAUDET78
Merci pour votre opinion
Mais malheureusement je ne peux pas bosse car peut etre c'est ma deuxieme ou troisieme fois dans ma vie que je travail avec une database et ACCESS
Merci dans tous les cas
Cordialement
MADA

[iclic]

Bonjour,

exemple

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
 
Dim oRst as DAO.Recordset
Dim oDb as DAO.Database
Set oDb=CurrentDb
Set oRst=oDb.OpenRecordset("TblProduit",dbOpenTable)
'Passe en mode Ajout
oRst.AddNew                                                       ' la méthode ajouter
'Affecte les différents champs
oRst.Fields("Reference").Value="SRS200"              'le nom de ton recordset,le nom de ta table, la valeur d'un textbox ( ici SRS200)
oRst.Fields("Libelle").Value= text.textbox1             'Met à Jour
oRst.Update                                                         'la méthode mettre à jour 
'Libération des objets
oRst.Close
oDb.Close
Set oRst=Nothing
Set oDb=Nothing

[MADA BLACK]

Bonjour iclic
Tres tres ravi de vous rencontrer une autre fois
Merci beaucoup pour l'aide
Merci 1000 fois pour votre gentillesse .. et votre serviabilite
J'ai mis ce code mais lorsque je clique sur command1 ..voir svp cette image qui s'affiche
Sachant que mon fichier ACCESS nomme (DB1) ..ma table nommee (TB1)
Merci d'avance Gentelman pour l'aide
Tres amicalement
MADA

[iclic]

Bonjour,

Il faut adapter le code à ton projet et ne pas faire bêtement un copier-coller

[l_autodidacte]

User-defined type not defined (Type défini par l'utilisateur non défini)

Il faut ajouter la référence : Microsoft DAO 3.6 Object Library