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 code marche pas !!

code marche pas !!

3 réponses
Avatar
matt
bonjour je voudrais savoir pourquoi ce code ne marche pas=20

Dim ctl As Control

For Each ctl In Me.Controls
Select Case Left(ctl.Name, 3)
Case "chk"
ctl.Value =3D -1
=20

Case "txt"
ctl.Visible =3D False
ctl.Value =3D ""
=20
Case "cmb"
ctl.Visible =3D False
=20
End Select
Next ctl

Me.lstResults.RowSource =3D "SELECT=20
idcli,soci=E9t=E9,nomper,repcli,texte,heure,dur=E9ecli Type=20
FROM T_client;"
Me.lstResults.Requery

je me suis inspirer d'une base que g trouv=E9 sur internet
dans mon formulaire j'ai 3 cases a cocher
(chknom,chkdate,chksoc), 2 zones de texte(txtdate et=20
txtsoc) et un combo (cmbnom)

Access (95 d=E9sol=E9) me met une erreur qd j'execute le code=20
une erreur de compilation

Merci
Signaler un problème avec ce contenu

3 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
gilles
Bonjour,

il se peut que tu fasses appel à une bibliothèque (dll)
qui n'est pas référencé en access95.

Vérifies si les objets auxquels tu fais appel sont bien
référencés et précises le détail du message d'erreur que
tu reçois
-----Message d'origine-----
bonjour je voudrais savoir pourquoi ce code ne marche pas

Dim ctl As Control

For Each ctl In Me.Controls
Select Case Left(ctl.Name, 3)
Case "chk"
ctl.Value = -1


Case "txt"
ctl.Visible = False
ctl.Value = ""

Case "cmb"
ctl.Visible = False

End Select
Next ctl

Me.lstResults.RowSource = "SELECT
idcli,société,nomper,repcli,texte,heure,duréecli Type
FROM T_client;"
Me.lstResults.Requery

je me suis inspirer d'une base que g trouvé sur internet
dans mon formulaire j'ai 3 cases a cocher
(chknom,chkdate,chksoc), 2 zones de texte(txtdate et
txtsoc) et un combo (cmbnom)

Access (95 désolé) me met une erreur qd j'execute le code
une erreur de compilation

Merci
.



Avatar
3stone
Salut,

bonjour je voudrais savoir pourquoi ce code ne marche pas

Dim ctl As Control

For Each ctl In Me.Controls

Debug.Print ctl.Name '<======= pour test

Select Case Left(ctl.Name, 3)
Case "chk"
ctl.Value = -1


Case "txt"
ctl.Visible = False
ctl.Value = ""

Case "cmb"
ctl.Visible = False

End Select
Next ctl

Me.lstResults.RowSource = "SELECT
idcli,société,nomper,repcli,texte,heure,duréecli Type
FROM T_client;"
Me.lstResults.Requery


duréecli Type c'est quoi ? Type est hasardeux...


--
A+
Pierre (3stone) Access MVP
-------------------------------------------------------
Bien démarrer ? c'est ici http://users.skynet.be/mpfa/
( Je ne réponds pas aux emails qui concernent Access )
-------------------------------------------------------
Avatar
matt
-----Message d'origine-----
Bonjour,

il se peut que tu fasses appel à une bibliothèque (dll)
qui n'est pas référencé en access95.

Vérifies si les objets auxquels tu fais appel sont bien
référencés et précises le détail du message d'erreur que
tu reçois
-----Message d'origine-----
bonjour je voudrais savoir pourquoi ce code ne marche
pas



Dim ctl As Control

For Each ctl In Me.Controls
Select Case Left(ctl.Name, 3)
Case "chk"
ctl.Value = -1


Case "txt"
ctl.Visible = False
ctl.Value = ""

Case "cmb"
ctl.Visible = False

End Select
Next ctl

Me.lstResults.RowSource = "SELECT
idcli,société,nomper,repcli,texte,heure,duréecli Type
FROM T_client;"
Me.lstResults.Requery

je me suis inspirer d'une base que g trouvé sur internet
dans mon formulaire j'ai 3 cases a cocher
(chknom,chkdate,chksoc), 2 zones de texte(txtdate et
txtsoc) et un combo (cmbnom)

Access (95 désolé) me met une erreur qd j'execute le
code


une erreur de compilation

Merci
.
il me dit que le resultat de l'expression n'est pas le
nom d'une macro ou d'un evenement ou d'une event


procedure
.