> Tous les forums > Forum Autres langages
 acess et vba pour modification d'une base de donnéeSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
loulou84
  Posté le 30/07/2014 @ 07:44 
Aller en bas de la page 
Petit astucien

Bonjour,

je souhaiterai parcourir ma base de donnée regarder la valeur d'un champs et si elle est pas bonne alors j'attribue tel valeur au champs d'a coté!

Mais ca marche pas, je pense que je peux pas faire d'uptate si je travaille deja sur ma table nn?

Si quelqu'un peut m'aider merci

Dim db As DAO.Database

Dim myrst As DAO.Recordset

Dim temp() As String, i As Integer, resultat As String

'tu definis quelle est la BD étudiée, c'est celle qui est courante..

Set db = CurrentDb

'nom de ta table

matable = "Table1"

monAutreTable = "TABLE_2"

sSQL = "SELECT id,Nom,Avancement from " & matable & " ORDER BY id "

'tu definis ton recordset qui va contenir le resultat de la requete

Set myrst = db.OpenRecordset(sSQL)

'si le recordset n'est pas vide

If Not myrst.EOF Then

' tant qu'il n'est pas vide

Do While Not myrst.EOF

'recuperation des valeurs pour tes 3 champs

temp = Split(myrst.Fields("Avancement").Value, ";")

If UBound(temp) > 0 Then

resultat = " "

For i = 0 To UBound(temp)

If temp(i) = "Refus" Then

resultat = "Refus"

ElseIf temp(i) = "A contacter" Then

If resultat <> "Refus" Then

resultat = "A contacter"

End If

ElseIf temp(i) = "Signe" Then

If resultat <> "Refus" Or resultat <> "A contacter" Then

resultat = "Signe"

End If

End If

Next i

requete = "Update[" & matable & "] SET [Resultat] = [" & resultat & "] where [id] =[" & myrst.Fields("id").Value & "];"

DoCmd.RunSQL (requete)

myrst.MoveNext

End If

Loop

End If

' tu fermes/vides tout

myrst.Close

Set myrst = Nothing

db.Close

Publicité
Titus68
 Posté le 30/07/2014 à 13:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Cà semble de l'access cette base ? Il y a juste une erreur ici je pense :

myrst.MoveNext

End If

Loop

j'aurais plutot mis :

end if

myrst.movenext

loop

En testant avec un autre fournisseur et en adaptant les ordres sql, çà fonctionne.

loulou84
 Posté le 30/07/2014 à 13:58 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Merci j'essaie ca toute de suite, mais je fais ca sur acces pas besoin de fournisseur ! C'est pour un outil pour mon stage

loulou84
 Posté le 31/07/2014 à 09:29 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

thx

Titus68
 Posté le 31/07/2014 à 13:32 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

dolby

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
899 €PC portable 2 en 1 Lenovo Yoga 7 (14 pouces FHD tactile, Ryzen 7, 16 Go RAM, SSD 1 To) à 899 €
Valable jusqu'au 28 Juin

Lenovo fait une belle promotion sur l'ordinateur portable Lenovo Yoga 7 14 pouces à 899 € avec le code PUISSANCE alors qu'on le trouve habituellement à 1199 €. Cet ordinateur portable dispose d'un écran 14 pouces tactile Full HD (1920x1080) IPS , d'un processeur AMD Ryzen 7 5800U, de 16 Go de RAM, d'un SSD NVMe de 1 To, d'un chip graphique Vega 8, d'une webcam et de connexions Bluetooth, WiFi, Ethernet, HDMI, USB 2.0 et USB 3.0 et d'un lecteur d'empreintes digitales. Le tout tourne sous Windows 11.

Grâce à sa charnière à 360°, il peut se transformer en tablette tactile. Autonomie de 10h. Poids de 1.3 kg.

Un très bon portable / tablette polyvalent : bureautique, internet, multimédia, jeux.


> Voir l'offre
139,69 €Chaise de bureau ergonomique Umi (accoudoirs,soutien lombaires, appui-tête réglable) à 139,69 €
Valable jusqu'au 28 Juin

Amazon fait une promotion sur la chaise de bureau ergonomique Umi qui passe à 139,69  via une vente flash et un coupon à activer sur la page du produit au lieu de 199,99 €. La livraison est gratuite. Cette chaise vous permettra de travailler confortablement toute la journée. Avec appui-tête, accoudoirs et soutien lombaire réglables.  En cas de fatigue au travail ou lorsque vous étudiez, vous pourrez aisément ajuster et verrouiller l'inclinaison du dossier sur ses trois angles de 102, 110 et 130°. Charge max 150kg.


> Voir l'offre
24,32 €Niveau à Bulle Bosch Professional - 25 cm avec dessous aimanté à 24,32 €
Valable jusqu'au 28 Juin

Amazon fait une promotion sur le niveau à bulle Bosch Professional 25 cm avec dessous aimanté qui passe à 24,32 € au lieu de 32 €.


> Voir l'offre

Sujets relatifs
recuperer donnée pour faire un graphique
base de donnee
Commande "Taille écran" pour base Access
mysql base de données de récupération dans wampserver2
Base de données et VS 2015
Sql MCD pour un projet de location
Commande batch pour ouvrir plusieurs fichiers windows 8
modification Setup.Lst
Visual Basic & Base de données
Aide pour un programme simple en C++
Plus de sujets relatifs à acess et vba pour modification d''une base de donnée
 > Tous les forums > Forum Autres langages