docmd.gotorecord avec une variable comme critère

Bonjour à tous,

J'ai un form frmstint avec une ref [stnN] depuis lequel je veux ouvrir un autre form frmsetup dans lequel j'ai un lien avec la table de stint [stnsetup]

Donc à l'ouverture du form je veux qu'il vérifie s'il existe deja un enregistrement dans la table setup avec la ref du stint.

Si ca existe alors il ouvre le form setup sur cet enregistrement, si ca n'existe pas il me crée un nouvel enregistrement dans la table setup avec [sntsetup]=[stnN]

Grace à l'aide déja recue ici je suis pas mal avancé mais bien sur je bloque sur la fin :)

Voila ce que j'ai

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Dim db As dao.Database: Set db = CurrentDb Dim rst As dao.Recordset: Set rst = db.OpenRecordset("tsetup", dbOpenDynaset) Dim rqstnsetup As Long On Error Resume Next Call rst.FindFirst("[stnsetup] = " & Forms("frmstint").Controls("StnN°")) If rst.NoMatch Then Debug.Print "pas de setup" 'Pas trouvé, ajoute l'enregistrement rst.AddNew rst![StnSetup] = Forms("frmstint").Controls("stnN°") rst.Update Debug.Print "setup crée" End If Debug.Print "setup existant" rqstnsetup = DLookup("stnsetup", "rqsetupstint") DoCmd.OpenForm "frmsetup" DoCmd.GoToRecord , , [StnSetup] = rqstnsetup End Sub

---

Je vois que la détection d'enregistrement existant fonctionne parce que j'ai le setup existant dans le debug print, mais il ouvre le form à la première page de setup et pas à celle issue de la requete que je stocke dans la variable rqstnsetup.

Par contre si je pars sur un nouveau stint il me met bien dans le debug print setup crée, mais il n'y a rien de neuf dans le form setup (toujours au début et pas de nouveau setup crée) ALORS QUE L'ENREGISTREMENT EST DANS LA TABLE SETUP....

Je ne comprends pas ou je me trompe....(à part sur le docmd.gotorecord bien sur)

Merci de votre aide

Salut
En L16

Code:

---

DoCmd.OpenForm "frmsetup", , ,[StnSetup] = rqstnsetup

---

Ca fait pareil, ca ouvre bien le form de setup mais au premier enregistrement et pas a celui de rqstnsetup

Je ne comprends toujours pas ou est l'erreur....

Merci de l'aide

Bonjour,

Normalement la syntaxe c'est ça.

Code:

---

DoCmd.OpenForm "frmsetup", , ,"[StnSetup] =" & rqstnsetup

---

Cordialement,

Toujours pas....ca ouvre le form en mode filtré (je le vois en bas dans le selecteur d'enregistrements) mais ca m'affiche le premier enregistrement....

Bizarre ca, je regarde si je n'ai pas une autre procédure qui coince quelque part.

Merci de votre aide

Bonjour,

1- la ligne 15 du code pour moi ne veut rien dire, on recherche quelle valeur ?

Code:

---

rqstnsetup = DLookup("stnsetup", "rqsetupstint")

---

2- Le code pour ouvrir le formulaire proposé par loufab filtre effectivement le formulaire.

Code:

---

DoCmd.OpenForm "frmsetup", , ,"[StnSetup] =" & rqstnsetup

---

Si j'ai bien compris le besoin :
1- On a une valeur dans Forms("frmstint").Controls("StnN°").
2- On ouvre le formulaire frmsetup en allant vers l'enregistrement correspondant à StnN° (sans filtrer frmsetup).
2a- Si StnSetup équivalent à StnN° n'existe pas, on l'intègre dans la table tsetup.

proposition :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Dim db As dao.Database: Set db = CurrentDb Dim rst As dao.Recordset: Set rst = db.OpenRecordset("tsetup", dbOpenDynaset) Dim rqstnsetup As Long On Error Resume Next rqstnsetup = Forms("frmstint").Controls("StnN°") rst.FindFirst ("[stnsetup] = " & rqstnsetup) If rst.NoMatch Then Debug.Print "pas de setup" 'Pas trouvé, ajoute l'enregistrement rst.AddNew rst![StnSetup] = rqstnsetup rst.Update Debug.Print "setup crée" End If Debug.Print "setup existant" 'rqstnsetup = DLookup("stnsetup", "rqsetupstint") DoCmd.OpenForm "frmsetup" With Forms!frmsetup.RecordsetClone .FindFirst "[stnsetup]=" & rqstnsetup If Not .NoMatch Then Forms!frmsetup.Recordset.Bookmark = .Bookmark End If End With

---

Cordialement.