Form Folly

yessir

Saved By Grace
Local time
Today, 19:58
Joined
May 29, 2003
Messages
349
Hey,

I have a form (1 that I know about n3way) which I made NO changes to but during an update 1 aspect of the form failed to work on the other computers but , yet, works on mine.

The issue is that there are 3 dropdowns. when the first is populated, the next is populated based on the selection in the first. Then the 3rd is populated based on the selection in the 2nd. When pushed to production the 3rd dropdown no longer populates on other computers (at least one).

When I reverted back it works again on all.

NE Ideas (code below for populating dropdowns)

Thanks

Code:
Private Sub Building_AfterUpdate()
    Dim dbs As Database
    Dim rst As Recordset
    Dim strSQL, SwitchPrefixText As String
    
    If Not IsNull(Me!Building) Then
        Set dbs = CurrentDb()
        strSQL = "SELECT SwitchBC from Buildings where BuildingID = " & Me!Building & ";"
        Set rst = dbs.OpenRecordset(strSQL)
        SwitchPrefixText = rst!SwitchBC
        rst.Close
        dbs.Close
    End If
End Sub

Private Sub Closet_AfterUpdate()
    Me.Switch.RowSource = "select * from [List Switches] where ClosetID = " & Forms![Find Network Devices]!Closet
    Me!Switch = Null
    Me!Switch.Requery
End Sub
 

Users who are viewing this thread

Back
Top Bottom