Discussion :

[menyarito]

Bonjour,

je suis en train de faire une base de donnée de vente de terrains, j'ai deux tables
clients et terrains, comment je peux faire pourque si on sélection un terrain x pour un client x
le terrain x ne s'affiche plus après pour éviter que deux client auront le même terrain.

merci d'avance pour votre aide

[ClaudeLELOUP]

Bonjour,

J’ajouterais une table de liaison Client/terrains pour comptabiliser les réservations.

=> un terrain reste offert à un client, s'il n'est pas déjà lié à un autre client.

[menyarito]

Bonjour ClaudeLELOUP,

=> un terrain reste offert à un client, s'il n'est pas déjà lié à un autre client.

Je suis débutant, Pourriez vous SVP me montrez comment je peux le faire

Merci d'avance pour votre aide

Sincerely

[ClaudeLELOUP]

Montre un dessin de ce que tu voudrais comme formulaire.

[menyarito]

Montre un dessin de ce que tu voudrais comme formulaire.

http://www.cjoint.com/c/GDwnVJM20M3

Merci

[ClaudeLELOUP]

Soit :

Supposons :

Dès lors pour les autres clients, le choix est réduit :

Propriété Source de la zone de liste :

Code associé au formulaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Option Compare Database
Option Explicit
 
Private Sub Form_Current()
  Me.CTNRsfMaison.Form!cboMaison.RowSource = Me.CTNRsfMaison.Form!cboMaison.RowSource
  Me.CTNRsfMaison.Requery
End Sub

[menyarito]

Bonsoir ClaudeLELOUP et merci infiniment pour votre réponse,

mon employeur exige que le résultat devrait être comme ça;
http://www.cjoint.com/c/GDwsQhtam13

je vous serais très reconnaissante si vous pouviez m'aider

Et MERCI dans tous les cas

[ClaudeLELOUP]

Bonjour,

Évite les « UP ».

Je ne suis pas équipé pour lire ta pièce jointe : j’utilise Access2000.

Mais si le problème est le suivant :

Je te propose la solution en annexe :

Dis-moi si ça correspond à ton but.
Si oui, je commenterai la solution (un peu de VBA est nécessaire)

[menyarito]

Bonsoir,

J'ai réussi en ajoutant la requête suivante comme "row source" de la "combo box"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
SELECT maison
FROM houses
WHERE houses.[maison] Not In 
(
SELECT distinct houses.maison
FROM Houses INNER JOIN Clients 
ON Houses.Maison = Clients.House
or instr(clients.house,houses.maison)>0
or instr(houses.maison,clients.house) >0 ;
)

ClaudeLELOUP Thanks a lot for your help
God bless you

[ClaudeLELOUP]

Cependant ajoute ce code lorsque tu modifies « House » :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Option Compare Database
Option Explicit
 
Private Sub House_AfterUpdate()
  Me.House.RowSource = Me.House.RowSource
End Sub