Using a list box

[THEAF]

OK.
Im using Access and VB. I have data on two tables in access that I want to show on vb. 1 text box will show 1 data from 1table and same with the other table. i've opened both tables on vb using the recordset and the if not...EOF Then...MoveNext on the form load.
i'v put the code behind the listbox to show the data form the seperate tables in the textboxes but it still won't work. Could anyone please tell me what in missing. Please give all the solutions you have.

THANK YOU 4 ALL ANSWERS

[debasisdas]

OK.
i'v put the code behind the listbox to show the data form the seperate tables in the textboxes but it still won't work. Could anyone please tell me what in missing. Please give all the solutions you have.

THANK YOU 4 ALL ANSWERS

I have all the solutions for you ,but can you kindly clarify this i'v put the code behind the listbox to show the data form the seperate tables in the textboxes

if u can post it clearly then it will be easier to understand and solve your problem.

[Killer42]

Ignore me - just registering an interest in this thread.

[THEAF]

OK. What I meant was...
I'm doing a school project. I'm making a system software for an internet cafe. For this I'm using Visual basic and Microsoft Access. I'm using this code:

Private Sub Form_Load()
 
    Set dbMyDb = OpenDatabase("C:\Documents and Settings\Shahidul\My Documents\Computing Project\Database.mdb")
    Set rsDvd = dbMyDb.OpenRecordset("DVD", dbOpenDynaset)
 
If Not rsDvd.EOF Then rsDvd.MoveFirst
Do While Not rsDvd.EOF
    lstdvd.AddItem rsDvd!DVD_no
    lstdvd.List(lstdvd.NewIndex) = rsDvd!Name
    rsDvd.MoveNext
Loop
 
    Set rsMember = dbMyDb.OpenRecordset("Member", dbOpenDynaset)
 
If Not rsMember.EOF Then rsMember.MoveFirst
 
Do Until rsMember.EOF
    rsMember.MoveNext
Loop
 
 
End Sub
 
Private Sub lstdvd_Click()
 
Set rsDvd = dbMyDb.OpenRecordset("DVD", dbOpenDynaset)
 
    txtdvdno.Text = rsDvd!DVD_no
    txtname.Text = rsDvd!Name
    txtTakendate.Text = rsDvd!Date_taken
    txtReturndate.Text = rsDvd!Date_return
    txtrent.Text = rsDvd!Renting_cost
    txtbuy.Text = rsDvd!Buying_cost
    txtmemberid.Text = rsMember!Member_id
    txtFname.Text = rsMember!First_name
    txtLname.Text = rsMember!Last_name
End Sub

So when I click on the list box selecting one data should be taken from the DVD table and show in the specified box and data from the Member table should do the same in their textboxes. But I get an error NO CURRENT RECORD or some other error after I've tried to fix it. Have you got any solutions for this please?

[Killer42]

Can you tell us exactly where in the code the error occurs?

[Killer42]

Another question. At lines 17 to 19, why are you reading all of the member records, if you're not going to do anything with them?

[Killer42]

Hm... it seems to me that in the lstdvd_Click routine, when you try to access anything from rsMember, you have already (as mentioned in my prior post) moved past the end of this recordset, and so will produce an error.

[pureenhanoi]

OK. What I meant was...
I'm doing a school project. I'm making a system software for an internet cafe. For this I'm using Visual basic and Microsoft Access. I'm using this code:

Private Sub Form_Load()
 
    Set dbMyDb = OpenDatabase("C:\Documents and Settings\Shahidul\My Documents\Computing Project\Database.mdb")
    Set rsDvd = dbMyDb.OpenRecordset("DVD", dbOpenDynaset)
 
If Not rsDvd.EOF Then rsDvd.MoveFirst
Do While Not rsDvd.EOF
    lstdvd.AddItem rsDvd!DVD_no
    lstdvd.List(lstdvd.NewIndex) = rsDvd!Name
    rsDvd.MoveNext
Loop
 
    Set rsMember = dbMyDb.OpenRecordset("Member", dbOpenDynaset)
 
If Not rsMember.EOF Then rsMember.MoveFirst
 
Do Until rsMember.EOF
    rsMember.MoveNext
Loop
 
 
End Sub
 
Private Sub lstdvd_Click()
 
Set rsDvd = dbMyDb.OpenRecordset("DVD", dbOpenDynaset)
 
    txtdvdno.Text = rsDvd!DVD_no
    txtname.Text = rsDvd!Name
    txtTakendate.Text = rsDvd!Date_taken
    txtReturndate.Text = rsDvd!Date_return
    txtrent.Text = rsDvd!Renting_cost
    txtbuy.Text = rsDvd!Buying_cost
    txtmemberid.Text = rsMember!Member_id
    txtFname.Text = rsMember!First_name
    txtLname.Text = rsMember!Last_name
End Sub
 

So when I click on the list box selecting one data should be taken from the DVD table and show in the specified box and data from the Member table should do the same in their textboxes. But I get an error NO CURRENT RECORD or some other error after I've tried to fix it. Have you got any solutions for this please?

let see

    Set rsDvd = dbMyDb.OpenRecordset("DVD", dbOpenDynaset)
...............
   Set rsMember = dbMyDb.OpenRecordset("Member", dbOpenDynaset)
 

did u mean that DVD and Member are tables?

Set rsMember = dbMyDb.OpenRecordset("Member", dbOpenDynaset)    
If Not rsMember.EOF Then rsMember.MoveFirst
Do Until rsMember.EOF
    rsMember.MoveNext
Loop
 

what does this code do?

Private Sub lstdvd_Click()
Set rsDvd = dbMyDb.OpenRecordset("DVD", dbOpenDynaset)
    txtdvdno.Text = rsDvd!DVD_no
    txtname.Text = rsDvd!Name
    txtTakendate.Text = rsDvd!Date_taken
    txtReturndate.Text = rsDvd!Date_return
    txtrent.Text = rsDvd!Renting_cost
    txtbuy.Text = rsDvd!Buying_cost
    txtmemberid.Text = rsMember!Member_id
    txtFname.Text = rsMember!First_name
    txtLname.Text = rsMember!Last_name
End Sub
 

here, u havent open rsMember yet. So, u cannot access to its rows. If u declare rsMember as a local varriable. It may havent been dispose at this possition but u moved its cursor to EOF at Do...Loop.
i dont know the relation between DVD and Member table . If it has , u should make a Query to select datas on these two tables first. And then u can open this Query (as the same as open the table) to get datas. Otherwise, u donot have reason to get datas of two table at the same possition.
if it's not a private, show me ur database structure and let me know what do u need for this program.