Help with code

I'm creating a database that when the user selects the item in the combo box
and clicks the command button the information about that certain item is
displayed in their tables...

This is my code for where I'm have troubles:

ElseIf cbChangeView.value = "Application" Then
'///////////////////////////////////////////
'SetDefaults() = populates the rest of the table
'Table# = Name of the displayed table
Call SetDefaults(1, "Application", True)
Table1 = "Table.Application"
If IsNull(Me.cbName.value) Then
Me.cbName.value = ""
End If

'Sets the query statements for all of the tables used
Query1 = "SELECT * FROM Application WHERE Application.[Name]='" +
cbName.value + "';"
Query2 = "SELECT JVM.* FROM JVM, ApplicationJVM, Application WHERE " _
& "Application.[ID] = ApplicationJVM.[AppID] AND
ApplicationJVM.[JVMID]" _
& "= JVM.[ID] AND Application.[Name]='" + cbName.value + "';"
Query3 = "SELECT * FROM ApplicationJVM,Application WHERE Application.[ID]" _
& "= ApplicationJVM.[AppID] AND Application.[Name]='" +
cbName.value + "';"
Query4 = "SELECT Cluster.* FROM Cluster INNER JOIN (Application INNER JOIN
ApplicationCluster ON Application.ID = ApplicationCluster.AppID) ON
Cluster.ID = ApplicationCluster.CID WHERE " _
& " (((Application.ID)=[Application].[ID])) AND Application.[Name] = '" +
cbName.value + "';"

Query4 is what is not working, nothing is properly displayed. For query4
it's connected to the tables cluster, application, and applicationcluster.
Applicationcluster holds the primary keys for both the cluster and
application and connects them if that makes sense.

sorry this is what query4 says:

Query4 = "SELECT Cluster.* FROM Cluster INNER JOIN (Application INNER JOIN
ApplicationCluster ON Application.ID = ApplicationCluster.AppID) ON
Cluster.ID = ApplicationCluster.CID WHERE " _
& " (((Application.ID)=[Application].[ID])) AND Application.[Name] = '" +
cbName.value + "';"

"short" wrote:

> I'm creating a database that when the user selects the item in the combo box
> and clicks the command button the information about that certain item is
> displayed in their tables...
>
> This is my code for where I'm have troubles:
>
> ElseIf cbChangeView.value = "Application" Then
> '///////////////////////////////////////////
> 'SetDefaults() = populates the rest of the table
> 'Table# = Name of the displayed table
> Call SetDefaults(1, "Application", True)
> Table1 = "Table.Application"
> If IsNull(Me.cbName.value) Then
> Me.cbName.value = ""
> End If
>
> 'Sets the query statements for all of the tables used
> Query1 = "SELECT * FROM Application WHERE Application.[Name]='" +
> cbName.value + "';"
> Query2 = "SELECT JVM.* FROM JVM, ApplicationJVM, Application WHERE " _
> & "Application.[ID] = ApplicationJVM.[AppID] AND
> ApplicationJVM.[JVMID]" _
> & "= JVM.[ID] AND Application.[Name]='" + cbName.value + "';"
> Query3 = "SELECT * FROM ApplicationJVM,Application WHERE Application.[ID]" _
> & "= ApplicationJVM.[AppID] AND Application.[Name]='" +
> cbName.value + "';"
> Query4 = "SELECT Cluster.* FROM Cluster INNER JOIN (Application INNER JOIN
> ApplicationCluster ON Application.ID = ApplicationCluster.AppID) ON
> Cluster.ID = ApplicationCluster.CID WHERE " _
> & " (((Application.ID)=[Application].[ID])) AND Application.[Name] = '" +
> cbName.value + "';"
>
> Query4 is what is not working, nothing is properly displayed. For query4
> it's connected to the tables cluster, application, and applicationcluster.
> Applicationcluster holds the primary keys for both the cluster and
> application and connects them if that makes sense.

Hi short,
I don't understand the meaning of this part of query4

WHERE " _
& " (((Application.ID)=[Application].[ID]))

is this correct?

Paolo

"short" wrote:

> sorry this is what query4 says:
>
> Query4 = "SELECT Cluster.* FROM Cluster INNER JOIN (Application INNER JOIN
> ApplicationCluster ON Application.ID = ApplicationCluster.AppID) ON
> Cluster.ID = ApplicationCluster.CID WHERE " _
> & " (((Application.ID)=[Application].[ID])) AND Application.[Name] = '" +
> cbName.value + "';"
>
> "short" wrote:
>
> > I'm creating a database that when the user selects the item in the combo box
> > and clicks the command button the information about that certain item is
> > displayed in their tables...
> >
> > This is my code for where I'm have troubles:
> >
> > ElseIf cbChangeView.value = "Application" Then
> > '///////////////////////////////////////////
> > 'SetDefaults() = populates the rest of the table
> > 'Table# = Name of the displayed table
> > Call SetDefaults(1, "Application", True)
> > Table1 = "Table.Application"
> > If IsNull(Me.cbName.value) Then
> > Me.cbName.value = ""
> > End If
> >
> > 'Sets the query statements for all of the tables used
> > Query1 = "SELECT * FROM Application WHERE Application.[Name]='" +
> > cbName.value + "';"
> > Query2 = "SELECT JVM.* FROM JVM, ApplicationJVM, Application WHERE " _
> > & "Application.[ID] = ApplicationJVM.[AppID] AND
> > ApplicationJVM.[JVMID]" _
> > & "= JVM.[ID] AND Application.[Name]='" + cbName.value + "';"
> > Query3 = "SELECT * FROM ApplicationJVM,Application WHERE Application.[ID]" _
> > & "= ApplicationJVM.[AppID] AND Application.[Name]='" +
> > cbName.value + "';"
> > Query4 = "SELECT Cluster.* FROM Cluster INNER JOIN (Application INNER JOIN
> > ApplicationCluster ON Application.ID = ApplicationCluster.AppID) ON
> > Cluster.ID = ApplicationCluster.CID WHERE " _
> > & " (((Application.ID)=[Application].[ID])) AND Application.[Name] = '" +
> > cbName.value + "';"
> >
> > Query4 is what is not working, nothing is properly displayed. For query4
> > it's connected to the tables cluster, application, and applicationcluster.
> > Applicationcluster holds the primary keys for both the cluster and
> > application and connects them if that makes sense.

I have now chaged it to:
Query4 = "SELECT Cluster.* FROM Cluster, ApplicationCluster, Application
WHERE Application.[ID] = ApplicationCluster.[AppID] AND
ApplicationCluster.[CID]= Cluster.[ID] AND Application.[Name]= '" +
cbName.value + "';"

it's still not working and I'm thinking it might have to do with the add
form I have..

which is this:

'/////////////////////////////////////////////////////////////////
ElseIf Forms!UpdateInformation.Form!cbChangeView.value = "Application" Then
'/////////////////////////////////////////////////////////////////
'this is the name of the server
name = Forms!UpdateInformation.Form!cbName.value

Set db = CurrentDb

'this gets the server table ID
strSQL = "SELECT * FROM Application WHERE " + "Application.[Name]='" +
name + "';"
Set rs2 = db.OpenRecordset(strSQL)
'This is the server ID
If rs2.RecordCount > 0 Then
intResult = rs2("ID")
Else
intResult = 0
End If
'this gets everything in the table and sets them to a record set
Set cn = CurrentProject.Connection
Set rs = cn.Execute("Select * From " + Me.lbOptionTitle.Caption)

'sets everything on the form to blank
Call CleanUpItems

'populates the form with the values
For i = 0 To rs.Fields.Count - 1 Step 1
'gets the field name
name = rs.Fields(i).name + ""
'makes the field name visible
Call FillInItems(i, name, True)


If i < 4 Then
'check to see if there should be a lookup button
Call FindIDs(name, i)
'search "name" == "_ID_Table"
' if a name matches the id table then
' hide the text box, and make the button visible
End If

Next i



'Searches for a foreign key and auto populates it
Call FKpop("Application.ID", intResult)
Call FKpop("CID", intResult)



"Paolo" wrote:

> Hi short,
> I don't understand the meaning of this part of query4
>
> WHERE " _
> & " (((Application.ID)=[Application].[ID]))
>
> is this correct?
>
> Paolo
>
> "short" wrote:
>
> > sorry this is what query4 says:
> >
> > Query4 = "SELECT Cluster.* FROM Cluster INNER JOIN (Application INNER JOIN
> > ApplicationCluster ON Application.ID = ApplicationCluster.AppID) ON
> > Cluster.ID = ApplicationCluster.CID WHERE " _
> > & " (((Application.ID)=[Application].[ID])) AND Application.[Name] = '" +
> > cbName.value + "';"
> >
> > "short" wrote:
> >
> > > I'm creating a database that when the user selects the item in the combo box
> > > and clicks the command button the information about that certain item is
> > > displayed in their tables...
> > >
> > > This is my code for where I'm have troubles:
> > >
> > > ElseIf cbChangeView.value = "Application" Then
> > > '///////////////////////////////////////////
> > > 'SetDefaults() = populates the rest of the table
> > > 'Table# = Name of the displayed table
> > > Call SetDefaults(1, "Application", True)
> > > Table1 = "Table.Application"
> > > If IsNull(Me.cbName.value) Then
> > > Me.cbName.value = ""
> > > End If
> > >
> > > 'Sets the query statements for all of the tables used
> > > Query1 = "SELECT * FROM Application WHERE Application.[Name]='" +
> > > cbName.value + "';"
> > > Query2 = "SELECT JVM.* FROM JVM, ApplicationJVM, Application WHERE " _
> > > & "Application.[ID] = ApplicationJVM.[AppID] AND
> > > ApplicationJVM.[JVMID]" _
> > > & "= JVM.[ID] AND Application.[Name]='" + cbName.value + "';"
> > > Query3 = "SELECT * FROM ApplicationJVM,Application WHERE Application.[ID]" _
> > > & "= ApplicationJVM.[AppID] AND Application.[Name]='" +
> > > cbName.value + "';"
> > > Query4 = "SELECT Cluster.* FROM Cluster INNER JOIN (Application INNER JOIN
> > > ApplicationCluster ON Application.ID = ApplicationCluster.AppID) ON
> > > Cluster.ID = ApplicationCluster.CID WHERE " _
> > > & " (((Application.ID)=[Application].[ID])) AND Application.[Name] = '" +
> > > cbName.value + "';"
> > >
> > > Query4 is what is not working, nothing is properly displayed. For query4
> > > it's connected to the tables cluster, application, and applicationcluster.
> > > Applicationcluster holds the primary keys for both the cluster and
> > > application and connects them if that makes sense.