Discussion :

[captainmakeu]

Salut à tous!

Débutant sur Access, je viens vous demander conseil pour résoudre un problème qui me... fascine ^^

A l'issue de cette procédure qui doit me servir à afficher dans un de mes controles le dernier enregistrement d'un recorset, Access me dit gentillement :
"Microsoft Access ne trouve pas le formulaire "F_Produit" auquel il fait référence"

Voilà le code en question :

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
24
25
26
27
28
29
Private Sub Save_Click()
Dim numAnn As Integer
Dim numProd As Integer
Dim Message As String
Dim rsRepr As DAO.Recordset
 
DoCmd.RunCommand acCmdSaveRecord
 
numAnn = Me!ldannonceur
numProd = Me!LdProd
 
LeSql = "select * from T_Representant"
 
Set rsRepr = CurrentDb.OpenRecordset(LeSql, dbOpenSnapshot)
rsRepr.MoveLast
 
If Not IsNumeric(numAnn) Then Exit Sub
 
Message = MsgBox("Voulez-vous l'assigner à un produit?", vbYesNo, "Assigner à un produit")
 
If Message = vbYes Then
DoCmd.OpenForm "F_Produit", , , "Annonceur=" & numAnn & "and IDProduit=" & numProd, , acDialog
Forms!F_Produit!ldrepr = rsRepr!IDRepresentant
End If
 
rsRepr.Close
Set rsRepr = Nothing
 
End Sub

Je sens qu'il y a un (ou plusieurs) truc(s) que je ne fais pas bien... mais je ne vois pas où!

Merci d'avance pour vos retours!

Bonne soirée,

Mathieu

[Tofalu]

En ligne 22, le formulaire s'ouvre en mode acDialog, le code s'interrompt donc jusqu'à sa fermeture. Au passage à la ligne 23, il est donc fermé et donc introuvable.

[captainmakeu]

Ok merci Tofalu! En effet, Access retrouve le formulaire.

Par contre, rien ne s'affiche dans mon controle... Peut-être que je gère mal mon recordset...

Bon j'ouvre une nouvelle discussion à ce sujet!

Merci encore