Discussion :

[shwepsy]

Bonjour,

je dois créer une base Access afin de saisir et consulter des dossiers.
pour le moment tout est géré sur Excel avec un fichier par type de dossier.
je souhaite tout importer dans Access.

un premier travail a été d'uniformiser les fichiers. ils ont maintenant la même structure (même nombre de champs, même intitulé...).

cependant pour certains fichiers, il y a un numéro qui s'incrémente automatiquement. mais le numéro ne démarre pas par 1 et surtout ce n'est pas le même selon le type de dossier (pour un par exemple, il démarre à 275000, pour un autre à 710000).
à ce stade, je ne sais pas comment faire démarre un numéro automatique autre que par 1, ensuite comment gérer un numéro automatique par dossier ?

merci pour votre aide.
ah oui petite précision, je suis plutôt novice en Access

[LE VIEUX]

Bonsoir et bienvenu sur le forum,
Pour démarrer un numéro auto a un chiffre précis tu peux par exemple au moment de la création du champ mettre son format à "710"000.
Mais tu ne peux mettre qu’un seul champ numéro auto par table c’est donc faisable que si tu as une table par dossier.
Si tu as plusieurs dossiers sur la même table et que tu veux incrémenter un champ il faut le fabriquer par code exemple :
Sur l’évènement « réception focus » d’un champ « NumAuto » placé après la saisie du « dossier » pour une table appelée « incrément » tu peux essayer le code suivant :

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
Private Sub NumAuto_GotFocus()
 
dos = Me.dossier.Value
 
Select Case dos
    Case "aa"
    Me.NumAuto = Nz(DMax("NumAuto", "increment", "dossier = '" & Me.dossier & "'"), 710000) + 1
    Case "bb"
    Me.NumAuto = Nz(DMax("NumAuto", "increment", "dossier = '" & Me.dossier & "'"), 275000) + 1
    Case "cc"
     Me.NumAuto = Nz(DMax("NumAuto", "increment", "dossier = '" & Me.dossier & "'"), 100000) + 1
     Case Else
      Me.NumAuto = Nz(DMax("NumAuto", "increment", "dossier = '" & Me.dossier & "'"), 1) + 1
   End Select
 
 
End Sub

[shwepsy]

Bonjour,

tout d'abord merci pour votre réponse.
j'ai essayé le code mais ça bugge un peu ...

en premier lieu, j'ai décrit 3 tables :
la première concerne la table PRETS (T_PRETS) avec comme premiers champs (ID_PRETS, ID_CLIENTS, FICHIER, NUMPRET)
la deuxième concerne la table CLIENTS (T_CLIENTS) avec comme premiers champs (ID_CLIENTS, NOM, PRENOM)
la troisième concerne la table INCREMENT(T_INCREMENT) avec comme champs (FICHIER, NUMPRET,ID_PRETS, ID_CLIENTS)

je suppose qu'il s'agit de cette dernière dont vous me parliez.
le NUMPRET est définit comme NumeroAuto.
en créant le formulaire à partir de cette table, j'ai suivi vos instructions :

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
Private Sub NUMPRET_GotFocus()
FICHIER = Me.FICHIER.Value
 
Select Case FICHIER
Case "aa"
Me.NUMPRET = Nz(DMax("NUMPRET", "T_INCREMENT", "FICHIER = '" & Me.FICHIER & "'"), 710000) + 1
Case "bb"
Me.NUMPRET = Nz(DMax("NUMPRET", "T_INCREMENT", "FICHIER = '" & Me.FICHIER & "'"), 275000) + 1
Case "Tcc"
Me.NUMPRET = Nz(DMax("NUMPRET", "T_INCREMENT", "FICHIER = '" & Me.FICHIER & "'"), 100000) + 1
Case Else
Me.NUMPRET = Nz(DMax("NUMPRET", "T_INCREMENT", "FICHIER = '" & Me.FICHIER & "'"), 1) + 1
End Select
 
End Sub

ça ne fonctionne pas. est-ce la démarche des tables précédentes qui coincent ?
Merci pour votre retour,