'when you select any items of the CombBox - Cmbverse,
Private Sub Cmbverse_Click()
'1- The record displays into the Record data boxes includes the following data:
the book order displays in the Cmbbook,
the book title displays in the Cmbtitle,
the chapter order displays in the Cmbchapter,
the verse order corresponding to the item selected
and the contents of the verse.
'2- In the Cmbverse, displays the item selected
If Cmbverse.Enabled = True Then
Setverse False
adoPrimaryRS.MoveFirst
Cmbverserecno.ListIndex = Cmbverse.ListIndex
recordno = Val(Trim(Cmbverserecno.Text))
adoPrimaryRS.Move (recordno)
Call LabelAddress
Setverse True
End If
End Sub
|