form design problem

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

DianeA - 22 Mar 2007 21:17 GMT

I'm fairly new to form design and having difficulty extracting data from one
table to include in another table. Table1 has field "software" and
"version". Table2 has "computer" and "date of installation" and "software"
and "version". I've created a form with Table2's fields... I've selected a
combo box to pull table1's fields and bound the [table1].software to
[table2].software. This appears to work fine. But now I want to also take
the table1.version field for the selected record in the combo box and bind it
to [table2].version. Maybe i'm making this more complicated then it should
be. I can't seem to get the version number from Table1. Can someone help,
pls.

Reply to this Message

Carl Rapson - 23 Mar 2007 15:40 GMT

The RowSource for the version combo box should be something like:

SELECT [version] FROM [Table 1] WHERE [software]='" & cboSoftware & "'"

Set this in the AfterUpdate event of the software combo box (which I've
assumed is named cboSoftware). This way, when the software is selected the
version combo box will automatically be loaded with valid version values.

Carl Rapson

> I'm fairly new to form design and having difficulty extracting data from
> one
[quoted text clipped - 13 lines]
> help,
> pls.

Reply to this Message

DianeA - 23 Mar 2007 20:06 GMT

Thanks carl this is helpful... but can you also give me an example of how the
afterupdate statement might look?

> The RowSource for the version combo box should be something like:
>
[quoted text clipped - 23 lines]
> > help,
> > pls.

Reply to this Message

Carl Rapson - 26 Mar 2007 15:56 GMT

Private Sub cboSoftware_AfterUpdate
If Not IsNull(Me.cboSoftware) Then
Me.cboVersion.RowSource = "SELECT [version] FROM [Table 1] WHERE
[software]='" & Me.cboSoftware & "'"
End If
End Sub

The RowSource line should be all on one line. Be sure to use your own
control, table and field names.

Carl Rapson

> Thanks carl this is helpful... but can you also give me an example of how
> the
[quoted text clipped - 31 lines]
>> > help,
>> > pls.

Reply to this Message

DianeA - 27 Mar 2007 23:58 GMT

Thanks Carl... this works like a charm so far

> Private Sub cboSoftware_AfterUpdate
> If Not IsNull(Me.cboSoftware) Then
[quoted text clipped - 43 lines]
> >> > help,
> >> > pls.

Reply to this Message