Cmbverse_Click
Return

Resume : - (Private Sub Cmbverse_Click()).

When you select an item in the
ComboBox - Cmbverse:

Details ...

  1. Sub Cmbverse_Click, .procedure:

    Examine the Code - the new text Code to be add is red.

    '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


Note:
The CD-Rom - TeachVB stores the analogue application in the folder \\Projects VB\Test VB9.

Return