> 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 poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


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