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 Nom du champs

Nom du champs

4 réponses
Avatar
Jo
Bonjour!

J'ai un fomulaire avec 40 cases =E0 cocher. Je souhaite=20
mettre -1 dans le champs de mon formulaire portant le=20
m=EAme nom que fld.name.

=E7a bloque =E0 la ligne=20
Value(Forms!MonForm!StrNomChamps) =3D -1
=E7a me donne comme erreur "Sub ou Function non d=E9finie"

Voici mon code:

Dim db As Database
Dim rst As Recordset
Dim fld As Object
Dim StrNomChamps As String

Set db =3D CurrentDb
Set rst =3D db.OpenRecordset("MaTable", dbOpenDynaset)
=20
With rst
.FindFirst "LeCode =3D " & Forms!MonForm!MonChomps

For Each fld In .Fields
If fld.Value =3D -1 Then
StrNomChamps =3D fld.Name
Value(Forms!MonForm!StrNomChamps) =3D -1
End If
Next
End With
=20
rst.Close
Set rst =3D Nothing
Signaler un problème avec ce contenu

4 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
Avatar
Jessy Sempere [MVP]
Bonjour

Essais de mettre juste :

Forms!MonForm!StrNomChamps = -1

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Jo" a écrit dans le message news:
225c101c45d19$e951bc30$
Bonjour!

J'ai un fomulaire avec 40 cases à cocher. Je souhaite
mettre -1 dans le champs de mon formulaire portant le
même nom que fld.name.

ça bloque à la ligne
Value(Forms!MonForm!StrNomChamps) = -1
ça me donne comme erreur "Sub ou Function non définie"

Voici mon code:

Dim db As Database
Dim rst As Recordset
Dim fld As Object
Dim StrNomChamps As String

Set db = CurrentDb
Set rst = db.OpenRecordset("MaTable", dbOpenDynaset)

With rst
.FindFirst "LeCode = " & Forms!MonForm!MonChomps

For Each fld In .Fields
If fld.Value = -1 Then
StrNomChamps = fld.Name
Value(Forms!MonForm!StrNomChamps) = -1
End If
Next
End With

rst.Close
Set rst = Nothing
Avatar
Jo
Merci de ta réponse Jessy!

Mais ça ne fonctionne pas.
Ça me donne l'erreur :
Impossible de trouver le champs "StrNomChamps" auquel il
est fait référence dans votre expression"

Johanne


-----Message d'origine-----
Bonjour

Essais de mettre juste :

Forms!MonForm!StrNomChamps = -1

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/


Avatar
Jessy Sempere [MVP]
Oups...
Essais plutôt :
Forms("MonForm").Controls(StrNomChamps) = -1

Ca devrait mieux fonctionner ???

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Jo" a écrit dans le message news:
2234001c45d1e$6f38ec20$
Merci de ta réponse Jessy!

Mais ça ne fonctionne pas.
Ça me donne l'erreur :
Impossible de trouver le champs "StrNomChamps" auquel il
est fait référence dans votre expression"

Johanne


-----Message d'origine-----
Bonjour

Essais de mettre juste :

Forms!MonForm!StrNomChamps = -1

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/


Avatar
Jo
Un gros merci!

Tu m'as mis sur la piste.
Ce qui marche c'est :
Forms!MonForm.Controls(StrNomChamps) = -1

Johanne

-----Message d'origine-----
Oups...
Essais plutôt :
Forms("MonForm").Controls(StrNomChamps) = -1

Ca devrait mieux fonctionner ???

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------