Discussion :

[Marc_27]

Bonjour à tous,

Débutant sur l'AS400, je voudrais convertir quelques requêtes que j'avais en VBA pour l'AS400.

J'ai déjà essayé plusieurs syntaxes, mais j'ai toujours des erreurs.
Je voudrais convertir la requête

Code :

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

"where DFVCA>=" & Format(Date, "yyyymm") & " and coren='A' and DFCLOB=' '"

J'ai déjà essayé

Code :

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

"where DFVCA>=Format(Date(Now()), 'yyyymm') and coren='A' and DFCLOB=' '"

Mais il n'a pas marché.
Est-ce que quelqu'un peut m'aider svp?

Merci d'avance

[Marc_27]

J'ai reussi:

Code :

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

year(current date)*100 + month(current date)