Bienvenue! Identification Créer un nouveau profil

Recherche avancée

Pb avec absence dans liste je patauge merci

28/03/07 15:54
Bonjour,

J'ai un table T_Ville
NbVille numéroAuto clé primaire
ListeVille format texte
Un formulaire associé à cette table permet de mettre à jour la liste des villes

J'ai également une table T_MembreONM
avec un champ texte : ListeVille avec une zone de liste déroulante : SELECT [T_Ville].[NbVilles], [T_Ville].[ListeVille] FROM T_Ville;

ceci me permet sur mon formulaire F_MembreONM de récupérer les villes

la relation entre la T_Ville (Champ : ListeVille) et la T_MembreONM (Champ : ListeVille)
est de type un à plusieurs et la propriété de jointure = 1 (inclure seulement les lignes des deux tables pour lesquelles
les champs joints sont égaux)

Comme le nb de villes devient conséquent (600) je voudrais remplacer tout cela totalement ou partiellement par
qq chose de plus simple à savoir la fonction absence dans liste

j'ai trouvé adapté à mes champs et table sans trop savoir ce que je faisais ce code
en sélectionnant dans mon frm F_MembreONM le champ ListeVille propriété sur absence dans liste


Private Sub ListeVille_NotInList(NewData As String, Response As Integer)
'Demande à l'utilisateur s'il veut entrer une valeur dans la liste.
Dim strMessage As String
Dim dbsVille As Database
Dim rstTypes As DAO.Recordset

strMessage = "Etes vous certains de vouloir ajouter '" & NewData & -"' ‡ la liste des villes ?"
If Confirmer(strMessage) Then

'Ouvre la table des villes et y ajoute la valeur de NewData.
Set dbsVille = CurrentDb
Set rstTypes = dbsVille.OpenRecorset("Ville")
rstTypes.AddNew
rstTypes!ListeVille = NewData
rstTypes.Update
Response = acDataErrAdded 'Modifie la liste.

Else

Response = acDataErrDisplay 'Affiche l'erreur.
End If

je ne sais pas par ‡ quoi correspond dbsVille c'est à ce niveau qu'il y a erreur de compilation

le msg indique erreur cde compilation
dbsVille As Database
Type non défini par l'utilisateur
je patauge lamentablement
merci de votre aide

dernier point j'ai mis des dates de naissance au format Date abrÈgÈe 00/00/00;;
lorsque je saisie 23/12/24 il affiche 23/12/2024?? suis je obligÈ de passer au format 00/00/0000;; ou existe t'il une autre solution
encore grand merci au grand manitou d'access sans qui on ne peut progresser
Kenavo
GÈgÈ

SujetAuteurEnvoyé le

Pb avec absence dans liste je patauge merci

gege28/03/07 15:54

Re: Pb avec absence dans liste je patauge merci

Dan28/03/07 21:15

je vais tester

gege28/03/07 22:41

formidable ça marche du premier coup grand merci

gege29/03/07 09:53

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter