Discussion :

[ronin.01]

Bonjour,

J'ai besoin de votre aide :

Je voudrais afficher le numéro d'enregistrement dans un formulaire. J'ai insérer une zone de texte et mis dans la source :=[CurrentRecord]

Seulement il m'affiche le même numéro pour tous les enregistrements....

Comment doit on procéder.

Merci pour votre aide

Cordialement
Ronin.01

[marsouin_89]

Bonsoir Ronin,

Si je ne me trompe, tu verras le n° d'enregistrement correct uniquement lorsque tu auras ton curseur sur l'enregistrement qui t'interresse.
Tu as la solution de la clé primaire en n° automatique mais ces valeurs ne seront pas actualisées lorsque tu supprimeras un enregistrement.
Je me suis déjà penché là dessus et un conseil oublie cette idée. En creusant un peu, tu t'apercevras que cela ne sert à rien. Au pire, fais un champ calculé pour avoir le total de tes enregistrements.

Cordialement

Christophe

[ronin.01]

bonjour,

Merci pour votre réponse j'ai suivi votre conseil et j'ai contourné le problème avec une boite de dialogue, dont j'ai trouvé le code dans le forum, à partir de ma clé primaire qui est [n°] :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub MonBouton_Click()
Dim ctl As Control, str As String
 
str = InputBox("N° LIGNE")
If Nz(str, "") = "" Then Exit Sub
 
Set ctl = Me.ActiveControl
Me.n°.SetFocus
DoCmd.FindRecord str, acEntire, , acSearchAll, , acCurrent
ctl.SetFocus
 
End Sub

Par contre je voudrais rajouter une expression et j'aurai besoin d'aide :

S'il ne trouve pas le numéro d'enregistrement alors une boite de dialogue s'affiche avec le message suivant : "Ce numéro n'existe pas ou a été supprimé".

Je n'arrive pas a assembler les arguments avec les "if,else,then".

[marsouin_89]

Bonsoir,

Code :

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

1
2
3
4
If Dcount("*","NomDeMaTable","Id=" & str)=0 Then
MsgBox "Ce numéro n'existe pas.")
Exit Sub
End If

Attention, ce code considère que la valeur saisie est numérique, sinon :

Code :

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

Dcount("*","NomDeMaTable","Id=""" & str & """")

La double quote a pour but de prendre en compte les textes qui contiendraient un simble quote.

Cordialement

Christophe

[User]

Bonjour,

Sinon dans les contributions il y a ce code:
numeroter-enregistrements-formulaire/#post5874275

A+

[ronin.01]

Bonjour,

Merci pour vos réponses, je me mets au travail.
Bonne journée

Cordialement
Ronin.01