Discussion :

[DeFCrew]

Bonjour à tous ;

J'aurais juste une chtite question tout mimi, mais qui m'emm**de vraiment !

Code :

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

1
2
3
4
Dim SQL As String
Dim SQLWhere As String
 
SQL = "SELECT Max(CodProd) as [MCP], Max (N°OP) as [MOP]  FROM Media Where Media!CodProd <> 0;"

Pourquoi je n'arrive pas à récupérer la valeur Max de CodProd et de N°OP dans réspectivement : MCP et MOP ?

Lorsque je lance le débugage, Access m'indique que les champs sont vides ???

Merci de votre aide

[soltani1]

Bonjour,

Ta requête est juste essaie de l'exécuter dans Access pour voir si elle renvoie les résultats voulues.

A+

[DeFCrew]

merci de ta réponse,

Je lance la requête depuis un bouton pour pouvoir incrémenter automatiquement un champs,

Voici le code du bouton

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim SQL As String
Dim SQLWhere As String
 
SQL = "SELECT Max(CodProd) as [MCP], Max (N°OP) as [MOP]  FROM Media Where Media!CodProd <> 0;"
 
DoCmd.GoToRecord , , acNewRec
Me.CodProd.Value = MCP
Me.N°OP.Value = MOP

Access retourne 0 pour les deux champs ? Pourquoi ???

[soltani1]

Bonjour,

Je ne vois pas dans ton code l'exécution de ta requête SQL="Select max(codprod)...."

A+

[DeFCrew]

C'est à dire ???

Je pensai que le code s'éxecutait tout seul une fois lu par l'ordi
Je ne savais pas qu'il fallait un code pour exécuter la SQL.

Peut-tu préciser ce que j'ai oublié ??

Encore merci

[soltani1]

Bonjour,

docmd.runsql SQL exécute la requête SQL puis tu lis MOP et MCP.

A+

[DeFCrew]

Vraiment merci pour ton aide,

Je ne connaissait pas cette commande,

Il me reste juste un probleme qui est ce message d'erreur.

[soltani1]

Bonjour,

J'avais la tête ailleurs la commande docmd.runsql Sql ne fonctionne que pour des requêtes actions ou définitions de données.
essaie ceci :

Dim rs As DAO.Recordset

sql = "SELECT Max(CodProd) as [MCP], Max (N°OP) as [MOP] FROM Media Where Media!CodProd <>0;"
Set rs = CurrentDb.OpenRecordset(sql)
Me.CodProd.Value = rs.Fields("MCP").Value
Me.N°OP.Value = rs.Fields("MOP").Value
rs.Close

Set rs = Nothing

A+

[DeFCrew]

En effet tout fonctionne correctement et comme voulu donc je n'est plus qu'une chose à dire.

Merci pour ton aide !!!