Discussion :

[Axe_Débutant]

Bonjour à tous,

J'aimerais savoir s'il est normal qu'une fonction écrite dans le code associé à un formulaire et ayant été déplacée dans un module ne fonctionne plus ?

J'ai un message d'erreur 424 ( absence d'objet requis), et ligne Set oRst ci-dessous est entièrement surlignée en jaune.

Y a t-il quelque chose à changer dans les lignes suivantes ?

Code :

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

1
2
3
4
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
 
Set oDb = CurrentDb

et

Code :

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

Set oRst = oDb.OpenRecordset("SELECT Count([COM]) FROM [BIFL] WHERE [BIFL].[COM]='" & cbo_com.Value & "' and [BIFL].[LT_]='FL'", dbOpenSnapshot)

Les experts, ou les autres d'ailleurs, présents sur ce forum pourraient ils m'éclairer svp ?

J'avoue n'avoir pas bien compris l'utilisation des Recordset.

Merci beaucoup.

[Gado2600]

Bonjour,

Oui, il faut que tu remplaces

cbo_com.Value

par une variable que tu passes en paramètre dans ton module.

En effet, ton module ne saura pas qui est cbo_com car il peut venir d'un état ou d'un formulaire.

Cordialement,

[Axe_Débutant]

Bonjour Gado,

Merci beaucoup, tout fonctionne parfaitement à présent. C'était tout simple, j'ai un peu honte

Excellente journée à toi, et merci encore.