Discussion :

[Mounamidou]

Slt,
À l'aide du générateur d'expression dans Access, je désire, trouver la valeur Max numérique (la maximale de toutes les valeurs numériques seulement) dans un champ alphanumérique (nommé FRS N°). Pour votre information le champ est du type texte.

Merci pour votre précieuse Aide
Mouna

[Jean-Philippe André]

salut,

dans un premier temps, qu'as-tu déjà réussi à trouver comme filtre ?

- savoir si une valeur de champs est un numérique ? voir IsNumeric()
- "caster" un champ au format numérique ? voir Cdbl()
- utiliser un opérateur dans le select ? voir le cours de SQLPro

[Mounamidou]

jpcheck, peut être que je me suis mal éxprimé:
C’est que j'ai un champ "FRS N°" dans une table "Invoices", il représente les N° des enregistrements des invoices exemple d'information qu'il contient
52455
FRS25455
AV45888
36545
...etc
Je désire faire apparaitre sur un formulaire le plus grand numéro numérique du champ "FRS N°" dans l'exemple qui précède c'est le 52455.
merci de me donner l'expression qui me permettra d'avoir ce résultat (générateur d'expressions d'access) ?

[argyronet]

Bonjour,

A mon avis, si ton champ ne contient pas de texte alpha, cette requête doit répondre à ta demande :

Code :

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

1
2
SELECT Max(Val([MaTable].[MonChamp])) AS MaxDeMonChamp
FROM MaTable;

Sinon, il va falloir extraire la partie numérique de la valeur pour obtenir ton MAX avec par exemple cette fonction mais ça risque de ne pas être très optimal en performance.

Le générateur d'expression est incapable d'effectuer cela...

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
16
17
18
19
20
21
22
23
24
25
 
Function GetInvoiceNumber(ByVal InvoiceNumber As String) As Long
Const NUMERIC_CHARS                 As String = "0123456789"
Dim C                               As Integer
Dim strInvoiceNumber                As String
Dim strChar                         As String
 
    On Error GoTo GetInvoiceNumber_Error
 
    For C = 1 To Len(InvoiceNumber)
        strChar = Mid$(InvoiceNumber, C, 1)
        If InStr(1, NUMERIC_CHARS, strChar) Then
            strInvoiceNumber = strInvoiceNumber & strChar
        End If
    Next
    GetInvoiceNumber = CLng(strInvoiceNumber)
 
    On Error GoTo 0
GetInvoiceNumber_Exit:
    Exit Function
 
GetInvoiceNumber_Error:
    GetInvoiceNumber = 0
    Resume GetInvoiceNumber_Exit
End Function

Ce qui donne alors :

Code :

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

1
2
SELECT Max(GetInvoiceNumber([MaTable].[MonChamp])) AS MaxDeMonChamp
FROM MaTable;

Pour info, lorsque je développe une application de gestion de factures, je pose toujours dans la table Orders et/ou Invoices un champ qui calcul la partie numérique du champ alpha en dynamique (si peu qu'un cahmp alpha soit demandé) et ce, au moment de la création de la pièce, ce qui fait que ce genre d'opération, telle que tu la demandes devient sans problème...

Argy

P.S. Évite les espaces dans les noms de champ

[Mounamidou]

merci bcp Argy, votre réponse a marché pour la fonction "GetInvoiceNumber", mais pour la deuxième tranche du code:

Code :

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

1
2
3
 
SELECT Max(GetInvoiceNumber([MaTable].[MonChamp])) AS MaxDeMonChamp
FROM MaTable;

il me renvoi #Erreur
à votre avis pourquoi?

Mouna

[argyronet]

Humm, là comme ça, il est probable que le champ examiné possède une valeur NULL ;

Argy

[Mounamidou]

Argy, c'est formidable, tout marche à la perfection.
Merci encore une autre fois pour ton aide.

Mouna