{Access} mise a jour

abdo78 -  
 abdo78 -
Bonjour,
Bonjour,
j ai une table article dans une base de donné , dans cette table il y plusieur champ , parmis ils code article :
j ai 966 code article , tous ces codes commence par le nombre 3 :
exemple : 3122831200
3122831201
3122831202
3122831203

3122831900

je veux remplacer le premier chiffre 3 par 6

svp aider moi
Configuration: Windows XP Internet Explorer 6.0

5 réponses

  1. moiced59 Messages postés 1161 Statut Membre 60
     
    bonjour

    est ce que t nombre possede tous le meme nombre de chiffre?

    ex
    100
    101
    mais de 1000 ou 100000

    Si tel est le k il y a bien une requete posssible
    0
    1. abdo78
       
      bonjour
      oui tous les codes possedent le meme nombre de chiffre (10 chiffre)
      0
  2. moiced59 Messages postés 1161 Statut Membre 60
     
    ok j'ai trouvé la solution je la poste tt a leur
    0
    1. abdo78
       
      merci
      0
  3. moiced59 Messages postés 1161 Statut Membre 60
     
    re
    dc il te faut passer par une petit code vba:

    Dim resul As Integer
    Dim rs As Recordset
    Dim db As Database
    Set db = CurrentDb
    Set rs = db.OpenRecordset("ta_table")
    With rs
    Do Until .EOF
    If Not .EOF Then
    .Edit
    !le champ a mettre a jour = 6 & Right(!le champ, 2)
    .Update
    .MoveNext
    End If
    Loop

    End With
    0
  4. moiced59 Messages postés 1161 Statut Membre 60
     
    re remplace le 2

    !le champ a mettre a jour = 6 & Right(!le champ, 2)

    par
    !le champ a mettre a jour = 6 & Right(!le champ, 9)
    0
    1. abdo78
       
      rebonjour
      ou je dois ecrire ce code , est ce que je dois creer un module access?
      le nom de base :dbcompta
      le nom de champ a mettre a jour : code
      0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. moiced59 Messages postés 1161 Statut Membre 60
     
    re
    dc:
    il te faut juste creer un bouton sur ton formulaire et sur clic faiire cela:

    Dim resul As Integer
    Dim rs As Recordset
    Dim db As Database
    Set db = CurrentDb
    Set rs = db.OpenRecordset("nom_de_ta_table")
    With rs
    Do Until .EOF
    If Not .EOF Then
    .Edit
    !lcode = 6 & Right(!code, 9)
    .Update
    .MoveNext
    End If
    Loop

    End With
    0
    1. abdo78
       
      rebonjour
      merci de votre aide , le premier chiffre est changé grace a votre code
      merci encore
      0
    2. abdo78
       
      Bonjour,
      dans un programme de comptabilté , est ce que je peut differencier entre la ligne du credit et celle du debit par couleur .
      car en cas de consultation des operations il est un peut difficile de consulter sur ecran.
      merci de votre aide
      le programme est sous vb , la base de donnée est sous access
      0