[Gudzy]

I've made a button on a form which, when pressed, adds 1 to one field and adds 7 to another.

The problem I am having is selecting which record this applies to.

I am wanting for the button to apply to the record on display in the form.

I've been able to get the number of the current record into a variable lngrecordnum but am unsure how I can use this to select the record I want to edit

Any help is much appreciated. My code is below:

Sub CallMade()
Dim dbs As DAO.Database
Dim rstQuotes As DAO.Recordset
Dim lngrecordnum As Long
Set dbs = CurrentDb
Set rstCustomerQuotes = dbs.OpenRecordset("Quotes Table")

lngrecordnum = Forms![Quotes Table Form].CurrentRecord

'Select which record here

rstQuotes.Edit
rstQuotes!Call_attempt = rstQuotes!Call_attempt + 1
rstQuotes!Priority = rstQuotes!Priority + 7
rstQuotes.Update
End Sub

[OBP]

If you are working with the Current Record on the Current Form you do not need a recordset, you can work directly with the Fields on the Form.
If you want to use a Recordset use a RecordsetClone and Bookmark the Recordset to the Form bookmark.
if RS is the recordsetclone you would use
rs.bookmark = me.bookmark.

Of Course this assumes that you are Using a BOUND Form.

[Gudzy]

Originally Posted by OBP

If you are working with the Current Record on the Current Form you do not need a recordset, you can work directly with the Fields on the Form.
If you want to use a Recordset use a RecordsetClone and Bookmark the Recordset to the Form bookmark.
if RS is the recordsetclone you would use
rs.bookmark = me.bookmark.

Of Course this assumes that you are Using a BOUND Form.

Thanks for the quick reply

I'm just working on the current record on the current form.

How do I work directly with the fields on the form, can I just put Priority = Priority + 7 for example?

[OBP]

me.priority = me.priority + 7

[rbalaji]

This will work assuming the form is bound to the table or simple updateable query (not through a non-updateable query) and the fields in question are bound fields. Otherwise, you can use VBA to run an update query with the necessary updates. All records in an access database should have a primary key that you should use to identify them for any reason. Access provides a simple mechanism for this with the autonumber type which you can use with any table to create a simple primary key. You should use this primary key field in the update query to identify the record to update.

[Gudzy]

Thanks, that works as it should.

The primary key is a unique quote reference, which is used in a bespoke database.

As for the bound form stuff, I don't really know what you mean.

I am importing emails form outlook using a linked table (Customer Quotes), then appending that data into a table (Customer Quotes Table) so I can extract some of the information into new fields, such as name, reference etc.

The form (Customer Quotes Table Form) is then just an easier way for the users to the view the information and to provide the automated buttons (the button I've asked about increments the calls_made field is by 1 and priority by 7)

I've started a new thread regarding an automated email problem here: http://forums.techguy.org/business-a...ml#post6494818

[OBP]

Gudzy, a "Bound" form just means that it has the normal Record Source of a Table or Query.
Some people like to have Unbound Forms and then manipulate the records using VBA, which is very hard work.