Discussion :

[fabrice57100]

Bonjour,
un petit truc tout bête...
je voudrais atteindre un enregistrement (dans mon code le n°5) en cliquant sur un bouton dans un formulaire actif . Et j ai l' erreur ci dessus qui apparaît.
Voici le code:

Code :

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

DoCmd.GoToRecord acDataForm, "410TprodJournaliere", acGoTo, 5

Quand j' utilise acFirst ou AcLast cela fonctionne...
quelqu'un peut il m'aider svp.

[marot_r]

Étrange, si on se fie à l'aide ta commande est correcte.

Est-ce que tu as bien 5 enregistrements au moins ?

Si oui essaye avec

Code :

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

DoCmd.GoToRecord acDataForm, "410TprodJournaliere", acGoTo, 2

ou

Code :

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

DoCmd.GoToRecord acDataForm, "410TprodJournaliere", acGoTo, 1

pour voir si c'est bien le numéro qui compte, pas que ce serait un décalage par rapport à la position courante.
Et qu'en fait ce soit AcGoto +5.

A+

[fabrice57100]

Bonjour
Merci de ta réponse.
En fait dans mon code le N° est une variable ,mais j'avais déjà fait le test en la remplaçant par un n° d' enregistrement existant.
çà ne fonctionne pas non plus avec d' autres numéros d'enregistrements.
Je mets un peu plus de code peut être il y a un truc qui cloche plus haut...
"410TprodJournaliere est le formulaire basé directement sur la Table Tableprojournalière
Comme tu as vu j'ai contourné le problème mais la première idée me semble plus simple et j'aimerais la faire fonctionner.
Voila le code:

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
18
19
20
21
22
23
'J AI UNE VARIABLE vardate QUI ME RENVOIE LE CodeProdJourn Via DLookup
 varenreg = Nz(DLookup("[CodeProdJourn]", "TprodJournaliere", "[DateJour] = " & vardate & ""))
If Not IsNull(varenreg) Then

'CA FONCTIONNE LA PREUVE CI DESSOUS
'MsgBox DateJour
'MsgBox "a=" & DLookup("[CodeProdJourn]", "TprodJournaliere", "[DateJour] = " & vardate & "")

 'ICI LE CODE QUI NE FONCTIONNE PAS (varenreg de type integer):
410TprodJournaliere est le formulaire basé directement sur la Table TprodJournaliere
' DoCmd.GoToRecord acDataForm, "410TprodJournaliere", acGoTo, varenreg

 'AVEC UN NUM D ENREGISTREMENT EXISTANT PAREIL:
' DoCmd.GoToRecord acDataForm, "410TprodJournaliere", acGoTo, 16


 'ET ENFIN LA SOLUTION DE REMPLACEMENT QUI FONCTIONNE
Me.RecordSource = "SELECT TprodJournaliere.CodeProdJourn, TprodJournaliere.N°Machine, TprodJournaliere.DateJour, TprodJournaliere.TOPose1, TprodJournaliere.TOPose2, TprodJournaliere.TOPose3, TprodJournaliere.TOTotal" & _
" FROM TprodJournaliere" & _
" WHERE (((TprodJournaliere.CodeProdJourn)=" & varenreg & "));"

Else
DoCmd.GoToRecord acDataForm, "410TprodJournaliere", acNew

[marot_r]

Bonjour.

Si je te suis bien, tu veux sélectionner un enrgistrement selon sa date, la position n'a pas d'importance ?

Si oui je te suggère le code suivant :

Code :

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

1
2
3
4
5
dim f as form:set f=Forms("410TprodJournaliere")
if f.recordset.recordcount<>0 then
   call f.recordset.findfirst("[DateJour]=#" & format(varDate, "yyyy-\mm\-dd" & "#")
end if
set f=nothing

et si c'est 410TprodJournaliere qui fait la recherche sur lui-même :

Code :

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

1
2
3
if me.recordset.recordcount<>0 then
   call me.recordset.findfirst("[DateJour]=#" & format(varDate, "yyyy-\mm\-dd" & "#")
end if

A+

[fabrice57100]

OK merci pour ton tuyau
j' ai essayé ça marche
merci