move next commands

[indhu]

HI all

one sequence has many panels. when i select combo it displays all the fields but panel has more rows. i want to view that also. how to do that?
move next and previous commds are there but not working.

pls help me with coding


here goes my coding

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)
 
 Call PanelCOUNT
 panel_txt.Text = storyboard!Panel
 action_txt.Text = storyboard!Action
 dialogue_txt.Text = storyboard!dialogue
'Image1.Picture = LoadPicture(App.Path & "\images\" & storyboard("filename"))
 Image1.Picture = LoadPicture(storyboard!Filename) 'this produce sometimes in frame else error whileloading
 noofpanel.Text = storyboard.RecordCount 'panelcount not displaying exact count of particular sequence
 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

thanks in advance

[willakawill]

How many more rows do you want to view?

[indhu]

Move next commands

How many more rows do you want to view?

(panel)row is going to be indefinite in number.
seq
SW001 A
B
C
D these rows i want to display.

Sub rLOAD()
Set storyboard = New ADODB.Recordset
' Open Recordset
If CON.State = 1 Then
    MsgBox "Connection is opened"
Else
    MsgBox "Connection is not opened"
End If
storyboard.Open "SELECT scenes, sequence, panel, filename, action, dialogue FROM panel WHERE scenes = '" & scenecombo.Text & "'", CON, adOpenKeyset, adLockReadOnly
End Sub

when i click next button it shows 2 recordcount of that scene but not moving.

[indhu]

(panel)row is going to be indefinite in number.
seq
SW001 A
B
C
D these rows i want to display.

Sub rLOAD()
Set storyboard = New ADODB.Recordset
' Open Recordset
If CON.State = 1 Then
    MsgBox "Connection is opened"
Else
    MsgBox "Connection is not opened"
End If
storyboard.Open "SELECT scenes, sequence, panel, filename, action, dialogue FROM panel WHERE scenes = '" & scenecombo.Text & "'", CON, adOpenKeyset, adLockReadOnly
End Sub

when i click next button it shows 2 recordcount of that scene but not moving.

whatz up? no one is there to help me.

[Killer42]

whatz up? no one is there to help me.

Don't be too impatient. The experts on this site are all volunteers, who have to find the time to help out here - it's not a paid job or anything. We are a little short on VB experts right now, due to illnesses and other commitments.

I'm sure willakawill will get back to you ASAP.

(Also, keep in mind that we live in various timezones).

[willakawill]

Don't be too impatient. The experts on this site are all volunteers, who have to find the time to help out here - it's not a paid job or anything. We are a little short on VB experts right now, due to illnesses and other commitments.

I'm sure willakawill will get back to you ASAP.

(Also, keep in mind that we live in various timezones).

Au contraire. I am not too willing to continually work out an entire app for someone who always posts work everyone else has done for him not understanding it himself. Makes for a long drawn out botomless pit of suggestions

[indhu]

Au contraire. I am not too willing to continually work out an entire app for someone who always posts work everyone else has done for him not understanding it himself. Makes for a long drawn out botomless pit of suggestions

sorry for that.

so far i ve posted only 20 post in Vb. Rest of the post to MS access. Am very new to VB. thats y am asking such a question and suggestion form u guys.

thanks for the cooperation frm u guys.

good bye.

[hariharanmca]

HI all

one sequence has many panels. when i select combo it displays all the fields but panel has more rows. i want to view that also. how to do that?
move next and previous commds are there but not working.

pls help me with coding


here goes my coding

Private Sub sequcombo_Click()

 myconnection

 myquery = sequcombo.Text
 
 Call rLOAD
 Do While storyboard!sequence <> myquery
[B] storyboard.MoveNext[/B]
 If storyboard!sequence = myquery Then
 scenecombo.Text = storyboard!scenes 'sceneid depends on the table(sequence)
 
 Call PanelCOUNT
 panel_txt.Text = storyboard!Panel
 action_txt.Text = storyboard!Action
 dialogue_txt.Text = storyboard!dialogue
'Image1.Picture = LoadPicture(App.Path & "\images\" & storyboard("filename"))
 Image1.Picture = LoadPicture(storyboard!Filename) 'this produce sometimes in frame else error whileloading
 noofpanel.Text = storyboard.RecordCount 'panelcount not displaying exact count of particular sequence
 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

thanks in advance

You are coded storyboard.Move Next at the begining of the while loop so it will move to the second record then it will assigen the values

[hariharanmca]

You are coded storyboard.Move Next at the begining of the while loop so it will move to the second record then it will assigen the values

i think this qry will select two record then its showing the second record

[hariharanmca]

whatz up? no one is there to help me.

This is not an answer bank that you can post your question and get answer, this is discussion group that will discus on the questions.

No one is expert to answer; every one is experts to discus


Be Cool Baby to post your QA's

[indhu]

This is not an answer bank that you can post your question and get answer, this is discussion group that will discus on the questions.

No one is expert to answer; every one is experts to discus


Be Cool Baby to post your QA's

sorry,

the way she said........k

anyway mine is working.

Private Sub cmdNext_Click()

Call resLOAD
MsgBox storyboard.RecordCount
 While Not storyboard.EOF
  Call dataFill
 storyboard.MoveNext
 'msgbox "next REC"
 Wend

 End Sub

but its going to first and last records, not going by order. 1,2,3. y it is moving like tht if i add msgbox "next" moving but its not stop in that rec becos of while loop. any idea abt this.

[hariharanmca]

sorry,

the way she said........k

anyway mine is working.

Private Sub cmdNext_Click()

Call resLOAD
MsgBox storyboard.RecordCount
 While Not storyboard.EOF
  Call dataFill
 storyboard.MoveNext
 'msgbox "next REC"
 Wend

 End Sub

but its going to first and last records, not going by order. 1,2,3. y it is moving like tht if i add msgbox "next" moving but its not stop in that rec becos of while loop. any idea abt this.

did you use Order by in qry

[hariharanmca]

sorry,

the way she said........k

anyway mine is working.

Private Sub cmdNext_Click()

Call resLOAD
MsgBox storyboard.RecordCount
 While Not storyboard.EOF
  Call dataFill
 storyboard.MoveNext
 'msgbox "next REC"
 Wend

 End Sub

but its going to first and last records, not going by order. 1,2,3. y it is moving like tht if i add msgbox "next" moving but its not stop in that rec becos of while loop. any idea abt this.

remove that while loop or Movenext inside that while loop

[indhu]

did you use Order by in qry

no,
storyboard.Open "SELECT xyz, sc1, image, ABCl, atn, dge FROM xyztbl WHERE sc1 = '" & sc1combo.Text & "'", CON, adOpenStatic, adLockReadOnly

[hariharanmca]

no,
storyboard.Open "SELECT xyz, sc1, image, ABCl, atn, dge FROM xyztbl WHERE sc1 = '" & sc1combo.Text & "'", CON, adOpenStatic, adLockReadOnly

i think u have to remove while