Increment de la valeur par default

**Yves2507** · 01/03/2006, 18h22

Bonjour .

Dans un form j'ai champs qui stock une valeur numérique je voudrai que l'orsque je passe sur un nouveau enregistrement La valeur par défault soit la valeur du dernier enregistrement + 1.

Est-ce Possible.

Merci

**Arkham46** · 01/03/2006, 18h25

slt,

http://www.developpez.net/forums/vie...soluteposition

y a juste à mettre un +1 en plus

**Yves2507** · 01/03/2006, 19h01

J'ai essayé de mettrea application mais cela ne fonctionne pas.

Code :

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

1
2
3
4
Private Sub Form_BeforeInsert(Cancel As Integer)
Me.RecordsetClone.AbsolutePosition = Me.CurrentRecord - 1
Me!Num_Prog = Me.RecordsetClone!Num_Prog + 1
End Sub

Vois tu une erreur ?

**Arkham46** · 01/03/2006, 19h24

A priori je ne vois pas d'erreur

S'il ne se passe rien, peut-être faut-il définir l'événement dans les propriétés du formulaire pour que le code s'exécute (parfois en copiant-collant le code, l'événement n'est pas activé, c-à-d [procédure évenementielle] dans l'évenement "Avant Insertion" du formulaire.)

**Yves2507** · 01/03/2006, 19h52

J'ai essayé mais cela ne fonctionne pas.

Par contre si je modifie un autre champs j'ai une erreur 3265

**Yves2507** · 01/03/2006, 20h00

j'ai essayé de taper le code a la main

Je Tape me.
l'assistant ce déclenche et dans la liste je trouve RecordsetClone et ensuite . et la l'assitant ne ce déclenche pas pour AbsolutePosition.

Est ce normal

**Arkham46** · 01/03/2006, 20h10

Envoyé par Yves2507

j'ai essayé de taper le code a la main

Je Tape me.
l'assistant ce déclenche et dans la liste je trouve RecordsetClone et ensuite . et la l'assitant ne ce déclenche pas pour AbsolutePosition.

Est ce normal

ça c'est pas grâve, ça me le fait aussi

num_prog c'est bien le nom d'un champ, ou alors un contrôle?

**Yves2507** · 01/03/2006, 20h25

c'est le nom du champs

**Arkham46** · 01/03/2006, 21h31

la mise à jour du champ ne se fait que lorsque qu'on commence à modifier l'enregistrement, et si tu est en modification dans le champ num_prog en premier ça doit bloquer la mise à jour du champ par le code

tu peux essayer dans l'événement "sur activation", en testant que tu es sur un nouvel enregistrement :

Code :

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

1
2
3
4
5
6
Private Sub Form_Current()
If Me.NewRecord Then
  Me.RecordsetClone.AbsolutePosition = Me.CurrentRecord - 1
  Me!Num_Prog.defaultvalue = Me.RecordsetClone!Num_Prog+ 1
End If
End Sub

En modifiant la propriété DefaultValue au lieu de modifier la valeur directement, ça évite que l'enregistrement passe en modification lorsqu'on le sélectionne

**Yves2507** · 02/03/2006, 14h38

J'ai essayé et cela ne fonctionne toujours pas.

Cela me renvoie l'erreur:

Élément introuvable dans cette collection. (Erreur 3265)
Une tentative pour faire référence à un nom dans une collection a échoué.

Causes possibles :

L'objet n'existe pas dans cette collection. Assurez-vous que l'objet est ajouté à une collection avant d'y faire référence.
Il existe plusieurs objets possédant ce nom dans la collection et l'utilisation de ce nom est une référence ambiguë. Faites référence à l'objet par sa position ordinale dans la collection (par exemple, Recordsets(3)).

J'ai essyé de changer le nom de mon champs mais toujours pareil !!!!!

**Arkham46** · 02/03/2006, 14h49

c'est étrange ça fonctionne bien moi (access 2000)

essaye de placer un msgbox au début de l'événement :

Code :

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

MsgBox Me!Num_Prog

ou

Code :

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

MsgBox Me.Num_Prog

ou

Code :

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

MsgBox Me.fields("Num_Prog").value

enfin si si ton champ est bien num_prog c'est peut-être une histoire de syntaxe toute bête, je me souviens avoir des soucis un jour avec le me sous access 97 que j'utilisais mal

**Yves2507** · 02/03/2006, 17h51

Cela ne fonctionne pas.

J'ai essayé un truc plus simple:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_BeforeInsert(Cancel As Integer)
 
If Me.NewRecord Then
  Me.NumProg = Me.CurrentRecord
  Me.NumProg = Me.NumProg + 1
  End If
MsgBox Me.NumProg
End Sub

Cela fonctionne et me donne la valeur de mon champs ID (clef) + 1
Mais ce n'est pas ce que je veux.
Moi je voudrai la valeur du dernier enregistrement du champs numprog + 1.

J'ai l'impression que access ne comprend pas :

Code :

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

Me.RecordsetClone.AbsolutePosition

Moi non plus d'ailleur

**Yves2507** · 02/03/2006, 18h02

J'arrive au résultat avec une requete

Code :

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

1
2
3
SELECT ([num prog]+1) AS progdef
FROM TBL_Programmes_pièce
GROUP BY ([num prog]+1);

N'est il pas possible de mettre du SQL en valeur par Défault

[Modération, cafeine : Pensez à utiliser la balise [CODE] qui améliore la lisibilité, merci]

**Arkham46** · 03/03/2006, 00h41

N'est il pas possible de mettre du SQL en valeur par Défault

non pas directement (et ta requête est bizarre ceci dit)
et si tu veux récupérer la valeur précédente je ne vois pas comment faire, sauf si c'est incrémenté et que tu peux prendre la valeur max

mais le code que je t'ai donné marche bien sur access 2000, t'as quelle version toi?