A combo box inquiry

[Louly]

Hi everybody,

I have "cmb A" and "cmb B", "cmb A" lists tables names and "cmb B"
should list the fields of the table name selected in "cmb A". I've
tried to implement it but I it doesn't work! Any help would be
appreciated.

Thanks for your time.

Lou

[luanhoxung]

find the answer here:
http://www.mvps.org/access/forms/frm0028.htm

[Louly]

luanhoxung wrote:

find the answer here:
http://www.mvps.org/access/forms/frm0028.htm

Thanks for your quick reply.

I've tried it but it didn't work also. I think the problem is that the
system doesn't understand that what's selected in the "cmb A" is a
table and what we need for "cmb B" is the list of fields in this table.
I still need help with this.

[Lyle Fairfield]

Louly wrote:

luanhoxung wrote:

find the answer here:
http://www.mvps.org/access/forms/frm0028.htm

Thanks for your quick reply.

I've tried it but it didn't work also. I think the problem is that the
system doesn't understand that what's selected in the "cmb A" is a
table and what we need for "cmb B" is the list of fields in this table.
I still need help with this.

Perhaps ADO can help here.

This more or less air code works for me:

Private Sub Combo0_AfterUpdate()
With Combo1
.Value = ""
.RowSource = Combo0.Value
End With
End Sub

Private Sub Form_Open(Cancel As Integer)
Dim f As ADODB.Field
Dim r As ADODB.Recordset
Set r = CurrentProject.Connection.OpenSchema(adSchemaTable s)
Set f = r.Fields("TABLE_NAME")
Combo1.RowSourceType = "Field List"
With Combo0
.RowSourceType = "Value List"
While Not r.EOF
.RowSource = .RowSource & f.Value & ","
r.MoveNext
Wend
End With
End Sub

Combo0 is tables, Combo1 is fields. Their rowsource in the property
sheet is left blank for both.

Requieres Access>= 2000.

[Louly]

Forgive my ignorance. Here's what I did to solve this problem, and I
want somebody to explain to me why it didn't work:

First of all I created a table with the list of tables that are to be
used and called it with a query from "Cmb A". Second in "Cmb B",
RowSourceType = Field List, and RowSource cmbA.column(1).

Thanks for your time.

Lou

[Lyle Fairfield]

Louly wrote:

Forgive my ignorance. Here's what I did to solve this problem, and I
want somebody to explain to me why it didn't work:

First of all I created a table with the list of tables that are to be
used and called it with a query from "Cmb A". Second in "Cmb B",
RowSourceType = Field List, and RowSource cmbA.column(1).

1. Some event has to tell Cmb B to update/refresh its list; it seems
you did not provide for this;
2. Access Forms are involved; Access forms are complex and sometimes
their workings are arcane; I find it sufficiently challenging to keep
up with the myriad peculiarities of things that do work; probably you
have not phrased the Row Source property in a manner that Access
understands; TTBOMK this can be:
a literal list;
a table name;
a query name;
a UDF, prefaced by "="
a BIF, prefeaced by "=";
it could be something as simple the column index you are using.

You have been given a working solution. If you insist on doing the
thing your way, then
Good Luck.

[Louly]

Lyle, thank you so much for your patience.

I copied and customized your solution and I pasted it here:

Private Sub Alarm_Job_AfterUpdate()
With Alarm_Count_Date
.Value = ""
.RowSource = Alarm_Job.Value
End With
End Sub
Private Sub Form_Open(Cancel As Integer)
Dim f As ADODB.Field
Dim r As ADODB.Recordset
Set r = CurrentProject.Connection.OpenSchema(adSchemaTable s)

Set f = r.Fields("TabNames")
Alarm_Count_Date.RowSourceType = "Field List"
With Alarm_Job
.RowSourceType = "Value List" 'I think this should be
"Table/Query" because
'it lists
the tables names from the
'table
called "TabNames"
While Not r.EOF
.RowSource = .RowSource & f.Value & ","
r.MoveNext
Wend
End With
End Sub

*Alarm_Job --Combo0 --Table cmb
*Alarm_Count_Date --Combo1 --Field cmb

Again thank you so much.
And sorry if I ask too much!
Lou

[Bob Quintal]

"Louly" <mi*****@gmail.comwrote in
news:11**********************@m73g2000cwd.googlegr oups.com:

Forgive my ignorance. Here's what I did to solve this
problem, and I want somebody to explain to me why it didn't
work:

First of all I created a table with the list of tables that
are to be used and called it with a query from "Cmb A".
Second in "Cmb B", RowSourceType = Field List, and RowSource
cmbA.column(1).

Thanks for your time.

Lou

You need to requery the "cmb B" rowsource in the "Cmb A"AfterUpdate
event.

--
Bob Quintal

PA is y I've altered my email address.

--
Posted via a free Usenet account from http://www.teranews.com