bonjour
j'ai un champ numero de fax qui m'arrive d'excel sous n'importe quelle forme
je désire supprimer les espaces, ne garder que les 10 derniers chiffres et
rajouter une zéro devant pour ceux qui n'en ont que 9
j'ai écrit :
Private Sub Commande10_Click()
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number =
Replace([Fax Number]," ","")"
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number
=right([Fax Number], 10)"
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number
=format([Fax Number], '0000000000')"
End Sub
Private Sub Commande10_Click()
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number =
Replace([Fax Number]," ","")"
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number
=right([Fax Number], 10)"
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number
=format([Fax Number], '0000000000')"
End Sub
elle me répond une erreur de compilation pour la premiere et une erreur 3144
pour les deux dernière commandes
votre aide sera la bienvenue
bon appétit et merci
marie
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Fabien
marie a écrit :
bonjour j'ai un champ numero de fax qui m'arrive d'excel sous n'importe quelle forme je désire supprimer les espaces, ne garder que les 10 derniers chiffres et rajouter une zéro devant pour ceux qui n'en ont que 9 j'ai écrit : Private Sub Commande10_Click() DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number = Replace([Fax Number]," ","")"
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number =right([Fax Number], 10)"
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number =format([Fax Number], '0000000000')"
End Sub Private Sub Commande10_Click() DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number = Replace([Fax Number]," ","")"
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number =right([Fax Number], 10)"
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number =format([Fax Number], '0000000000')"
End Sub elle me répond une erreur de compilation pour la premiere et une erreur 3144 pour les deux dernière commandes
votre aide sera la bienvenue bon appétit et merci marie
Salut, essai avec T_balance_cc_jour.[Fax Number] Les nom de champ avec des blanc doivent être encadrés avec[]. @+
marie a écrit :
bonjour
j'ai un champ numero de fax qui m'arrive d'excel sous n'importe quelle forme
je désire supprimer les espaces, ne garder que les 10 derniers chiffres et
rajouter une zéro devant pour ceux qui n'en ont que 9
j'ai écrit :
Private Sub Commande10_Click()
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number =
Replace([Fax Number]," ","")"
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number
=right([Fax Number], 10)"
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number
=format([Fax Number], '0000000000')"
End Sub
Private Sub Commande10_Click()
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number =
Replace([Fax Number]," ","")"
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number
=right([Fax Number], 10)"
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number
=format([Fax Number], '0000000000')"
End Sub
elle me répond une erreur de compilation pour la premiere et une erreur 3144
pour les deux dernière commandes
votre aide sera la bienvenue
bon appétit et merci
marie
Salut,
essai avec T_balance_cc_jour.[Fax Number] Les nom de champ avec des blanc doivent être encadrés avec[].
@+
bonjour j'ai un champ numero de fax qui m'arrive d'excel sous n'importe quelle forme je désire supprimer les espaces, ne garder que les 10 derniers chiffres et rajouter une zéro devant pour ceux qui n'en ont que 9 j'ai écrit : Private Sub Commande10_Click() DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number = Replace([Fax Number]," ","")"
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number =right([Fax Number], 10)"
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number =format([Fax Number], '0000000000')"
End Sub Private Sub Commande10_Click() DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number = Replace([Fax Number]," ","")"
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number =right([Fax Number], 10)"
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number =format([Fax Number], '0000000000')"
End Sub elle me répond une erreur de compilation pour la premiere et une erreur 3144 pour les deux dernière commandes
votre aide sera la bienvenue bon appétit et merci marie
Salut, essai avec T_balance_cc_jour.[Fax Number] Les nom de champ avec des blanc doivent être encadrés avec[]. @+
marie
"Fabien" a écrit :
marie a écrit : > bonjour > j'ai un champ numero de fax qui m'arrive d'excel sous n'importe quelle forme > je désire supprimer les espaces, ne garder que les 10 derniers chiffres et > rajouter une zéro devant pour ceux qui n'en ont que 9 > j'ai écrit : > Private Sub Commande10_Click() > DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number = > Replace([Fax Number]," ","")" > > DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number > =right([Fax Number], 10)" > > DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number > =format([Fax Number], '0000000000')" > > > > End Sub > Private Sub Commande10_Click() > DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number = > Replace([Fax Number]," ","")" > > DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number > =right([Fax Number], 10)" > > DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number > =format([Fax Number], '0000000000')" > > > > End Sub > elle me répond une erreur de compilation pour la premiere et une erreur 3144 > pour les deux dernière commandes > > votre aide sera la bienvenue > bon appétit et merci > marie Salut, essai avec T_balance_cc_jour.[Fax Number] > Les nom de champ avec des blanc doivent être encadrés avec[]. @+
j'ai fait ce que tu m'as dit
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.[Fax Number] = Replace([Fax Number]," ","")"
elle me retourne erreur de compilation attendu fin instruction en me zonant en bleu " ","")" elle n'aime pas les " ? merci
"Fabien" a écrit :
marie a écrit :
> bonjour
> j'ai un champ numero de fax qui m'arrive d'excel sous n'importe quelle forme
> je désire supprimer les espaces, ne garder que les 10 derniers chiffres et
> rajouter une zéro devant pour ceux qui n'en ont que 9
> j'ai écrit :
> Private Sub Commande10_Click()
> DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number =
> Replace([Fax Number]," ","")"
>
> DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number
> =right([Fax Number], 10)"
>
> DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number
> =format([Fax Number], '0000000000')"
>
>
>
> End Sub
> Private Sub Commande10_Click()
> DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number =
> Replace([Fax Number]," ","")"
>
> DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number
> =right([Fax Number], 10)"
>
> DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number
> =format([Fax Number], '0000000000')"
>
>
>
> End Sub
> elle me répond une erreur de compilation pour la premiere et une erreur 3144
> pour les deux dernière commandes
>
> votre aide sera la bienvenue
> bon appétit et merci
> marie
Salut,
essai avec T_balance_cc_jour.[Fax Number] > Les nom de champ avec des blanc doivent être encadrés avec[].
@+
j'ai fait ce que tu m'as dit
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.[Fax Number] = Replace([Fax Number]," ","")"
elle me retourne erreur de compilation attendu fin instruction en me zonant
en bleu " ","")"
elle n'aime pas les " ?
merci
marie a écrit : > bonjour > j'ai un champ numero de fax qui m'arrive d'excel sous n'importe quelle forme > je désire supprimer les espaces, ne garder que les 10 derniers chiffres et > rajouter une zéro devant pour ceux qui n'en ont que 9 > j'ai écrit : > Private Sub Commande10_Click() > DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number = > Replace([Fax Number]," ","")" > > DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number > =right([Fax Number], 10)" > > DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number > =format([Fax Number], '0000000000')" > > > > End Sub > Private Sub Commande10_Click() > DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number = > Replace([Fax Number]," ","")" > > DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number > =right([Fax Number], 10)" > > DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number > =format([Fax Number], '0000000000')" > > > > End Sub > elle me répond une erreur de compilation pour la premiere et une erreur 3144 > pour les deux dernière commandes > > votre aide sera la bienvenue > bon appétit et merci > marie Salut, essai avec T_balance_cc_jour.[Fax Number] > Les nom de champ avec des blanc doivent être encadrés avec[]. @+
j'ai fait ce que tu m'as dit
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.[Fax Number] = Replace([Fax Number]," ","")"
elle me retourne erreur de compilation attendu fin instruction en me zonant en bleu " ","")" elle n'aime pas les " ? merci
Fabien
marie a écrit :
"Fabien" a écrit :
marie a écrit :
bonjour j'ai un champ numero de fax qui m'arrive d'excel sous n'importe quelle forme je désire supprimer les espaces, ne garder que les 10 derniers chiffres et rajouter une zéro devant pour ceux qui n'en ont que 9 j'ai écrit : Private Sub Commande10_Click() DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number = Replace([Fax Number]," ","")"
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number =right([Fax Number], 10)"
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number =format([Fax Number], '0000000000')"
End Sub Private Sub Commande10_Click() DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number = Replace([Fax Number]," ","")"
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number =right([Fax Number], 10)"
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number =format([Fax Number], '0000000000')"
End Sub elle me répond une erreur de compilation pour la premiere et une erreur 3144 pour les deux dernière commandes
votre aide sera la bienvenue bon appétit et merci marie
Salut, essai avec T_balance_cc_jour.[Fax Number] >> Les nom de champ avec des blanc doivent être encadrés avec[]. @+
j'ai fait ce que tu m'as dit
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.[Fax Number] = Replace([Fax Number]," ","")"
elle me retourne erreur de compilation attendu fin instruction en me zonant en bleu " ","")" elle n'aime pas les " ? merci
Si la chaine commence par " elle se termine par un ". Dans ton cas utilise la syntaxe suivante
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number = Replace([Fax Number],' ','')" ou DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number = trim([Fax Number])" @+
marie a écrit :
"Fabien" a écrit :
marie a écrit :
bonjour
j'ai un champ numero de fax qui m'arrive d'excel sous n'importe quelle forme
je désire supprimer les espaces, ne garder que les 10 derniers chiffres et
rajouter une zéro devant pour ceux qui n'en ont que 9
j'ai écrit :
Private Sub Commande10_Click()
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number =
Replace([Fax Number]," ","")"
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number
=right([Fax Number], 10)"
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number
=format([Fax Number], '0000000000')"
End Sub
Private Sub Commande10_Click()
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number =
Replace([Fax Number]," ","")"
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number
=right([Fax Number], 10)"
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number
=format([Fax Number], '0000000000')"
End Sub
elle me répond une erreur de compilation pour la premiere et une erreur 3144
pour les deux dernière commandes
votre aide sera la bienvenue
bon appétit et merci
marie
Salut,
essai avec T_balance_cc_jour.[Fax Number] >> Les nom de champ avec des blanc doivent être encadrés avec[].
@+
j'ai fait ce que tu m'as dit
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.[Fax Number] = Replace([Fax Number]," ","")"
elle me retourne erreur de compilation attendu fin instruction en me zonant
en bleu " ","")"
elle n'aime pas les " ?
merci
Si la chaine commence par " elle se termine par un ".
Dans ton cas utilise la syntaxe suivante
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number
= Replace([Fax Number],' ','')"
ou
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number
= trim([Fax Number])"
@+
bonjour j'ai un champ numero de fax qui m'arrive d'excel sous n'importe quelle forme je désire supprimer les espaces, ne garder que les 10 derniers chiffres et rajouter une zéro devant pour ceux qui n'en ont que 9 j'ai écrit : Private Sub Commande10_Click() DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number = Replace([Fax Number]," ","")"
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number =right([Fax Number], 10)"
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number =format([Fax Number], '0000000000')"
End Sub Private Sub Commande10_Click() DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number = Replace([Fax Number]," ","")"
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number =right([Fax Number], 10)"
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number =format([Fax Number], '0000000000')"
End Sub elle me répond une erreur de compilation pour la premiere et une erreur 3144 pour les deux dernière commandes
votre aide sera la bienvenue bon appétit et merci marie
Salut, essai avec T_balance_cc_jour.[Fax Number] >> Les nom de champ avec des blanc doivent être encadrés avec[]. @+
j'ai fait ce que tu m'as dit
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.[Fax Number] = Replace([Fax Number]," ","")"
elle me retourne erreur de compilation attendu fin instruction en me zonant en bleu " ","")" elle n'aime pas les " ? merci
Si la chaine commence par " elle se termine par un ". Dans ton cas utilise la syntaxe suivante
DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number = Replace([Fax Number],' ','')" ou DoCmd.RunSQL "Update T_balance_cc_jour Set T_balance_cc_jour.Fax Number = trim([Fax Number])" @+