Discussion :

[User]

Bonjour,

Pour ceux qui ont déjà téléchargé des applications exemples (Gestion de stock, Gestion de plannings...), très souvent ils souhaiterai remplacer un mot ou une expression chaine par une autre plus appropriée à leur besoin.

Exemple : dans une appli de gestion de stock, on souhaiterait remplacer "Produit" par "Article" dans toute la base de données.

Bien sûr cette opération n'est pas sans risque, c'est pourquoi il faut toujours faire une sauvegarde de la base au cas ou. Et surtout bien choisir le mot à remplacer et le nouveau mot pour qu'il ne soit pas contenu dans le nom d'une api par exemple..

Donc il y a certaines limitations , mais je pense tout de même qu'une telle fonction peut-être utile à certains.

Voici donc le module à importer dans votre base:
M_Replace.bas

et un exemple de lancement de la fonction dans la fenêtre d'exécution:

Code :

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

? ReplaceInDatabase("Produit","Article",true)

Le 3ème paramètre de la fonction indique s'il faut ou non respecté la casse lors de la recherche.

PS: Bien sûr Le module peut-être encore amélioré..

[hajeahmad]

Bonjour Denis

Ah que oui que ça peut être utile
car je ne traitais que les modules, en introduisant une msgbox et gestion d’erreurs ( rien de significatif)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
   Else
        MsgBox "Text not found."
        SearchOrReplace = False
    End If
 
Exit_SearchOrReplace:
    Exit Function
 
Error_SearchOrReplace:
 
MsgBox Err & ": " & Err.Description
    SearchOrReplace  = False
    Resume Exit_SearchOrReplace

Ne peut-on pas traiter une base distante selon le code suivant ? :

Code :

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

1
2
3
4
5
6
7
8
9
10
DbName = OpenFile(“Path”, Mono_Sélection, True, MSOffice, 12, True)
    If IsNull(DbName) Or DbName = "" Then Exit Sub
 
    Dim acApp As Access.Application
    Set acApp = New Access.Application
    With acApp
        .Visible = True
        .OpenCurrentDatabase (DbName)
 
        ….etc ?!

si non comment ?

cordialement
ahmad

[User]

Salut Ahmad,

Pour une base distante voici le code:
M_Replace2.bas

exemple d'exécution:

Code :

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

? ReplaceInDatabase(Chemin,"Produit","Article",true)

A tester bien sûr

[hajeahmad]

bonjour

un grand MERCI

Ahmad