How VB can know what records and how many in a form have been selected

[GeorgeJ]

I have a tabular form with record selectors. Suppose I click in one of the selectors, then hold the shift button and select the two records below the first one I selected. What would the code look like which would precede the following code to make it give the right answer




Dim NumSelected as Integer, FirstSelected as Integer

'What code goes here ?'

Msgbox "You selected " & NumSelected & " records, starting with record # " & FirstSelected


Thanks in advance

[June7]

Use SelHeight form property.

NumSelected = Me.SelHeight

SelTop will give the first record position: Me.SelTop

[orange]

What have you tried? What was the result(s)?

[GeorgeJ]

Thank you. I didn't know about either of them.

Seltop works fine. I am having a problem with SelHeight, which always returns 0. I put a button "Command7" on my form and the click code is

Private Sub Command7_Click()
MsgBox Me.SelTop & ", " & Me.SelHeight
End Sub

I put the cursor on the second record selector, and click, then hold down the shift key, move the cursor down 1 and click again. Now the selectors for records 2 and 3 are black. I move the cursor to the button "Command7" and click. The message I get is

2, 0

and I notice that the act of moving the cursor from the record selectors and clicking Command7 unblackens the record selectors. The small black triangle remains in the selector for record 2. So it indeed looks like only this record is selected.

Any suggestions. I eventually want to have code in Comand7 do something with all the selected records, but it seems that the act of clicking on Command7 cancels the selection for all but the current record.

Any suggestions?

[June7]

I have used this code only once and it was actually written by someone else. It involves a form/subform arrangement. Records are selected in subform but code is behind main form. Apparently need global module variables.

Option Compare Database
Option Explicit
Dim intHeight As Integer    'stores value for number of test records selected for deletion
Dim intTop As Integer   'stores value for position of the first selected record in Tests recordset

Private Sub ctrTests_Exit(Cancel As Integer)
'sets module variables starting values for use in deleting selected tests
intHeight = Me.ctrTests.Form.SelHeight
intTop = Me.ctrTests.Form.SelTop
End Sub

Private Sub RemoveTest()
'Cascade deletions out to individual data tables then delete from Tests table
On Error GoTo err_Proc
With Me.ctrTests.Form.RecordsetClone
If .RecordCount < 1 Then
    MsgBox "No tests have been saved.  Delete action canceled.", , "RemoveTest Error"
ElseIf intHeight < 1 Then
    MsgBox "No tests have been selected.  Delete action canceled.", , "RemoveTest Error"
Else
...
End Sub