Transmettre vers database access

Version imprimable

01/05/2016, 12h10
MADA BLACK

1 pièce(s) jointe(s)

Transmettre vers database access

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
01/05/2016, 17h38
DAUDET78

Citation:

Envoyé par MADA BLACK

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.
01/05/2016, 17h52
MADA BLACK

Citation:

Envoyé par DAUDET78

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

Bonjour,

exemple

Code:

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

02/05/2016, 11h51
MADA BLACK

1 pièce(s) jointe(s)

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
Pièce jointe 208481
02/05/2016, 12h38
iclic

Bonjour,

Il faut adapter le code à ton projet et ne pas faire bêtement un copier-coller
02/05/2016, 13h34
l_autodidacte

Citation:

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