Updating data in a combo box

[jedel]

Hi all

I'm building a rostering database and I'm using combo boxes to select from a list of names for each task that requires rostering.

There are three columns visible in the combo box; the person's name, the date he was last rostered, and how many times he has been rostered.

What I would like to achieve is that when the person is select ed for the task in the event, the date he was last rostered updates to the date of the event, shown in another field and the qty of time he has been roster increase by 1.

I've been trying to open DAO recordsets, but I'm unsure as to how to specify the record I want to edit

Any help would be great

Cheers

Dean

-------------------------------------------------------------
"The most overlooked advantage of owning a computer is that if they foul up there's no law against whacking them around a bit."

 

[ProgramError]

how about using an update query?

Ian Mayor (UK)
Program Error
Always make your words sweet and nice. Because you never know when you may have to eat them.

 

[TheAceMan1]

How are ya jedel . . .

Post the row source of the combo (sql/query/table)!

See Ya! . . . . . .

Be sure to see thread181-473997
Also faq181-2886

 

[jedel]

Ian

Your idea worked. Thanks

TheAceman1

This is what I ended up doing. The recordsource ofr the combo box is a query, here's the SQL:

SELECT MembersTBL.Name, MembersTBL.preacher, MembersTBL.dateused, MembersTBL.usedQty, MembersTBL.Caveats
FROM MembersTBL
WHERE (((MembersTBL.preacher)=Yes))
ORDER BY MembersTBL.dateused DESC;

Heres the code in the AfterUpdate event:

Dim defin As String

defin = "UPDATE MembersTBL SET MembersTBL.dateused = [Forms]![frmSample]![AppointmentDate]," _
& " MembersTBL.usedQty = MembersTBL.usedQty + 1" _
& " WHERE (((MembersTBL.Name)=[Forms]![frmSample]![Who]));"
DoCmd.RunSQL defin

Thanks for your ideas, Happy to work on any improvements to the code.

Cheers

Dean


-------------------------------------------------------------
"The most overlooked advantage of owning a computer is that if they foul up there's no law against whacking them around a bit."