I have this code for my collection DB that when you select an option from a drop-down menu it checks the correct box needed and disables all other boxes. The issue is that if I move to other records or get out of the form and come back in, the options are no longer disabled...why? Here's the code I used...
'---------------------------------------------------------------------------'
'CHECKBOX SELECT USING CONSOLE DROP-DOWN MENU'
'---------------------------------------------------------------------------'
Private Sub ConsoleName_AfterUpdate()
If Me.ConsoleName = "NES" Then
Me.Cartridge = True
Me.Cartridge.Enabled = True
Me.Original30.Enabled = True
Me.Disc = False
Me.Disc.Enabled = False
Me.HuCard = False
Me.HuCard.Enabled = False
Me.OtherBox = False
Me.OtherBox.Enabled = False
Me.CD_i = False
Me.CD_i.Enabled = False
Me.ISO = False
Me.ISO.Enabled = False
Me.WiiWare = False
Me.WiiWare.Enabled = False
Me.VirtualConsole = False
Me.VirtualConsole.Enabled = False
Me.SEGACD = False
Me.SEGACD.Enabled = False
Me.SEGA32X = False
Me.SEGA32X.Enabled = False
Else
If Me.ConsoleName = "SNES" Then
Me.Cartridge = True
Me.Cartridge.Enabled = True
Me.Disc = False
Me.Disc.Enabled = False
Me.HuCard = False
Me.HuCard.Enabled = False
Me.OtherBox = False
Me.OtherBox.Enabled = False
Me.CD_i = False
Me.CD_i.Enabled = False
Me.ISO = False
Me.ISO.Enabled = False
Me.WiiWare = False
Me.WiiWare.Enabled = False
Me.VirtualConsole = False
Me.VirtualConsole.Enabled = False
Me.SEGACD = False
Me.SEGACD.Enabled = False
Me.SEGA32X = False
Me.SEGA32X.Enabled = False
Me.Original30.Enabled = False
Else
If Me.ConsoleName = "Genesis" Then
Me.Cartridge = True
Me.Cartridge.Enabled = True
Me.SEGA32X.Enabled = True
Me.SEGACD.Enabled = True
Me.Disc = False
Me.Disc.Enabled = False
Me.HuCard = False
Me.HuCard.Enabled = False
Me.OtherBox = False
Me.OtherBox.Enabled = False
Me.CD_i = False
Me.CD_i.Enabled = False
Me.ISO = False
Me.ISO.Enabled = False
Me.WiiWare = False
Me.WiiWare.Enabled = False
Me.VirtualConsole = False
Me.VirtualConsole.Enabled = False
Me.Original30 = False
Me.Original30.Enabled = False
Else
If Me.ConsoleName = "Gamecube" Then
Me.Disc = True
Me.Disc.Enabled = True
Me.Cartridge = False
Me.Cartridge.Enabled = False
Me.HuCard = False
Me.HuCard.Enabled = False
Me.OtherBox = False
Me.OtherBox.Enabled = False
Me.SEGA32X = False
Me.SEGA32X.Enabled = False
Me.SEGACD = False
Me.SEGACD.Enabled = False
Me.CD_i = False
Me.CD_i.Enabled = False
Me.ISO = False
Me.ISO.Enabled = False
Me.WiiWare = False
Me.WiiWare.Enabled = False
Me.VirtualConsole = False
Me.VirtualConsole.Enabled = False
Me.Original30 = False
Me.Original30.Enabled = False
Else
If Me.ConsoleName = "Playstation" Then
Me.Disc = True
Me.Disc.Enabled = True
Me.Cartridge = False
Me.Cartridge.Enabled = False
Me.HuCard = False
Me.HuCard.Enabled = False
Me.OtherBox = False
Me.OtherBox.Enabled = False
Me.SEGA32X = False
Me.SEGA32X.Enabled = False
Me.SEGACD = False
Me.SEGACD.Enabled = False
Me.CD_i = False
Me.CD_i.Enabled = False
Me.ISO = False
Me.ISO.Enabled = False
Me.WiiWare = False
Me.WiiWare.Enabled = False
Me.VirtualConsole = False
Me.VirtualConsole.Enabled = False
Me.Original30 = False
Me.Original30.Enabled = False
Else
If Me.ConsoleName = "Wii" Then
Me.Disc = True
Me.Disc.Enabled = True
Me.ISO.Enabled = True
Me.Cartridge = False
Me.Cartridge.Enabled = False
Me.HuCard = False
Me.HuCard.Enabled = False
Me.OtherBox = False
Me.OtherBox.Enabled = False
Me.SEGA32X = False
Me.SEGA32X.Enabled = False
Me.SEGACD = False
Me.SEGACD.Enabled = False
Me.CD_i = False
Me.CD_i.Enabled = False
Me.WiiWare = False
Me.WiiWare.Enabled = False
Me.VirtualConsole = False
Me.VirtualConsole.Enabled = False
Me.Original30 = False
Me.Original30.Enabled = False
Else
If Me.ConsoleName = "XBOX360" Then
Me.Disc = True
Me.Disc.Enabled = True
Me.Cartridge = False
Me.Cartridge.Enabled = False
Me.HuCard = False
Me.HuCard.Enabled = False
Me.OtherBox = False
Me.OtherBox.Enabled = False
Me.SEGA32X = False
Me.SEGA32X.Enabled = False
Me.SEGACD = False
Me.SEGACD.Enabled = False
Me.CD_i = False
Me.CD_i.Enabled = False
Me.WiiWare = False
Me.WiiWare.Enabled = False
Me.VirtualConsole = False
Me.VirtualConsole.Enabled = False
Me.Original30 = False
Me.Original30.Enabled = False
Else
If Me.ConsoleName = "TG16" Then
Me.HuCard = True
Me.CD_i.Enabled = True
Me.Cartridge = False
Me.Cartridge.Enabled = False
Me.Disc = False
Me.Disc.Enabled = False
Me.OtherBox = False
Me.OtherBox.Enabled = False
Me.SEGA32X = False
Me.SEGA32X.Enabled = False
Me.SEGACD = False
Me.SEGACD.Enabled = False
Me.WiiWare = False
Me.WiiWare.Enabled = False
Me.VirtualConsole = False
Me.VirtualConsole.Enabled = False
Me.Original30 = False
Me.Original30.Enabled = False
End If
End If
End If
End If
End If
End If
End If
End If
End Sub