Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access critère

critère

12 réponses
Avatar
didier
Bonjour

J'essais d'am=E9liorr=E9 une fonction pour ajouter un crit=E9re=20
=E0 la fonction Autonum de notre ami Raymond
J'ai rajout=E9 la variable FieldDate
je d=E9finit mes variables comme suit:
Public Function AutoNum(AutoNumType As AutoType,=20
TableName As String, FieldName As String, FieldDate As=20
String, DateJ As Date) As String
et dans la fonction j'ai mis
lgTmp =3DNz(DMax(FieldName, TableName, Format
(FieldDate,"yy")=3DFormat(DateJ,"yy")),0)

Ma syntaxe de mon crit=E9re est mauvaise
Format(FieldDate,"yy")=3DFormat(DateJ,"yy") ne fonctionne=20
pas

Par contre la fonction, directement mis dans mon=20
formulaire,
lgTmp =3DNz(DMax("monchamp", "matable", "Format
(Datetable,'yy')=3D" & Format(Me!Datef,"yy") & ""),0) me=20
revoit le bon nombre

Merci d'avance pour la correction du crit=E9re
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Raymond [mvp]
c'est pour ça que j'ai demandé le form.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Pierre CFI [mvp]" a écrit dans le message de
news: %23LM%
oui, mais si tout était dans les " ", je sais pas il y a qq chose qui me
chifonne
Marseille 2 Angers 3

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"Raymond [mvp]" a écrit dans le message
de news:
Bonsoir Pierre.

Si, mais vu que c'est une égalité entre 2 formats, c'est bon.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Pierre CFI [mvp]" a écrit dans le message de
news: %
juste en grain de sel
format(mdate,"yy") ne retourne pas une valeur texte ? je suis pas sur

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"Raymond [mvp]" a écrit dans le
message
de news:
il faut que le type soit identique entre le dim de fielddate (ou le
type
de
champ) et le type indiqué dans la fonction.
peux-tu me passer ta base en m'indiquant l'endroit où ça se passe ?
enlève
XYZ. dans mon adresse.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Didier" a écrit dans le message
de
news: 1abc01c4f5a3$53f695c0$
Ma fonction
Public Function AutoNum(AutoNumType As AutoType,
TableName As String, Fielddate As String, Fielddate As
Date, DateJ As Date) As String
lgTmp =Nz(DMax(FieldName, TableName, Format
(FieldDate,"yy") & "=" & Format(DateJ,"yy")),0)

Me!T = AutoNum
(Mois, "monchampN°", "Matable", "monchampdate", Me!D)
Cela me mets incomptabilité
de type quand je lance la fonction sur
Me!T..................
alors que si je fais directement
Me!T =Nz(DMax("monchampN°", "Matable", "Format
([monchampdate],'yy')=" & Format(Me!D,"yy") & ""),0) me
revoit le bon nombre
Ou est l'erreur car je ne voit pas
















Avatar
Raymond [mvp]
Message envoyé par mail:

Tu n'as pas besoin d'envoyer datef dans la fonction, ça ne sert à rien.
appelle par : Me!T = AutoNum(Mois, "Table1", "N°", Me!D)
modifie la fonction avec :
Public Function AutoNum(AutoNumType As AutoType, TableName As String,
FieldName As String, DateJ As Date) As String
et
Case Mois
lgTmp = Nz(DMax(FieldName, TableName, "Format([Datef], ""yy"")=
" & Format(DateJ, "yy")), 0)
je n'ai pas vérifié le reste.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
1 2