[RÉSOLU] Hide record after selection

[menyarito]

Hi everyone,

I have two tables : customers and houses.
If a customer chooses a house (example: H33), The house (H33) will not appear after
to avoid two customers choosing the same house.


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

Thanks in advance for your help

[ranman256]

THouses should have a [ownerID] field.
user picks it, that field fills w ownerID,
the query to pick houses would only show houses where ownerID is null.

[menyarito]

Thanks ranman256

I am beginner, could you show me please how i can do

Thanks in advance for your help

[menyarito]

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

[menyarito]

up plz....

[andy49]

OK have you added the field yet? As Ranman suggested?

[menyarito]

OK have you added the field yet? As Ranman suggested?

No, How I can do it?
I want as this: http://www.cjoint.com/c/GDwnVJM20M3

Thanks for your help

[andy49]

click once on the table houses

Select design view

Add another field called OWNERID (a number field)

[menyarito]

click once on the table houses

Select design view

Add another field called OWNERID (a number field)

ok done...

[andy49]

what's the name of the field which has the number 1 in your link

[menyarito]

what's the name of the field which has the number 1 in your link

Customer ID

[andy49]

ignore its not right


Put this in the combo_update() event

Dim sqlstr As String
Dim db As Database
    Set db = CurrentDb 
   sqlstr = "INSERT INTO Houses " _
        & "(OWNERID) VALUES " _
        & "(" & Chr(34) & customerID & Chr(34) & ");"
        
   
   'db.Execute sqlstr

I've assumed your table is called Houses
And the owner field is called OWNERID

[andy49]

Put this in the combo_update() event

Dim sqlstr As String
Dim db As Database
    Set db = CurrentDb
   
  
   sqlstr = "INSERT INTO Houses " _
        & "(OWNERID) VALUES " _
        & "(" & Chr(34) & customerID & Chr(34) & ")" _
        & " where HOUSEID = " & cbochoice.Value & ";"
        
   
   'db.Execute sqlstr
  Debug.Print sqlstr

This will need a bit of checking before we go further I think.

It should place my OWNERID in the correct place in the table Houses once I've chosen HouseB

Can we see the rowsource of the combobox as it will need to be changed slightly

[menyarito]

Put this in the combo_update() event

Dim sqlstr As String
Dim db As Database
    Set db = CurrentDb
   
  
   sqlstr = "INSERT INTO Houses " _
        & "(OWNERID) VALUES " _
        & "(" & Chr(34) & customerID & Chr(34) & ")" _
        & " where HOUSEID = " & cbochoice.Value & ";"
        
   
   'db.Execute sqlstr
  Debug.Print sqlstr

This will need a bit of checking before we go further I think.

It should place my OWNERID in the correct place in the table Houses once I've chosen HouseB

Can we see the rowsource of the combobox as it will need to be changed slightly

sorry but where is the combo_update() event

[andy49]

in Form design view, click on the combobox then on the properties sheet icon and you'll see a small window open which includes the word event

Click on event and you'll see after update

press the three dots (...) and select the code builder option

the code is then pasted