Archives de catégorie : Code VBA

VBA : Rechercher un mot dans toutes les requêtes

Publié le par
Répondre

Les modifications d’une application conséquente sont souvent difficiles à réaliser, surtout dans le cas des requêtes. Dans ce billet je vous propose un bout de code pour rechercher un mot, complet ou non, dans toutes les requêtes d’un fichier MS Access.

Function SnifQuery(Optional strText As String = "") 
   On Error GoTo errSub 
   Dim db As DAO.Database 
   Dim qry As DAO.QueryDef 

   Set db = CodeDb 

   ' si rien n'est transmis on demande le mot 
   If strText = "" Then 
      strText = InputBox("Indiquez le mot à rechercher dans les requêtes." & _ 
           vbCrLf & "Ce mot peut être incomplet.", "Mot à rechercher", "") 
      If strText = "" Then Exit Function 
   End If 

   ' balaye toutes les requêtes 
   For Each qry In db.QueryDefs 
      'si on trouve le mot 
      If qry.sql Like "*" & strText & "*" Then 
         ' on ouvre la requête 
         DoCmd.OpenQuery qry.Name, acViewDesign 
      End If 
   Next 

   ' on est propre donc on ferme le chose dont on ne se sert plus. 
   Set qry = Nothing 
   Set db = Nothing 
   Exit Function 
   
   errSub: 
   Resume Next
 
End Function

Pour le lancement vous pouvez passer par la fenêtre Exécution de VBE ou encore créer une macro Autokeys.

  • Ouvrez une nouvelle macro.
  • Affichez la colonne Nom de macro.
  • Entrez le raccourci souhaité. Exemple +^{Q}
  • Dans la colonne Action sélectionnez ExécuterCode.
  • Indiquez dans le nom de la fonction SnifQuery().

Lorsque vous utiliserez Ctrl+Shift+Q la fonction sera appelée.

Attention ce bout de code ne fait pas de recherche dans les requêtes des bibliothèques.

Bonne utilisation !

VBA : Transformer du texte en numérique

Publié le par
Répondre

Cette petite fonction sans prétention permet de transformer une chaine de caractères en valeur numérique. « Quoi de nouveau ! » me direz-vous. A la différence des fonctions natives de types Val(), CDbl() et autre, cette fonction épure tous les caractères non numérique en tenant compte du signe et du séparateur décimal.

Function fSupprimerAlpha(mValeur As Variant) As Variant '------------------------------------------------------ 
' Procedure   : fSupprimerAlpha / Function 
' Author      : fabrice CONSTANS (MVP) 
' Date        : 03/06/2012 ' Modified : 
' Description : épure une chaine de caractère pour retourner une valeur numérique 
'      tient compte du sép. décimal et des + et - 
' Parameters  : mValeur contient la valeur à transformer 
' Return Value : retourne une valeur numérique valide '------------------------------------------------------ 
Dim i As Integer 

   If IsNull(mValeur) Or Len(mValeur) = 0 Then 
      fSupprimerAlpha = Null 
      Exit Function 
   End If 

   ' à inverser suivant le type de séparateur utilisé 
    mValeur = Replace(mValeur, ",", ".") 
    ' supprime tous les caracteres alpha 
    For i = 1 To Len(mValeur) 
       ' tout ce qui n'est pas numérique sauf +,- et sepérateur dec. 
       If Not IsNumeric(Mid(mValeur, i, 1)) And _
            Not Mid(mValeur, i, 1) Like " *[,,.]*" And _ 
            Not Mid(mValeur, i, 1) Like "*[+,-]*" Then 
          ' remplace par un espace 
          mValeur = Replace(mValeur, Mid(mValeur, i, 1), " ") 
       End If 
    Next ' renvoi la nouvelle valeur sans les espaces 
    fSupprimerAlpha = Replace(mValeur, " ", "") 
End Function

Vous pouvez facilement y faire appel depuis une requête par exemple.

Bonne utilisation !

VBA : Formater une adresse postale

Publié le par
Répondre

Voici un petit code qui permet de formater une adresse postale. Il est à insérer en dessous des lignes d’options (Option Compare…) d’un module standard (pas dans un module de classe, formulaire ou état) :

Valeur saisie : 115, impasse de la petite reine
Valeur formatée : 115, Impasse de la Petite Reine

Const particules= " de ; du ; d'; des ; l'; la ; le ; les ; en " 
'rajouter les mots en minuscule à ne pas mettre en majuscule 

Public Function formatAdresse(strAdresse As Variant) As String 
   Dim strA As String Dim arrParticules() As String 
   Dim i As Long 

   If IsNull(strAdresse) Then Exit Function 
   'si c'est null on ne traite pas 

   If strAdresse = "" Then Exit Function 
   'si c'est vide on ne traite pas 

   arrParticules = Split(particules, ";") 
   strA = StrConv(strAdresse, vbProperCase)
   'toutes les premieres lettres en majuscule
 
   For i = 0 To UBound(arrParticules) 
      strA = Replace(strA, arrParticules(i), LCase(arrParticules(i))) 
      'supprime la majuscule 
   Next 
   formatAdresse = strA 
End Function

On renseigne la constante avec les mots que l’on ne veut pas mettre en majuscule.
1) le strconv() met toutes les 1ère lettre de chaque mot en majuscule.
2) la boucle For remplace les mots trouvés qui correspondent à ceux de la constante.

L’appel de la fonction

Sélectionner la zone de texte de l’adresse que j’ai nommé Adresse, l’évènement Après MAJ et mettre ceci :

Private Sub Adresse_AfterUpdate() 
     Me.Adresse.Value = formatAdresse(Me.Adresse.Value) 
End Sub

« Adresse » est le nom de la zone de texte. Elle doit être remplacée par le nom de celle que vous souhaitez traiter.

Bonne utilisation !