[AC-2003] Appliquer un VB script à tous les enregistrements d'une table [Résolu]

[torobravo]

Bonsoir,

je voudrais m'excuser d'avance car ma question est peut-être totalement inepte, mais je me vois parfois obligé de bidouiller sans jamais avoir appris la programmation...

Voilà: j'ai, dans une table de mon application, un bouton qui lance un script en visual basic qui va s'appliquer à l'enregistrement en cours. Le script transfère des informations de certains champs dans d'autres.

Comment puis-je faire pour que le script soit lancé pour tous les enregistrements contenus dans la table?

Merci,

[Philippe JOCHMANS]

Bonjour

Il serait bon de donner plus de détails, entre autre ton code.

Ton code est dans Access ? Car lorsque tu écris VB Script on parle en général d'un code externe à Access.

Philippe

[torobravo]

Bonjour,

merci pour ta réponse. Oui, mon code est dans Access et le voilà en entier:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Private Sub Prenom_Change()
        Dim AdrPr
        If Not IsNull(Me.Titre) Then AdrPr = Me.Titre & " "
        If Not IsNull(Me.Prenom) Then AdrPr = AdrPr & Me.Prenom & " "
        If Not IsNull(Me.Nom) Then AdrPr = AdrPr & Me.Nom & vbCrLf
        If Not IsNull(Me.Organisme) Then AdrPr = AdrPr & Me.Organisme & vbCrLf
        If Not IsNull(Me.Adresse) Then AdrPr = AdrPr & Me.Adresse
        Forms!Client.AdressePrincipale = AdrPr
        Dim AdrFac
        If Not IsNull(Me.Titre) Then AdrFac = Me.Titre & " "
        If Not IsNull(Me.Prenom) Then AdrFac = AdrFac & Me.Prenom & " "
        If Not IsNull(Me.Nom) Then AdrFac = AdrFac & Me.Nom & vbCrLf
        If Not IsNull(Me.Organisme) Then AdrFac = AdrFac & Me.Organisme & vbCrLf
        If Not IsNull(Me.Facturation) Then AdrFac = AdrFac & Me.Facturation
        Forms!Client.AdresseFacturation = AdrFac
        Dim AdrLiv
        If Not IsNull(Me.Titre) Then AdrLiv = Me.Titre & " "
        If Not IsNull(Me.Prenom) Then AdrLiv = AdrLiv & Me.Prenom & " "
        If Not IsNull(Me.Nom) Then AdrLiv = AdrLiv & Me.Nom & vbCrLf
        If Not IsNull(Me.Organisme) Then AdrLiv = AdrLiv & Me.Organisme & vbCrLf
        If Not IsNull(Me.Livraison) Then AdrLiv = AdrLiv & Me.Livraison
        Forms!Client.AdresseLivraison = AdrLiv
 
End Sub

Le but de la manip est de remplir, à partir des adresses contenues dans une table, de nouveaux champs permettant d'éditer des étiquettes. Le code ci-dessus s'exécute àdans un formulaire pour un enregistrement donné mais j'aimerais mettre toute la table à jour avec ces paramètres.

Merci encore pour ton aide,

Julien

[loufab]

Bonjour,

Tout d'abord attention aux termes que tu utilises.

VB script n'a rien à voir avec VBA.

Ceci dit :

Pour traiter des enregistrements ont utilises généralement SQL.
Maintenant il faut voir exactement ce que fait ta procédure. Si c'est uniquement du transfert de valeur avec quelques applications de fonctions tu peux passer par SQL.

S'il s'agit de plus compliquer utilises quand même SQL mais converti ta procédure en fonction (function au lieu de Sub). Tu dois lui passer un argument unique tel que le champ ID que tu devrais avoir dans cette table. Inutile d'utiliser l'id dans ton code c'est uniquement destiné à lui faire traiter ta fonction sur chaque enregistrement.

Exemple :

Code :

Select mafonction([champID]) FROM matable Where ....;

Note que suivant le traitement il peux y avoir des verrous sur la table ou cela peut prendre énormément de temps pour réaliser l'opération.

Cordialement,

[loufab]

Entre temps le post à évoluer.

Pour ce type de traitement SQL suffit largement.

Cordialement,

[torobravo]

Bonsoir,

d'accord, je ferai attention à la différence entre VBA et VB script.

Je vais tenter ça en SQL suivant tes conseils.

Merci encore pour avoir pris la peine de m'éclairer.


Julien

[loufab]

Si tu as déjà les informations dans une table c'est inutile d'en créer une autre une simple requête suffit comme source d'un état.

Voici une piste à adapter :

Code :

SELECT NZ(TableSource.Titre,"") & " " & NZ(TableSource.Prenom,"") & " " & ...  & vbcrlf & NZ(TableSource.Organisme,"") AS adrFac FROM TableSource;

Crodialement,

[torobravo]

Bonsoir,

je crois que je m'emmêle les pinceaux, je ne comprends pas tout ce que tu m'expliques... je vais prendre un bouquin Access et potasser ça pour voir si je peux m'en sortir.

En attendant, je vais marquer le post résolu en te remerciant pour tes conseils.

[loufab]

Lorsque tu as besoin de transformer des informations existantes dans une ou plusieurs tables inutiles d'en créer une supplémentaire. Une requête suffit.

La requete que je te propose dans mon post précédent reproduit ton code VBA.