Numérisation personnalisée Structure CASE/IF

Question

Bonjour à tous,
Je voudrais créer un n° de parcelle en concaténant mes champs (PAinsee, PAsection, Panum, PAdivision) sous un formulaire dans Access 2003.
Je souhaite que PAnum contienne 4 chiffres. J'ai donc crée uu programme avec la structure if permettant de rajouter un "0" lorsque le PAnum<10, "00" quand <100... Cette methode me rajoutait à chaque fois "000". Alors j'ai essayé avec la structure case mais pas de meilleurs résultats.
Je débute en VBA, donc il s'agit certainement d'une erreur toute con!
Voici mon programme:

Private Sub BOUTON_ENR_ID_PARCELLE_Click()
'La numérotation de la facture est construite en 4 parties:
'1) le numéro INSEE de la commune où est situé la parcelle,
'2) la section
'3) n° de parcelle
'4) division de la parcelle si c'est le cas (a ou b)

Dim PAinsee As Integer, PAsection As String, PAnum As Integer, PAdivision As String
Dim NumeroParcelle As String

'Ajouter un "0" au n° parcelle si la section ne comporte qu'une lettre.
If Len(Me.PAsection) < 2 Then
NumeroParcelle = Me.PAinsee.Value & "0" & Me.PAsection.Value
Else
NumeroParcelle = Me.PAinsee.Value & Me.PAsection.Value
End If

'Ajouter des "0" devant les n° parcelle pour constituer un numéro à 4 chiffres.
Select Case PAnum
Case 1 To 9
NumeroParcelle = NumeroParcelle & "000" & Me.PAnum.Value & Me.PAdivision.Value
Case 10 To 99
NumeroParcelle = NumeroParcelle & "00" & Me.PAnum.Value & Me.PAdivision.Value
Case 100 To 999
NumeroParcelle = NumeroParcelle & "0" & Me.PAnum.Value & Me.PAdivision.Value
Case Else
NumeroParcelle = NumeroParcelle & Me.PAnum.Value & Me.PAdivision.Value

End Select
PAid = NumeroParcelle
End Sub

Merci d'avance

jmfmarques · Answer

Bonjour,

c'est à celà que sert Format ...

MsgBox Format(2, "0000")
MsgBox Format(23, "0000")

jmfmarques · Answer

et pour tes lettres avec 1 zéro devant si une seule lettre :

toto = "A"
MsgBox String(2 - Len(toto), "0") & toto

toto = "AB"
MsgBox String(2 - Len(toto), "0") & toto

pile_poil · Answer

bonjour 
ton gros probleme c'est que dans ton évenement click tu déclare les
variables  pour faire ton numéro donc les integer ont la valeur 0 et
les string la valeur "" 

tu dois donc les déclarer bien avant en public au niveau de la form ou se trouve le bouton ainsi que, je suppose, les textbox qui te permettent de saisir les valeurs

ensuite tu pourra remplacer ton usine à gaz par cette simple ligne
NumeroParcelle = PAinsee.Value &
format(PAsection.Value,00) & 
format(PAnum.Value,0000) & PAdivision.Value

[reglement.aspx ]si c'est la solution, penser : REPONSE ACCEPTEE

pile_poil · Answer

oups jfmarques a raison 
c'est format (toto,"0000") et non pas format (toto, 0000) comme je l'ai écrit 

[reglement.aspx ]si c'est la solution, penser : REPONSE ACCEPTEE

cs_Nana35 · Answer

Merci, ça fonctionne.
Mais je crois que j'ai encore des choses à apprendre dans la création des procédures.
Ciao!

Redman31100 · Answer

si c'est la solution,
 penser : REPONSE ACCEPTEE dans la signature de pile_poil, c'est pas pour faire joli tu sais ^^








Redman

Numérisation personnalisée Structure CASE/IF

6 réponses

Votre réponse

Discussions similaires