Sujet Précédent Sujet Suivant

Impossible de mettre a jour un champ

Oiseauxdefer Messages postés 2 Date d'inscription samedi 13 avril 2024 Statut Membre Dernière intervention 13 avril 2024 - 13 avril 2024 à 17:54
yg_be Messages postés 22754 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 4 mai 2024 - 14 avril 2024 à 07:49

Bonjour, jr vous inclus mon code, je d/bute avec les bases de dones

   ' Vérifiez si un enregistrement a été trouvé
    
   If Not oRS.EOF Then
    fieldValue = oRS.Fields("Value").Value
    MsgBox "Valeur du champ avant l'incrémentation : " & fieldValue  'Valeur du champ Valeur
    fieldValue = fieldValue + 1
     MsgBox "Valeur du champ après l'incrémentation : " & fieldValue  ' Valeur apres incremention

 oRS("Value").Value = fieldValue    ' c<est ici que ca ne fonctionne pas
     On Error GoTo UpdateError
    
    oRS.Update
      GoTo UpdateSuccess
End If


UpdateError:
MsgBox "Une erreur est survenue lors de la mise à jour : " & Err.Description


UpdateSuccess:
MsgBox "La mise à jour a été effectuée avec succès."
       
    
      MsgBox "Aucun enregistrement trouvé."
   ' End If
    
     'Fermez le Recordset
 Set oRS = Nothing
 

A voir également:

2 réponses

Réponse 1 / 2
Whismeril Messages postés 19036 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 2 mai 2024 931
13 avril 2024 à 20:27

Bonjour

pour tes prochains posts merci de faire comme décrit là https://codes-sources.commentcamarche.net/faq/11288-poster-un-extrait-de-code en choisissant Basic

Merci aussi de ne pas poster ta question en double, à part donner ton boulot à la modération ça ne sert à rien. Nous sommes tous bénévoles et on répond quand on peut et si on veut.


je d/bute avec les bases de dones

OK, VB6 (que tu sites dans ton autre messages) est obsolète, Microsoft a arrêté sa commercialisation en 1999 et l'a définitivement abandonné en 2005.

Pas certain que ce soit un bon choix pour débuter quoique ce soit.

Mais bon....

Indiquer la ligne qui plante c'est très bien, mais pour que quelqu'un puisse t'aider (à priori pas moi, ça fait plus de 15 ans que je ne code plus en VB6), il faudrait 

  • le message d'erreur
  • le type du champs dans la bdd
  • le type de la variable
  • le type de oRS
0
yg_be Messages postés 22754 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 4 mai 2024 1 479
14 avril 2024 à 07:49

bonjour à tous,

j'ajouterais:

bonjour,

tu as bien mis "option explicit" en début de module?

remarques-tu la différence entre ces deux lignes ?

oRS.Fields("Value")

oRS("Value")

Je pense que le message d'erreur doit être assez clair, pourtant.

0
Réponse 2 / 2
Oiseauxdefer Messages postés 2 Date d'inscription samedi 13 avril 2024 Statut Membre Dernière intervention 13 avril 2024
13 avril 2024 à 20:55

Merci quand même j'ai remis ma demande cette fois avec plus de code je connais quand même VB6 depuis quelques années mais je ne l'ai jamais utiliser avec des bases de données

Bonne fin de journée
0

Discussions similaires

Nom de champs du tableau croisé dynamique non valide
Kazooie123 -
SajDri -

6 réponses
mise à jour boitier X96 mini
Brunoche -
Vico -

3 réponses
Mise à jour impossible à terminer
jeannets -
Salv -

27 réponses
Table des matières dont les titres n'apparaissent pas..
Synua -
ggg -

10 réponses