move next commands

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

[hariharanmca]

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.

Dim conn As New ADODB.Connection
Dim rstRecordSet As New ADODB.Recordset
Dim strSql As String

Private Sub Combo1_Change()
    Combo1_Click
End Sub

Private Sub Combo1_Click()
    strSql = ""
    strSql = "select field0,field1,field2,field3 from tblOtherTable where TableId = " & Combo1.ItemData(Combo1.ListIndex)
    Set rstRecordSet = Nothing
    rstRecordSet.CursorLocation = adUseClient
    rstRecordSet.Open strSql, conn, adOpenDynamic, adLockOptimistic
    If rstRecordSet.RecordCount > 0 Then
        Text1.Text = rstRecordSet.Fields("field0")
        Text2.Text = rstRecordSet.Fields("field1")
        Text3.Text = rstRecordSet.Fields("field2")
        Text4.Text = rstRecordSet.Fields("field3")
    End If
    Set rstRecordSet = Nothing
End Sub

Private Sub Form_Load()
    LoadComboDetail
End Sub

Private Sub LoadComboDetail()
    Dim i As Integer
    strSql = ""
    strSql = "select TableId,TableFetchDetail from tblTableName"
    Set rstRecordSet = Nothing
    rstRecordSet.CursorLocation = adUseClient
    rstRecordSet.Open strSql, conn, adOpenDynamic, adLockOptimistic
    If rstRecordSet.RecordCount > 0 Then
        For i = 1 To rstRecordSet.RecordCount
            Combo1.AddItem rstRecordSet("TableFetchDetail")
            Combo1.ItemData(Combo1.NewIndex) = rstRecordSet("TableId")
            rstRecordSet.MoveNext
        Next i
    End If
    Set rstRecordSet = Nothing
End Sub

Just go through this code, i think this is what you are looking for.......

[indhu]

Just go through this code, i think this is what you are looking for.......

yeah, thats what i am trying to do, thanks.

type mismatch error

scenecombo.ItemData(scenecombo.NewIndex) = rstRecordSet("sceneid")

[hariharanmca]

yeah, thats what i am trying to do, thanks.

type mismatch error

scenecombo.ItemData(scenecombo.NewIndex) = rstRecordSet("sceneid")

are you sure value of rstRecordSet("s ceneid") is numeric

[willakawill]

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.

This was the original warning:
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
As we are now on page 6 with no real end in sight I think my warning makes perfect sense. Glad you have the stamina to stay with it. In the meantime I have helped more than a hundred others which I consider a better use of my time.

[zura]

i need help on Ms Access Form..
i have 3 table and i need to join this 3 table to create a form..
I created the form using wizard but i cant add any new record to the form..

If i create the form saperately then only i can add the new rocords..

So can anyone please help me out on this?

Thank you in advance..

[indhu]

i need help on Ms Access Form..
i have 3 table and i need to join this 3 table to create a form..
I created the form using wizard but i cant add any new record to the form..

If i create the form saperately then only i can add the new rocords..

So can anyone please help me out on this?

Thank you in advance..

Use relationship for those 3 tables and try using wizard to create ur form..