move next commands

[indhu]

one sequenceid has many panels how to track records of that.

pls give coding for this

my coding is when i select sequence it will populate other fields but panel has more rows in its i want to view that also. how to do that. movenext and previous buttons are there.

Private Sub sequcombo_Click()
 
 myconnection
 
 myquery = sequcombo.Text
 
 Call rLOAD
 Do While storyboard!sequence <> myquery
 storyboard.MoveNext
 If storyboard!sequence = myquery Then
 scenecombo.Text = storyboard!scenes 'sceneid depends on the table(sequence)
  panel_txt.Text = storyboard!Panel
 action_txt.Text = storyboard!Action
 dialogue_txt.Text = storyboard!dialogue
 Image1.Picture = LoadPicture(storyboard!Filename) 'somtimes produce errror.
 noofpanel.Text = storyboard.RecordCount 'panelcount not displaying exact count of particular sequence, displaying total row count
 End If
 Loop
 
 accdb = "SELECT DISTINCT sequence FROM sequence WHERE seqid = '" & myquery & "' "
'Load SQL query into a variable
 
Set storyboard = CON.Execute(accdb, adOpenStatic)
End Sub

[willakawill]

one sequenceid has many panels how to track records of that.

pls give coding for this

my coding is when i select sequence it will populate other fields but panel has more rows in its i want to view that also. how to do that. movenext and previous buttons are there.

Private Sub sequcombo_Click()
 
 myconnection
 
 myquery = sequcombo.Text
 
 Call rLOAD
 Do While storyboard!sequence <> myquery
 storyboard.MoveNext
 If storyboard!sequence = myquery Then
 scenecombo.Text = storyboard!scenes 'sceneid depends on the table(sequence)
  panel_txt.Text = storyboard!Panel
 action_txt.Text = storyboard!Action
 dialogue_txt.Text = storyboard!dialogue
 Image1.Picture = LoadPicture(storyboard!Filename) 'somtimes produce errror.
 noofpanel.Text = storyboard.RecordCount 'panelcount not displaying exact count of particular sequence, displaying total row count
 End If
 Loop
 
 accdb = "SELECT DISTINCT sequence FROM sequence WHERE seqid = '" & myquery & "' "
'Load SQL query into a variable
 
Set storyboard = CON.Execute(accdb, adOpenStatic)
End Sub

How many more rows?