Discussion :

[Didier77]

Bonjour,
Alors j'ai une table Data2 et je veux
donner la valeur du champ STREET_1
au champ HOUSE_NO_1
quand la fonction IsNumerique = 1

Requete:

Code :

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

1
2
3
UPDATE Data2 
SET HOUSE_NO_1 = STREET_1
WHERE IsNumerique(STREET_1) = 1;

Fonction:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Function IsNumerique(ByVal Prefix As String) As Integer
 
If ((Asc(Prefix) >= 48) And (Asc(Prefix) <= 57)) Then
 
IsNumerique = 1
 
Else
 
IsNumerique = 0
End If
 
End Function

J'ai une erreur type mismatch lors de l'execution de la requete
si quelqu'un a une idée

[Arkham46]

slt,

la fonction standard IsNumeric ne convient pas??

si STREET_1 est un champ text il faut sans doute le convertir :

Code :

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

SET HOUSE_NO_1 = val(STREET_1)

[Didier77]

je ne connaisait pas le fonction standard IsNumeric
mais je vais essayé, je suis sous access 97

[Didier77]

EN fait, les deux champs sont de type text
et je veux que la mise a jour se fasse
lorsque le premier caractere de STREET_1
est un numérique
je ne comprend pas ou est mon erreur

[Didier77]

Je pense que c'est à cause du fait qu'il y est des
champs null dans STREET_1
est ce que quelq'un sait comment tester si un champ est null
j'avais pensé à

Code :

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

1
2
3
4
 
If Strna = "" Then
    Exit Function
  End If

mais ça ne marche pas..

[Arkham46]

slt,

peut-être simplement avec IsNumeric et Nz

Code :

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

1
2
3
UPDATE Data2 
SET HOUSE_NO_1 = STREET_1
WHERE IsNumeric(Nz(STREET_1));

[Didier77]

la il n'y a pas d'erreur mais le champ HOUSE_NO_1
ne bouge pas lol

exemple: Si STREET_1 = 16 avenue henri fabre

Alors HOUSE_NO_1 doit prendre cette valeur

[Arkham46]

ah ben alors pour tester le premier caractère :

Code :

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

1
2
3
UPDATE Data2 
SET HOUSE_NO_1 = STREET_1
WHERE IsNumeric(Left(Nz(STREET_1),1));

[=JBO=]

Bonjour,

Tu pourrais conserver ta fonction mais en tenant compte des valeurs Null.
Le paramètre Prefix est de type Variant, ce qui évite l'erreur "Type mismatch".

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Function IsNumerique(ByVal Prefix As Variant) As Integer
    If IsNull(Prefix) Then
        IsNumerique=0
    ElseIf ((Asc(Prefix) >= 48) And (Asc(Prefix) <= 57)) Then
        IsNumerique = 1
    Else
        IsNumerique = 0
    End If
End Function

[Didier77]

ok sa marche super
merci a tous
les deux dernieres réponses postés sont correctes


Did