Faire un update en VBA

Fermé
juliensmarties Messages postés 16 Date d'inscription vendredi 8 août 2008 Statut Membre Dernière intervention 5 août 2010 - 11 août 2008 à 12:51
Archi-dessin Messages postés 270 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 28 décembre 2009 - 12 août 2008 à 23:26
Bonjour,
J'aurais souhaité savoir comment faire un UPDATE en VBA car je souhaiterais mettre a jour ma base de donnée.
Pour mettre une donnée en base je procède comme suit :

Dim connect As ADODB.Connection 'Preparation de la chaine de connection connect

Set connect = New ADODB.Connection 'Creation de la chaine de connection connect

'Connection à la base de donnees
Dim cheminbdd As String
cheminbdd = Replace(ActiveDocument.FullName, "\doc_install.dot", "\base1.mdb")
connect.Open "Provider=Microsoft.Jet.oledb.4.0; Data Source=" & cheminbdd

Dim req1 As New ADODB.Recordset
req1.Open "select * from page1", connect, adOpenKeyset, adLockOptimistic 'Ma table est selectionnée ds la bd qui est ds connect
req1.AddNew 'ajout d'un element
req1("nomprojet") = D1.FormFields("nomprojet").TextInput.Default
req1.Update
req1.Requery

Comment je peux modifié une donnée de ma base1.mdb en m'appuyant sur ce code la. Je pense qu'en modifiant la ligne en gras ça devrais etre faisable mais comment ?

Merci de votre aide
A voir également:

2 réponses

Réponse 1 / 2
juliensmarties Messages postés 16 Date d'inscription vendredi 8 août 2008 Statut Membre Dernière intervention 5 août 2010
12 août 2008 à 15:41
personne pour m'aider ?
-1
Réponse 2 / 2
Archi-dessin Messages postés 270 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 28 décembre 2009 25
12 août 2008 à 23:26
pouquoi vous utilser Addnew lors d'une modification dans une requête
-1

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop


a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

2 réponses
hp bios update bloqué
almg -
Tkofficial -

Bonjour,
En allumant mon ordinateur, HP m'a demandé de faire une mise à jour du BIOS. J'ai donc démarré celle ci mais la barre de progression est bloquée sur 0% depuis deux heures maintenant.

J'ai essayé d'éteindre l'ordinateur en appuyant longuement sur le bouton power mais cela n'a pas fonctionné. L'ordinateur ne réagit à absolument rien et reste bloqué sur la mise à jour en cours qui n'avance pas.

Si vous avez une solution, je vous en serez très reconnaissante !

9 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur


'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

5 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

Bonjour,

je souhaite ouvrir un fichier excel à partir du code suivant:

Sub Ouvrir()
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx"
End Sub

sauf que lors de l'exécution j'ai cette erreur
==> Instruction incorrecte à l'extérieur d'une procédure et il met en bleu cette partie :
C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx

merci

3 réponses