G
Goobz
Okay all.. Here's my deal... I have tried and tried and tried to get
these to work... I'm going to post what I have done, and what I am
trying to do, and see if someone can help me figure crap out...
tblBuilding - PK is BuildingIDNum - Autonumber
tblBuildingZones - FK is BuildingIDNum via SELECT DISTINCTROW
Building.BuildingIDNum, Building.Name FROM Building ORDER BY
Building.BuildingIDNum;
cboBuilding - This has Building 1, Building 2, etc. The field
displaying this info is "Name" in tblBuilding.
cboBuildingZones - This has different "zones" for Building 1,
Building 2, etc., that depending on which building is chose in
cboBuilding, this will populate with the "zone" - First Floor, Second
Floor, Mezzanine, etc. The field displaying this info is
"InBuildingLocation" in tblBuildingZones. However, the field I need to
write in the underlying form table is "DN.911Zone".
I wrote the following code in AfterUpdate of the Building ID, and I'm
getting a highlighted yellow on "End Sub" as soon as I try and
populate my cboBuildingZones box.
Private Sub cboBuilding_AfterUpdate()
With Me![cboZoneID]
If IsNull(Me!cboBuilding) Then
.RowSource = ""
Else
.RowSource = "SELECT [InBuildingLocation] " & _
"FROM tblBuildingZones " & _
"WHERE [BuildingIDNum]=" & Me!cboBuilding
End If
Call .Requery
End With
End Sub
I hope someone can help me out either by fixing my code, or taking the
2 minutes to write what probably should be a really stupid quick entry
that I just can't get my hands around!
Thanx in advance!
these to work... I'm going to post what I have done, and what I am
trying to do, and see if someone can help me figure crap out...
tblBuilding - PK is BuildingIDNum - Autonumber
tblBuildingZones - FK is BuildingIDNum via SELECT DISTINCTROW
Building.BuildingIDNum, Building.Name FROM Building ORDER BY
Building.BuildingIDNum;
cboBuilding - This has Building 1, Building 2, etc. The field
displaying this info is "Name" in tblBuilding.
cboBuildingZones - This has different "zones" for Building 1,
Building 2, etc., that depending on which building is chose in
cboBuilding, this will populate with the "zone" - First Floor, Second
Floor, Mezzanine, etc. The field displaying this info is
"InBuildingLocation" in tblBuildingZones. However, the field I need to
write in the underlying form table is "DN.911Zone".
I wrote the following code in AfterUpdate of the Building ID, and I'm
getting a highlighted yellow on "End Sub" as soon as I try and
populate my cboBuildingZones box.
Private Sub cboBuilding_AfterUpdate()
With Me![cboZoneID]
If IsNull(Me!cboBuilding) Then
.RowSource = ""
Else
.RowSource = "SELECT [InBuildingLocation] " & _
"FROM tblBuildingZones " & _
"WHERE [BuildingIDNum]=" & Me!cboBuilding
End If
Call .Requery
End With
End Sub
I hope someone can help me out either by fixing my code, or taking the
2 minutes to write what probably should be a really stupid quick entry
that I just can't get my hands around!
Thanx in advance!