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]

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
  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

You are coded storyboard.MoveNext 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.MoveNext 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

[indhu]

i think u have to remove while

Private Sub cmdNext_Click()
 
Call rLOAD
 
MsgBox storyboard.RecordCount
If Not storyboard.EOF Then
storyboard.MoveNext
Call Fill
end if
End sub

i tried this. its moving only 2 records not going to last rec.

[hariharanmca]

Private Sub cmdNext_Click()
 
Call rLOAD
 
MsgBox storyboard.RecordCount
If Not storyboard.EOF Then
storyboard.MoveNext
Call Fill
end if
End sub

i tried this. its moving only 2 records not going to last rec.

accdb= your qry
Press ctrl+G it will open the immediate window there type

? accdb
it will return the qry value

copy that value and paste in MSAccess qry editor then run it I think it will return two record

[indhu]

accdb= your qry
Press ctrl+G it will open the immediate window there type

? accdb
it will return the qry value

copy that value and paste in MSAccess qry editor then run it I think it will return two record

accdb = "SELECT sequence, scenes, filename, panel, action, dialogue FROM panel WHERE scenes = '" & scenecombo.Text & "'"

?accdb

i tried it in immediate window not returning anything

tbl has 3 rec for tht id Hari,

[hariharanmca]

accdb = "SELECT sequence, scenes, filename, panel, action, dialogue FROM panel WHERE scenes = '" & scenecombo.Text & "'"

?accdb

i tried it in immediate window not returning anything

tbl has 3 rec for tht id Hari,

what is in Call dataFill

Ok, Post the complete function
and
you have keep breakpoint after
accdb = "SELECT sequence, scenes, filename, panel, action, dialogue FROM panel WHERE scenes = '" & scenecombo.Text & "'"


line

then use that window

[indhu]

what is in Call dataFill

Ok, Post the complete function
and
you have keep breakpoint after
accdb = "SELECT sequence, scenes, filename, panel, action, dialogue FROM panel WHERE scenes = '" & scenecombo.Text & "'"


line

then use that window

Sub Fill()

secombo = storyboard!seq1
sc1combo = storyboard!sc1
pan_txt.Text = storyboard!Pan
Image1.Picture = LoadPicture(App.Path & "\images\" & storyboard("filename"))
act_txt.Text = storyboard!Act
dial_txt.Text = storyboard!dial
End Sub

[hariharanmca]

Sub Fill()

secombo = storyboard!seq1
sc1combo = storyboard!sc1
pan_txt.Text = storyboard!Pan
Image1.Picture = LoadPicture(App.Path & "\images\" & storyboard("filename"))
act_txt.Text = storyboard!Act
dial_txt.Text = storyboard!dial
End Sub

you are calling dataFill

and detail code about function and calling function

[indhu]

you are calling dataFill

and detail code about function and calling function

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 seq, sc1, images, pan, act, dial FROM  xyzTBL WHERE sc1 = '" & sc1combo.Text & "'", CON, adOpenStatic, adLockReadOnly

these 2 procedure only am using in cmdnext

[hariharanmca]

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 seq, sc1, images, pan, act, dial FROM  xyzTBL WHERE sc1 = '" & sc1combo.Text & "'", CON, adOpenStatic, adLockReadOnly

these 2 procedure only am using in cmdnext

because of this code this is not moving next

1 Set storyboard = New ADODB.Recordset 'storyboard having New Instance
2 storyboard.Open "SELECT seq, sc1, images, pan, act, dial FROM xyzTBL WHERE sc1 = '" & sc1combo.Text & "'", CON, adOpenStatic, adLockReadOnly

' at the every click of nextCommandbutton the record set open again

[indhu]

because of this code this is not moving next

1 Set storyboard = New ADODB.Recordset 'storyboard having New Instance
2 storyboard.Open "SELECT seq, sc1, images, pan, act, dial FROM xyzTBL WHERE sc1 = '" & sc1combo.Text & "'", CON, adOpenStatic, adLockReadOnly

' at the every click of nextCommandbutton the record set open again

what i ve to do for this.
i ve commented recordset line, 2 line declared as accdb= that query.
but now its giving error in sc1comboclick_event
runtime error item cannot be found in collection or ordinal name.

[hariharanmca]

what i ve to do for this.
i ve commented recordset line, 2 line declared as accdb= that query.
but now its giving error in sc1comboclick_event
runtime error item cannot be found in collection or ordinal name.

no, you have to give those lines but not here like

move next,move prev,move last,move first because these are the code execute after the record set open once. so you should not give here.

give in form load (but its not the correct way).

[indhu]

no, you have to give those lines but not here like

move next,move prev,move last,move first because these are the code execute after the record set open once. so you should not give here.

give in form load (but its not the correct way).

hey its working, i didn't set recordset to execute. thaty its given that error. but y my record count is showing -1

[hariharanmca]

hey its working, i didn't set recordset to execute. thaty its given that error. but y my record count is showing -1

because of cursor type and lock type

[indhu]

hey its working, i didn't set recordset to execute. thaty its given that error. but y my record count is showing -1

Private Sub Form_Load()
 
Set CON = New ADODB.Connection
CON.CursorLocation = adUseClient
 
myconnection
 
Call tblLOAD
projecttxt.Text = storyboard!project
'episode.Text = storyboard!episode
 
storyboard.MoveFirst
 
Call sceneLOAD
 
Do While Not storyboard.EOF
scenecombo.AddItem storyboard!sceneid 'List all the sceneID items into the ComboBox
storyboard.MoveNext
Loop
' Close  Recordset
storyboard.close
 
' Clear the memory
Set storyboard = Nothing
 
End Sub
 

this is my form load coding.

[Killer42]

hey its working, i didn't set recordset to execute. thaty its given that error. but y my record count is showing -1

I'm not sure of the exact circumstances, but sometimes you have to MoveLast before the RecordCount is properly calculated. The -1 is probably just intended as a True flag to indicate that records were found. If you do a MoveLast then MoveFirst, you'll probably get the correct count.

[hariharanmca]

Private Sub Form_Load()
 
Set CON = New ADODB.Connection
CON.CursorLocation = adUseClient
 
myconnection
 
Call tblLOAD
projecttxt.Text = storyboard!project
'episode.Text = storyboard!episode
 
storyboard.MoveFirst
 
Call sceneLOAD
 
Do While Not storyboard.EOF
scenecombo.AddItem storyboard!sceneid 'List all the sceneID items into the ComboBox
storyboard.MoveNext
Loop
' Close  Recordset
storyboard.close
 
' Clear the memory
Set storyboard = Nothing
 
End Sub
 

this is my form load coding.

Give in this way
Before opening the record set, give
Set storyboard = Nothing
storyboard.CursorLocation = adUseClient
storyboard.Open strYourQry, Connection, adOpenDynamic, adLockReadOnly

then you can get record count value

[indhu]

Give in this way
Before opening the record set, give
Set storyboard = Nothing
storyboard.CursorLocation = adUseClient
storyboard.Open strYourQry, Connection, adOpenDynamic, adLockReadOnly

then you can get record count value

Set storyboard = Nothing
storyboard.CursorLocation = adUseClient
storyboard.Open "select * from xyz table, Connection, adOpenDynamic, adLockReadOnly

runtime error 91
error in cursor location. object variable or with block not set

[hariharanmca]

Set storyboard = Nothing
storyboard.CursorLocation = adUseClient
storyboard.Open "select * from xyz table, Connection, adOpenDynamic, adLockReadOnly

runtime error 91
error in cursor location. object variable or with block not set

You have to create ‘NEW’ Instance
Just copy the function where you are using these lines.

[indhu]

Set storyboard = Nothing
storyboard.CursorLocation = adUseClient
storyboard.Open "select * from xyz table, Connection, adOpenDynamic, adLockReadOnly

runtime error 91
error in cursor location. object variable or with block not set

hari, if create a new instance of recordset only it showing me correct recordset.

Private Sub Form_Load()
myconnection
 
Set storyboard = Nothing
 
Set storyboard = New ADODB.Recordset
storyboard.CursorLocation = adUseClient
 
storyboard.Open "SELECT sequence, scenes, filename, panel, action, dialogue FROM panel WHERE scenes = '" & scenecombo.Text & "'", CON, adOpenDynamic, adLockReadOnly
 
Call sceneLOAD
 
Do While Not storyboard.EOF
scenecombo.AddItem storyboard!sceneid 'List all the sceneID items into the ComboBox
storyboard.MoveNext
Loop
 
' Close  Recordset
storyboard.close
 
' Clear the memory
Set storyboard = Nothing
 
End Sub

[hariharanmca]

hari, if create a new instance of recordset only it showing me correct recordset.

Private Sub Form_Load()
myconnection
 
Set storyboard = Nothing
 
Set storyboard = New ADODB.Recordset
storyboard.CursorLocation = adUseClient
 
storyboard.Open "SELECT sequence, scenes, filename, panel, action, dialogue FROM panel WHERE scenes = '" & scenecombo.Text & "'", CON, adOpenDynamic, adLockReadOnly
 
Call sceneLOAD
 
Do While Not storyboard.EOF
scenecombo.AddItem storyboard!sceneid 'List all the sceneID items into the ComboBox
storyboard.MoveNext
Loop
 
' Close  Recordset
storyboard.close
 
' Clear the memory
Set storyboard = Nothing
 
End Sub

Private Sub Form_Load()
myconnection
Dim storyboard as New ADODB.Recordset
Set storyboard = Nothing
storyboard.CursorLocation = adUseClient
storyboard.Open "SELECT sequence, scenes, filename, panel, action, dialogue FROM panel WHERE scenes = '" & scenecombo.Text & "'", CON, adOpenDynamic, adLockReadOnly

Call sceneLOAD

Do While Not storyboard.EOF
scenecombo.AddItem storyboard!sceneid 'List all the sceneID items into the ComboBox
storyboard.MoveNext
Loop

' Close Recordset
storyboard.close

' Clear the memory
Set storyboard = Nothing

End Sub

Set storyboard = Nothing ' in not mandatory if you create new instance
Use this Code which i changed

[indhu]

Private Sub Form_Load()
myconnection
Dim storyboard as New ADODB.Recordset
Set storyboard = Nothing
storyboard.CursorLocation = adUseClient
storyboard.Open "SELECT sequence, scenes, filename, panel, action, dialogue FROM panel WHERE scenes = '" & scenecombo.Text & "'", CON, adOpenDynamic, adLockReadOnly

Call sceneLOAD

Do While Not storyboard.EOF
scenecombo.AddItem storyboard!sceneid 'List all the sceneID items into the ComboBox
storyboard.MoveNext
Loop

' Close Recordset
storyboard.close

' Clear the memory
Set storyboard = Nothing

End Sub

Set storyboard = Nothing ' in not mandatory if you create new instance
Use this Code which i changed

nothing is loaded.

[hariharanmca]

nothing is loaded.

i am not get you ( Explain what is happen)

[indhu]

i am not get you ( Explain what is happen)

the form is not loaded with no data. even combo box.

i tried by calling a procedure also

Call tblLOAD
projecttxt.Text = storyboard!project ' error as item cannot be found in collection
i ve declared the query in tblload but still it showing error here.

[hariharanmca]

the form is not loaded with no data. even combo box.

i tried by calling a procedure also

Call tblLOAD
projecttxt.Text = storyboard!project ' error as item cannot be found in collection
i ve declared the query in tblload but still it showing error here.

JUST COPY THE CODE

are you sure all the fields that you specified in QRY are thre in Database

[indhu]

JUST COPY THE CODE

are you sure all the fields that you specified in QRY are thre in Database

yeah am sure. it has all the data.

anyway it calls the sceneload procedure. the data has to come na.
nothing is coming.

[hariharanmca]

yeah am sure. it has all the data.

anyway it calls the sceneload procedure. the data has to come na.
nothing is coming.

i am not asking about data,
asking about field and field names in table

[indhu]

i am not asking about data,
asking about field and field names in table

same field name.

first let me rectify this. y its going to second record. and if i click nextitem from combo not opening. if i click nextcommand button it moves. so it is happening like this.

Private Sub scenecombo_Click()
 
myquery = scenecombo.Text
 
Call sceneLOAD
 
If Not storyboard.EOF Then
storyboard.MoveNext
  If storyboard!sceneid = myquery Then
Call rLOAD
   sequcombo.Text = storyboard!sequence
   panel_txt.Text = storyboard!Panel
   action_txt.Text = storyboard!Action
   dialogue_txt.Text = storyboard!dialogue
   Image1.Picture = LoadPicture(App.Path & "\images\" & storyboard("filename"))
   noofpanel.Text = storyboard.RecordCount
End If
End If
End Sub

[hariharanmca]

same field name.

first let me rectify this. y its going to second record. and if i click nextitem from combo not opening. if i click nextcommand button it moves. so it is happening like this.

Private Sub scenecombo_Click()
 
myquery = scenecombo.Text
 
Call sceneLOAD
 
If Not storyboard.EOF Then
storyboard.MoveNext
  If storyboard!sceneid = myquery Then
Call rLOAD
   sequcombo.Text = storyboard!sequence
   panel_txt.Text = storyboard!Panel
   action_txt.Text = storyboard!Action
   dialogue_txt.Text = storyboard!dialogue
   Image1.Picture = LoadPicture(App.Path & "\images\" & storyboard("filename"))
   noofpanel.Text = storyboard.RecordCount
End If
End If
End Sub

If Not storyboard.EOF Then
storyboard.MoveNext
If storyboard!sceneid = myquery Then
Call rLOAD
sequcombo.Text = storyboard!sequence
panel_txt.Text = storyboard!Panel
action_txt.Text = storyboard!Action
dialogue_txt.Text = storyboard!dialogue
Image1.Picture = LoadPicture(App.Path & "\images\" & storyboard("filename"))
noofpanel.Text = storyboard.RecordCount
End If
End If


why you are giving storyboard.MoveNext at the begining of asigen values

[indhu]

If Not storyboard.EOF Then
storyboard.MoveNext
If storyboard!sceneid = myquery Then
Call rLOAD
sequcombo.Text = storyboard!sequence
panel_txt.Text = storyboard!Panel
action_txt.Text = storyboard!Action
dialogue_txt.Text = storyboard!dialogue
Image1.Picture = LoadPicture(App.Path & "\images\" & storyboard("filename"))
noofpanel.Text = storyboard.RecordCount
End If
End If


why you are giving storyboard.MoveNext at the begining of asigen values

Actualliy, am telling the recordset to move to next rec. but its starting from 2nd rec. i tried movefirst, it showing only first recordset.

[hariharanmca]

Actualliy, am telling the recordset to move to next rec. but its starting from 2nd rec. i tried movefirst, it showing only first recordset.

Of course, you have to view first record isit...

if you give movenext, then the recordset will move to the next record and then show you the second record

[indhu]

Of course, you have to view first record isit...

if you give movenext, then the recordset will move to the next record and then show you the second record

if i give movefirst, it shows only first recset. not the consecutive recset.

[hariharanmca]

if i give movefirst, it shows only first recset. not the consecutive recset.

No indhu, i think you are in the wrong way......

just explain your problem and then what you need.

[willakawill]

No indhu, i think you are in the wrong way......

just explain your problem and then what you need.

I warned you :)

[Killer42]

I warned you :)

My head hurts just trying to follow this thread.

However, allow me to risk one question...

indhu, why can't your "next" button simply do a MoveNext and (if necessary) load values into form controls? A While loop doesn't seem to make much sense in such a situation.

To get much more help here, I think you really need to start over and lay out the problem very clearly, giving precise details of what you have now (or had when the thread started) and what is wrong with it.

[indhu]

My head hurts just trying to follow this thread.

However, allow me to risk one question...

indhu, why can't your "next" button simply do a MoveNext and (if necessary) load values into form controls? A While loop doesn't seem to make much sense in such a situation.

To get much more help here, I think you really need to start over and lay out the problem very clearly, giving precise details of what you have now (or had when the thread started) and what is wrong with it.

i want to select sceneid from combo. then other field has to populate.
sceneid frm scenetbl
otherfields frm paneltbl. sceneid is fk in paneltbl
thats it. sorry guys.

[hariharanmca]

I warned you :)

Warning doesn’t make any sense, because I think Indhu is very new to VB that’s why she/he can’t explain what his/her problem; let me to follow him/her way to solve the problem.