OVH Cloud OVH Cloud

Actualisation liste déroulante

4 réponses
Avatar
Dominique
Bonsoir,

Dans un formulaire, j'ai une liste d=E9roulante dont le=20
contenu est une liste de valeurs. Ce contr=F4le (TypeCDROM)
vient alimenter automatiquement une table ("Archivage=20
CDROM").

J'ai cr=E9=E9 un bouton qui permet de supprimer=20
l'enregistrement dans la table. Mais je n'arrive pas =E0=20
actualiser ma liste d=E9roulante. En effet, j'ai=20
l'impression que c'est la source de mon formulaire qui est=20
actualis=E9 car c'est le 1er enregistrement qui redevient=20
actif. Si je supprime l'instruction "DoCmd.Requery=20
TypeCDROM" mon contr=F4le affiche "#supprim=E9#. Ce qui n'est=20
pas tr=E8s joli...

Merci de votre aide.

Mon code est le suivant :

Dim bd As Database, t As DAO.Recordset, frd As=20
DAO.Recordset

Set bd =3D CurrentDb()
Set t =3D bd.OpenRecordset("Archivage CDROM")


Do Until t.EOF
If t!PAC =3D Me!PACclt Then
t.Delete
End If
t.MoveNext
Loop

TypeCDROM.Setfocus
DoCmd.Requery TypeCDROM

end sub

4 réponses

Avatar
Monkeytoo
essayes plutôt
TypeCDROM.Setfocus
TypeCDROM.Requery
car c'est le combo qui s'appelle typeCDROM que tu dois actualiser et pas ton
formulaire


"Dominique" a écrit dans le message de news:
00ee01c3c4eb$de4999f0$
Bonsoir,

Dans un formulaire, j'ai une liste déroulante dont le
contenu est une liste de valeurs. Ce contrôle (TypeCDROM)
vient alimenter automatiquement une table ("Archivage
CDROM").

J'ai créé un bouton qui permet de supprimer
l'enregistrement dans la table. Mais je n'arrive pas à
actualiser ma liste déroulante. En effet, j'ai
l'impression que c'est la source de mon formulaire qui est
actualisé car c'est le 1er enregistrement qui redevient
actif. Si je supprime l'instruction "DoCmd.Requery
TypeCDROM" mon contrôle affiche "#supprimé#. Ce qui n'est
pas très joli...

Merci de votre aide.

Mon code est le suivant :

Dim bd As Database, t As DAO.Recordset, frd As
DAO.Recordset

Set bd = CurrentDb()
Set t = bd.OpenRecordset("Archivage CDROM")


Do Until t.EOF
If t!PAC = Me!PACclt Then
t.Delete
End If
t.MoveNext
Loop

TypeCDROM.Setfocus
DoCmd.Requery TypeCDROM

end sub
Avatar
Dominique
J'ai essayé avec "TypeCDROM.Requery", mais le résultat est
le même. Mon contrôle affiche toujours "#Supprimé"...

Merci


-----Message d'origine-----
essayes plutôt
TypeCDROM.Setfocus
TypeCDROM.Requery
car c'est le combo qui s'appelle typeCDROM que tu dois
actualiser et pas ton

formulaire


"Dominique" a écrit dans le
message de news:

00ee01c3c4eb$de4999f0$
Bonsoir,

Dans un formulaire, j'ai une liste déroulante dont le
contenu est une liste de valeurs. Ce contrôle (TypeCDROM)
vient alimenter automatiquement une table ("Archivage
CDROM").

J'ai créé un bouton qui permet de supprimer
l'enregistrement dans la table. Mais je n'arrive pas à
actualiser ma liste déroulante. En effet, j'ai
l'impression que c'est la source de mon formulaire qui est
actualisé car c'est le 1er enregistrement qui redevient
actif. Si je supprime l'instruction "DoCmd.Requery
TypeCDROM" mon contrôle affiche "#supprimé#. Ce qui n'est
pas très joli...

Merci de votre aide.

Mon code est le suivant :

Dim bd As Database, t As DAO.Recordset, frd As
DAO.Recordset

Set bd = CurrentDb()
Set t = bd.OpenRecordset("Archivage CDROM")


Do Until t.EOF
If t!PAC = Me!PACclt Then
t.Delete
End If
t.MoveNext
Loop

TypeCDROM.Setfocus
DoCmd.Requery TypeCDROM

end sub


.



Avatar
Monkeytoo
Il manquait après le requery
TypeCDROM.Refresh


"Dominique" a écrit dans le message de news:
007201c3c4ef$28ec2ba0$
J'ai essayé avec "TypeCDROM.Requery", mais le résultat est
le même. Mon contrôle affiche toujours "#Supprimé"...

Merci


-----Message d'origine-----
essayes plutôt
TypeCDROM.Setfocus
TypeCDROM.Requery
car c'est le combo qui s'appelle typeCDROM que tu dois
actualiser et pas ton

formulaire


"Dominique" a écrit dans le
message de news:

00ee01c3c4eb$de4999f0$
Bonsoir,

Dans un formulaire, j'ai une liste déroulante dont le
contenu est une liste de valeurs. Ce contrôle (TypeCDROM)
vient alimenter automatiquement une table ("Archivage
CDROM").

J'ai créé un bouton qui permet de supprimer
l'enregistrement dans la table. Mais je n'arrive pas à
actualiser ma liste déroulante. En effet, j'ai
l'impression que c'est la source de mon formulaire qui est
actualisé car c'est le 1er enregistrement qui redevient
actif. Si je supprime l'instruction "DoCmd.Requery
TypeCDROM" mon contrôle affiche "#supprimé#. Ce qui n'est
pas très joli...

Merci de votre aide.

Mon code est le suivant :

Dim bd As Database, t As DAO.Recordset, frd As
DAO.Recordset

Set bd = CurrentDb()
Set t = bd.OpenRecordset("Archivage CDROM")


Do Until t.EOF
If t!PAC = Me!PACclt Then
t.Delete
End If
t.MoveNext
Loop

TypeCDROM.Setfocus
DoCmd.Requery TypeCDROM

end sub


.



Avatar
Monkeytoo
ERREUR DE MA PART
Pas de refresh sur un combo

"Monkeytoo" a écrit dans le message de news:
u#
Il manquait après le requery
TypeCDROM.Refresh


"Dominique" a écrit dans le message de news:
007201c3c4ef$28ec2ba0$
J'ai essayé avec "TypeCDROM.Requery", mais le résultat est
le même. Mon contrôle affiche toujours "#Supprimé"...

Merci


-----Message d'origine-----
essayes plutôt
TypeCDROM.Setfocus
TypeCDROM.Requery
car c'est le combo qui s'appelle typeCDROM que tu dois
actualiser et pas ton

formulaire


"Dominique" a écrit dans le
message de news:

00ee01c3c4eb$de4999f0$
Bonsoir,

Dans un formulaire, j'ai une liste déroulante dont le
contenu est une liste de valeurs. Ce contrôle (TypeCDROM)
vient alimenter automatiquement une table ("Archivage
CDROM").

J'ai créé un bouton qui permet de supprimer
l'enregistrement dans la table. Mais je n'arrive pas à
actualiser ma liste déroulante. En effet, j'ai
l'impression que c'est la source de mon formulaire qui est
actualisé car c'est le 1er enregistrement qui redevient
actif. Si je supprime l'instruction "DoCmd.Requery
TypeCDROM" mon contrôle affiche "#supprimé#. Ce qui n'est
pas très joli...

Merci de votre aide.

Mon code est le suivant :

Dim bd As Database, t As DAO.Recordset, frd As
DAO.Recordset

Set bd = CurrentDb()
Set t = bd.OpenRecordset("Archivage CDROM")


Do Until t.EOF
If t!PAC = Me!PACclt Then
t.Delete
End If
t.MoveNext
Loop

TypeCDROM.Setfocus
DoCmd.Requery TypeCDROM

end sub


.