Baseando uma caixa de combinação em outra

Question

Estou tentando seguir as instruções para base de uma caixa de combinação em outra em um formulário do MS Access 2010, e estou tendo alguns problemas.

Eu tenho duas tabelas:

Strategy +----+-------------+
         | ID | Desc        |
         +----+-------------+
         | 1  | Annhilation |
         | 2  | Exhaustion  |
         +----+-------------+

Theme    +----+-------------------------+------------+
         | ID | Desc                    | StrategyID |
         +----+-------------------------+------------+
         | 1  | Beauty of Simplicity    | 1          |
         | 2  | Capitalism              | 1          |
         | 3  | Change of power         | 1          |
         | 4  | Change versus tradition | 1          |
         | 5  | Chaos and order         | 2          |
         +----+-------------------------+------------+

Estou tentando criar um formulário com duas caixas de combinação, uma para a Estratégia, uma para o Tema. Eu gostaria que as opções da caixa de combinação Tema fossem limitadas pela seleção atual na caixa de combinação Estratégia, ou seja, mostre apenas aquelas em que StrategyID corresponde à% de ID da Estratégia selecionada.

Eu criei um formulário em branco chamado StrategyTheme e adicionei duas caixas de combinação a ele.

Strategy
  Row Source    : SELECT [Strategy].[ID], [Strategy].[Desc] FROM Strategy; 
  On Click      : [Event Procedure]
  Before Update : [Event Procedure]
  After Update  : [Event Procedure]
  On Dirty      : [Event Procedure]
  On Change     : [Event Procedure]
  On Not In List: [Event Procedure]
  On Got Focus  : [Event Procedure]
  On Lost Focus : [Event Procedure]
  On Dbl Click  : [Event Procedure]
  On Mouse Down : [Event Procedure]
  On Mouse Up   : [Event Procedure]
  On Mouse Move : [Event Procedure]
  On Key Down   : [Event Procedure]
  On Key Up     : [Event Procedure]
  On Key Press  : [Event Procedure]
  On Enter      : [Event Procedure]
  On Exit       : [Event Procedure]
  On Undo       : [Event Procedure]
Theme
  Row Source    : SELECT [Theme].[ID], [Theme].[Desc] FROM Theme WHERE [Theme].[StrategyID]=[Forms]![StrategyTheme]![Strategy]; 

Os procedimentos que eu adicionei devem todos apenas atualizar a caixa de combinação Tema e abrir uma mensagem (porque eu não tinha certeza de que eles estavam sendo chamados).

Option Compare Database
Private Sub Sync(msg)
    MsgBox (msg)
    Me.Theme = Null
    Me.Theme.Requery
End Sub
Private Sub Strategy_AfterUpdate()
    Sync ("AfterUpdate")
End Sub
Private Sub Strategy_BeforeUpdate(Cancel As Integer)
    Sync ("BeforeUpdate")
End Sub
Private Sub Strategy_Change()
    Sync ("Change")
End Sub
Private Sub Strategy_Click()
    Sync ("Click")
End Sub
Private Sub Strategy_DblClick(Cancel As Integer)
    Sync ("DblClick")
End Sub
Private Sub Strategy_Dirty(Cancel As Integer)
    Sync ("Dirty")
End Sub
Private Sub Strategy_Enter()
    Sync ("Enter")
End Sub
Private Sub Strategy_Exit(Cancel As Integer)
    Sync ("Exit")
End Sub
Private Sub Strategy_GotFocus()
    Sync ("GotFocus")
End Sub
Private Sub Strategy_KeyDown(KeyCode As Integer, Shift As Integer)
    Sync ("KeyDown")
End Sub
Private Sub Strategy_KeyPress(KeyAscii As Integer)
    Sync ("KeyPress")
End Sub
Private Sub Strategy_KeyUp(KeyCode As Integer, Shift As Integer)
    Sync ("KeyUp")
End Sub
Private Sub Strategy_LostFocus()
    Sync ("LostFocus")
End Sub
Private Sub Strategy_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Sync ("MouseDown")
End Sub
Private Sub Strategy_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Sync ("MouseMove")
End Sub
Private Sub Strategy_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Sync ("MouseUp")
End Sub
Private Sub Strategy_NotInList(NewData As String, Response As Integer)
    Sync ("NotInList")
End Sub
Private Sub Strategy_Undo(Cancel As Integer)
    Sync ("Undo")
End Sub

Quando visualizo o formulário no Modo de formulário, a caixa de combinação Tema é restrita para corresponder ao valor da caixa de combinação Estratégia da última vez que o visualizei e não é alterada quando eu altero o que está selecionado na caixa de combinação Estratégia . Não vejo nenhum pop-up das chamadas MsgBox() , por isso não acho que meus retornos de chamada de evento estejam sendo chamados.

O que estou fazendo de errado e como posso corrigi-lo?

    

Answer 1

Descobri isso. Os eventos não foram acionados porque o documento do Access que eu havia editado não estava em um local confiável , então adicionou um novo local confiável e agora tudo funciona.