Discussion :

[Apoulit]

Bonjour,
j'ai deux tables, "T_abonnes" et "T_abonnes_w"

Sur une requête, la table "T_abonne_w" à un champ [numero_abonne] lié au champ [ancien_numero] de la table "T_abonnes"
La Table "T_abonnes" a un champ [nouveau_numero]
J'obtiens ceci sur ma requete:



L'objectif et d'écrire sur [T_abonne_w].[numero_abonne] le nouveau numéro [T_abonne].[nouveau_numero]

j'ai essayé de faire une requête de mise à jour ... mais je me heurte au fameux message "L'opération doit utiliser une requête qui peut être mise à jour" !

L'idée est ce que je peux initier une boucle en vba qui selon la condition numero_abonne = ancien_numero alors on ecrit sur numero_abonne le nouveau numero ?

Merci.

[loufab]

Bonjour,

Sans le texte SQL de la requête Update et le mcd de tes tables c'est difficile d'émettre un avis.

Si tu règles ça par une boucle VBA tu as besoin de travailler avec la requête de correspondance dans un recordset et de la table à corriger dans un autre. Puis faire un findfirst (et findetxt si nécessaire) pour faire tes recordset.edit. Utiliser à la fois une requête update et un Edit n'a aucun sens.

Cordialement,

[hyperion13]

Salut
Une approche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub num_abo_BeforeUpdate(Cancel As Integer)
    MsgBox "nouveau numéro = " & Me.num_abo
    MsgBox "ancien numéro = " & Me.num_abo.OldValue
End Sub

[tee_grandbois]

bonjour,

j'ai essayé de faire une requête de mise à jour ... mais je me heurte au fameux message "L'opération doit utiliser une requête qui peut être mise à jour" !

2 causes possibles:
- ta requête utilise un regroupement
- une des 2 tables n'a pas de clé primaire unique

L'idée est ce que je peux initier une boucle en vba qui selon la condition numero_abonne = ancien_numero alors on ecrit sur numero_abonne le nouveau numero ?

inutile de passer par VBA: c'est possible de le faire directement par requête avec IIf() (Vraifaux() en français) dans le champ à mettre à jour (je suppose que c'est numero_abonne):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=iif([numero_abonne] = T_abonne.ancien_numero;[nouveau_numero];[numero_abonne])

mais comme l'a indiqué loufab, il faudrait poster le texte SQL de la requête de mise à jour, pour donner un avis plus précis

[Apoulit]

Slt,
super la condition iff je connaissais pas.

La mise à jour se fait pas certainement car il n'y a pas de clé primaire qui pourrais servir de condition dans le critère ...
Abonnes.zip

J'ai joint un fichier pour montrer ma situation.

Merci.

[tee_grandbois]

La mise à jour se fait pas certainement car il n'y a pas de clé primaire qui pourrais servir de condition dans le critère

il suffit d'ajouter un numéro auto et la déclarer en tant que clé primaire pour que la mise à jour soit possible

J'ai joint un fichier pour montrer ma situation.

est-ce bien la table T_abonnes_w qu'il faut mettre à jour ? pourquoi il n'y a qu'un seul champ ?
Cela me parait bizarre (pour ne pas dire dangereux) que le champ qui sert de lien soit mis à jour (enfin, je suppose que numero_abonne de T_abonnes_w doit être joint à T_abonnes par ancien_numero).
De plus il manque la table T_abonnes dans la requête donc aucune chance que la requête fonctionne.
Il faudrait écrire précisément ce que tu souhaites faire avec les 2 tables et laquelle doit être mise à jour.

[Apoulit]

Je sais j'ai du mal à me faire comprendre je fais des efforts ;D

[tee_grandbois]

commence par répondre aux questions, après on verra

[hyperion13]

Salut
Et moi j'ai du mal à comprendre qu'on puisse mettre à jour un paquet de nouveau numéro abonné sans contrôle.
En règle générale, on modifie l'ancien du nouveau numéro directement sur la fiche de l'abonné concerné !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub num_abo_BeforeUpdate(Cancel As Integer)
Dim result As Integer
 
result = MsgBox("Voulez-vous remplacer l'ancien num abonné : " & Me.num_abo.OldValue & vbNewLine & _
"par le nouveau num abonné : " & Me.num_abo & " ?", 4 + 32, "Continue")
 
If result = vbYes Then
    CurrentDb.Execute "INSERT INTO tbl_abonne_old (id_abo_fk, nom_abo_old, num_abo_old)" _
        & " VALUES (" & Me.id_abo & ",'" & Me.nom_abo & "', '" & Me.num_abo.OldValue & "')", dbFailOnError
Else
    Cancel = True
    Me.Undo
    Exit Sub
End If
End Sub