j'aimerai aider un ami en l'aidant à sortir , d'après un numéro Insée , le
numéro du département concerné.
J'ai pas trop mal démarré en testant cette procédure :
Private Sub Insee_Exit(Cancel As Integer)
Dim Insee As String
Dim Departement As String
Dim Resultat
Insee = "125848951479"
Departement = Mid(Insee, 6, 2)
MsgBox (Departement)
End Sub
Mon souci, maintenant, est que je voudrais enlever la MsgBox qui me servait
juste pour le test et lui créer un champs qui se remplirait automatiquement
avec le numéro du département en fonction du numéro Insée tapé dans le
champs ; je crois qu'on doit pouvoir le faire avec un DLookUp mais je n'en
suis pas sûr et je ne sais pas trop comment m'y prendre.
Merci d'avance à vous pour un petit coup de main
Cordialement
--
@+
Ayrton
http://cerbermail.com/?NiMhJk1y8Y
Date : Le 10/07/2005
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
Bonjour Dans un module nommé BasInsee ou ModInsee, rajoute cette fonction :
Function fDept(strInsee as Variant) as string If isnull(strInsee) or len(strInsee) <>12 then fDept = "" Else fDept = Mid(strInsee, 6, 2) End if End function
De cette manière, depuis une requête, tu peux rajouter un champ Expr1:fDept([Insee]) Depuis un formulaire, un controle qui contiendra fDept([Me].[Insee])
| Bonsoir à tous, | | j'aimerai aider un ami en l'aidant à sortir , d'après un numéro Insée , le | numéro du département concerné. | J'ai pas trop mal démarré en testant cette procédure : | | Private Sub Insee_Exit(Cancel As Integer) | Dim Insee As String | Dim Departement As String | Dim Resultat | Insee = "125848951479" | Departement = Mid(Insee, 6, 2) | MsgBox (Departement) | End Sub | | Mon souci, maintenant, est que je voudrais enlever la MsgBox qui me servait | juste pour le test et lui créer un champs qui se remplirait automatiquement | avec le numéro du département en fonction du numéro Insée tapé dans le | champs ; je crois qu'on doit pouvoir le faire avec un DLookUp mais je n'en | suis pas sûr et je ne sais pas trop comment m'y prendre. | | Merci d'avance à vous pour un petit coup de main | | Cordialement | | -- | @+ | Ayrton | http://cerbermail.com/?NiMhJk1y8Y | Date : Le 10/07/2005 | |
Bonjour
Dans un module nommé BasInsee ou ModInsee, rajoute cette fonction :
Function fDept(strInsee as Variant) as string
If isnull(strInsee) or len(strInsee) <>12 then
fDept = ""
Else
fDept = Mid(strInsee, 6, 2)
End if
End function
De cette manière, depuis une requête, tu peux rajouter un champ Expr1:fDept([Insee])
Depuis un formulaire, un controle qui contiendra fDept([Me].[Insee])
"Ayrton [ASC]" <becoAS@plusdespam.fr> a écrit dans le message de news:
eT0PspXhFHA.1244@TK2MSFTNGP14.phx.gbl...
| Bonsoir à tous,
|
| j'aimerai aider un ami en l'aidant à sortir , d'après un numéro Insée , le
| numéro du département concerné.
| J'ai pas trop mal démarré en testant cette procédure :
|
| Private Sub Insee_Exit(Cancel As Integer)
| Dim Insee As String
| Dim Departement As String
| Dim Resultat
| Insee = "125848951479"
| Departement = Mid(Insee, 6, 2)
| MsgBox (Departement)
| End Sub
|
| Mon souci, maintenant, est que je voudrais enlever la MsgBox qui me servait
| juste pour le test et lui créer un champs qui se remplirait automatiquement
| avec le numéro du département en fonction du numéro Insée tapé dans le
| champs ; je crois qu'on doit pouvoir le faire avec un DLookUp mais je n'en
| suis pas sûr et je ne sais pas trop comment m'y prendre.
|
| Merci d'avance à vous pour un petit coup de main
|
| Cordialement
|
| --
| @+
| Ayrton
| http://cerbermail.com/?NiMhJk1y8Y
| Date : Le 10/07/2005
|
|
Bonjour Dans un module nommé BasInsee ou ModInsee, rajoute cette fonction :
Function fDept(strInsee as Variant) as string If isnull(strInsee) or len(strInsee) <>12 then fDept = "" Else fDept = Mid(strInsee, 6, 2) End if End function
De cette manière, depuis une requête, tu peux rajouter un champ Expr1:fDept([Insee]) Depuis un formulaire, un controle qui contiendra fDept([Me].[Insee])
| Bonsoir à tous, | | j'aimerai aider un ami en l'aidant à sortir , d'après un numéro Insée , le | numéro du département concerné. | J'ai pas trop mal démarré en testant cette procédure : | | Private Sub Insee_Exit(Cancel As Integer) | Dim Insee As String | Dim Departement As String | Dim Resultat | Insee = "125848951479" | Departement = Mid(Insee, 6, 2) | MsgBox (Departement) | End Sub | | Mon souci, maintenant, est que je voudrais enlever la MsgBox qui me servait | juste pour le test et lui créer un champs qui se remplirait automatiquement | avec le numéro du département en fonction du numéro Insée tapé dans le | champs ; je crois qu'on doit pouvoir le faire avec un DLookUp mais je n'en | suis pas sûr et je ne sais pas trop comment m'y prendre. | | Merci d'avance à vous pour un petit coup de main | | Cordialement | | -- | @+ | Ayrton | http://cerbermail.com/?NiMhJk1y8Y | Date : Le 10/07/2005 | |
Ayrton [ASC]
Bonjour *Anor* Dans ton message de news:, Tu as pensé très fort :-(*)
Bonjour Dans un module nommé BasInsee ou ModInsee, rajoute cette fonction :
Function fDept(strInsee as Variant) as string If isnull(strInsee) or len(strInsee) <>12 then fDept = "" Else fDept = Mid(strInsee, 6, 2) End if End function
De cette manière, depuis une requête, tu peux rajouter un champ Expr1:fDept([Insee]) Depuis un formulaire, un controle qui contiendra fDept([Me].[Insee])
Merci beaucoup Anor ; je viens de tester et ça fonctionne pil poil ;-)
-- @+ Ayrton http://cerbermail.com/?NiMhJk1y8Y Date : Le 10/07/2005
Bonjour *Anor*
Dans ton message de news:uf0OqjYhFHA.3164@TK2MSFTNGP15.phx.gbl,
Tu as pensé très fort :-(*)
Bonjour
Dans un module nommé BasInsee ou ModInsee, rajoute cette fonction :
Function fDept(strInsee as Variant) as string
If isnull(strInsee) or len(strInsee) <>12 then
fDept = ""
Else
fDept = Mid(strInsee, 6, 2)
End if
End function
De cette manière, depuis une requête, tu peux rajouter un champ
Expr1:fDept([Insee]) Depuis un formulaire, un controle qui contiendra
fDept([Me].[Insee])
Merci beaucoup Anor ; je viens de tester et ça fonctionne pil poil ;-)
--
@+
Ayrton
http://cerbermail.com/?NiMhJk1y8Y
Date : Le 10/07/2005
Bonjour *Anor* Dans ton message de news:, Tu as pensé très fort :-(*)
Bonjour Dans un module nommé BasInsee ou ModInsee, rajoute cette fonction :
Function fDept(strInsee as Variant) as string If isnull(strInsee) or len(strInsee) <>12 then fDept = "" Else fDept = Mid(strInsee, 6, 2) End if End function
De cette manière, depuis une requête, tu peux rajouter un champ Expr1:fDept([Insee]) Depuis un formulaire, un controle qui contiendra fDept([Me].[Insee])
Merci beaucoup Anor ; je viens de tester et ça fonctionne pil poil ;-)
-- @+ Ayrton http://cerbermail.com/?NiMhJk1y8Y Date : Le 10/07/2005
