[Resolvido]Caixa de combinação não funciona quando as tabelas são vinculadas

Olá gente,

Desenvolvendo um aplicativo encontrei o seguinte problema: tenho um relatório o qual possui duas caixas de combinação vinculadas, abaixo coloco os códigos de vinculação. O problema acontece que o aplicativo funciona em rede, desta forma quando vinculo o aplicativo no banco, a segunda caixa de combinação não apresenta a informação anteriormente cadastrada, quando da navegação para o registro anterior. No vídeo abaixo apresento o problema, estou disponibilizando o banco. Grato por qualquer ajuda.

Código:





Private Sub txtIdNivel1VideosTutoriais_Change()

Me.txtIdNivel1VideosTutoriais.Requery
Me.txtIdNivel2VideosTutoriais = Null

End Sub

Private Sub txtIdNivel2VideosTutoriais_GotFocus()

    Me.txtIdNivel2VideosTutoriais.Requery
End Sub



Olá gente,

Já quebrei a cabeça e até agora nada. Aceito qualquer sugestão ou dica. Grato pela ajuda.

Após alguns dias achei a resposta para o problema.

1. Nos botões próximo e anterior coloquei o código abaixo:

Código:


Private Sub btnProximoRegistro_Click()

 With txtIdNivel2VideosTutoriais
        .RowSource = "SELECT idNivel2, descricaoNivel2, idNivel1Nivel2 FROM tblVideosTutoriaisNivel2 ORDER BY descricaoNivel2"
        'msql = msql & " WHERE idNivel3 = " & txtContratosNivel3 & ""
        .ColumnCount = 3
        .ColumnCount = 2
        .BoundColumn = 1
        .ColumnWidths = "0cm;10cm;0cm"
        '.ColumnWidths = "0in.;1in."
    End With
On Error GoTo ErrNext

  DoCmd.RunCommand acCmdRecordsGoToNext
  Exit Sub

ErrNext:

  Select Case Err
    Case 2046
      'Command not available
      MsgBox "Fim dos Registros.", _
        vbInformation, "Não Disponível"
    Case Else
      MsgBox Err.Number & ":-" & vbCrLf & Err.Description
  End Select

End Sub

Private Sub btnRegistoAnterior_Click()

 With txtIdNivel2VideosTutoriais
        .RowSource = "SELECT idNivel2, descricaoNivel2, idNivel1Nivel2 FROM tblVideosTutoriaisNivel2 ORDER BY descricaoNivel2"
        'msql = msql & " WHERE idNivel3 = " & txtContratosNivel3 & ""
        .ColumnCount = 3
        .ColumnCount = 2
        .BoundColumn = 1
        .ColumnWidths = "0cm;10cm;0cm"
        '.ColumnWidths = "0in.;1in."
    End With
    On Error GoTo ErrPrevious

  DoCmd.RunCommand acCmdRecordsGoToPrevious
  Exit Sub

ErrPrevious:

  Select Case Err
    Case 2046
      'Command not available
      MsgBox "Fim dos Registros.", _
        vbInformation, "Não Disponível"
    Case Else
      MsgBox Err.Number & ":-" & vbCrLf & Err.Description
  End Select
End Sub





2. Ao carregar o formulário:

Código:


Private Sub Form_Load()

 With txtIdNivel2VideosTutoriais
        .RowSource = "SELECT idNivel2, descricaoNivel2, idNivel1Nivel2 FROM tblVideosTutoriaisNivel2 ORDER BY descricaoNivel2"
        'msql = msql & " WHERE idNivel3 = " & txtContratosNivel3 & ""
        .ColumnCount = 3
        .ColumnCount = 2
        .BoundColumn = 1
        .ColumnWidths = "0cm;10cm;0cm"
        '.ColumnWidths = "0in.;1in."
    End With

End Sub



3. Na caixa de combinação:

Código:


Private Sub txtIdNivel2VideosTutoriais_GotFocus()
 
If (Me.txtIdNivel1VideosTutoriais) > 0 Then
    With txtIdNivel2VideosTutoriais
        .RowSource = "SELECT idNivel2, descricaoNivel2, idNivel1Nivel2 FROM tblVideosTutoriaisNivel2 WHERE idNivel1Nivel2 =" & txtIdNivel1VideosTutoriais & " ORDER BY descricaoNivel2"
        'msql = msql & " WHERE idNivel3 = " & txtContratosNivel3 & ""
        .ColumnCount = 3
        .ColumnCount = 2
        .BoundColumn = 1
        .ColumnWidths = "0cm;10cm;0cm"
        '.ColumnWidths = "0in.;1in."
    End With
    Else
    With txtIdNivel2VideosTutoriais
        .RowSource = "SELECT idNivel2, descricaoNivel2, idNivel1Nivel2 FROM tblVideosTutoriaisNivel2 ORDER BY descricaoNivel2"
        'msql = msql & " WHERE idNivel3 = " & txtContratosNivel3 & ""
        .ColumnCount = 3
        .ColumnCount = 2
        .BoundColumn = 1
        .ColumnWidths = "0cm;10cm;0cm"
        '.ColumnWidths = "0in.;1in."
    End With
    End If
   
End Sub




Bem, assim resolveu. Grato a todos pela ajuda.