Please help me with functions SelTop SelLeft SelHeight SelWidth.

  • Thread starter Thread starter Denisas Bykovas
  • Start date Start date
D

Denisas Bykovas

I have a promblem undarsatnding functions SelTop SelLeft SelHeight SelWidth.
I have form with subforms "Waiting", "Accepted", and two button "AcceptAll",
"AcceptSelected", on button "AcceptAll" press I want each record in subform
get a new value and I use this code:

Private Sub CommandAcceptAll_Click()
Dim ds As DAO.Recordset: Set ds =
Me!NewManufactureEntry_Accepted.Form.RecordsetClone: ds.MoveFirst
Do While Not ds.EOF
ds.Edit
ds("StatusID") = 1
ds("ManufaktureEntryID") = Null
ds.Update
ds.MoveNext
Loop
Me!NewManufactureEntry_Accepted.Requery
Me!NewManufactureEntry_Waiting.Requery
End Sub

What I want program to do when I press on button "AcceptSelected" is to
change only selected records. Please help me with this, for I haven't use
access before and this is my firs db.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Unbound checkbox in subform datasheet 4
if function call is true exit sub 2
Help with SelTop 2
Help me create a serach to search my form PLEASE NO COMBO BOX 4
Returning to Current Record After Requery 1
Somebody Please Help Me 24
problems with Add record functionality 1
Go to specific record in a form PLEASE HELP ME :) 1

Back
Top