importing table, multiple list boxes with subform

[mikevds]

I am willing to email you my db. I tried emailing a winzip but it exceeded the limit.
can I email you the winzip, so you can see what I am talking about and post the thread on this website.



Code:

Private Sub List12_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Hymnal ID] = " & Str(Nz(Me![List12], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Reply With Quote
Access Tables

Table: Name of Hymnal

Fields
Hymnal ID
Name of Hymnal

Table
Hymnal Song Info.

Fields
Name of Song
Hymnal Song
Hymnal Number
Hymnal Name
Composer Name
Arranger Name
Arranger Number
Author Number
Author and Key
Scripture
Key
Tune
Meter
Media Type

The Purpose is I want to have 2 populated list boxes
The other one from Hymnal Song Info. Table, Name of Song Field

One from Name of Hymnal Table, Name of Hymnal Field

Populated Box 1- click on Name of Song

Populated Box 2 click on Name of Hymnal, only displays hymnals from that song.
sql

Code:

Private Sub List12_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Hymnal ID] = " & Str(Nz(Me![List12], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Reply With Quote

I am trying to import my table the one I created with all of my records

tblehymnalsonginfo excel.

I try copying and pasting my records to tblehymnalsonginfo.

I try deleting the old field I have for idnumber since I have hymnal ID and it says it must be part of the relationships.

There are no relationships in the window and it still won't let me delete the field.

Also then I copy and paste the data from one table to another

Also the listbox name of hymnal is not populating with the subform tblehymnalsonginfosubform.

So everytime I click on the listbox it's not populating right.

Please help I would like to eventually populate the author and key with what Hymnals and songs they are in with 2 list boxes.

Thanks,

 

[ajetrumpet]

One comment about this code...

Private Sub List12_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Hymnal ID] = " & Str(Nz(Me![List12], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

...It is found on almost every page of the internet, but weather or not people understand what it does is a different story. What were your intentions with using it?? What is it supposed to do (other than find the first record instance within the criterion)?

Populated Box 1- click on Name of Song

Populated Box 2 click on Name of Hymnal, only displays hymnals from that song.
sql

I am trying to import my table the one I created with all of my records

tblehymnalsonginfo excel.

Use the import wizard for this.

I try deleting the old field I have for idnumber since I have hymnal ID and it says it must be part of the relationships. There are no relationships in the window and it still won't let me delete the field.

Just because there are no relationships showing in the relationship window does not mean they are not present. If the table icons are not showing up there, right click on the blank window and specify "show table" a few times.

Also the listbox name of hymnal is not populating with the subform tblehymnalsonginfosubform.

Elaborate on this...

Cascading listboxes, even in subforms, perform exactly the way combo boxes do that are described in this FAQ.

 

[qdogfball]

Mike,

To Zip the file...

Try Tools, Database Utilities , Compact and repair database.

Then try to zip it. That will shrink the database down to a smaller size.

From your post:

"Populated Box 1- click on Name of Song

Populated Box 2 click on Name of Hymnal, only displays hymnals from that song."

It looks to me that you want to have a list of all the songs in all the hymnals.

Then you will click on one song and all the hymnals that have that song in them will popup into a second list(or subform)?

 

[qdogfball]

Mike,

Were you able to compact the DB?

Will it upload to the forum now?

If not send it to me at qdogfball@yahoo.com and I will try to help you out.