MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe
    avatar
    darlansandro
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 03/05/2014

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

    Mensagem  darlansandro em Seg 22 Maio 2017, 14:07

    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


    Anexos
    erroCombo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (2.7 Mb) Baixado 5 vez(es)
    avatar
    darlansandro
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 03/05/2014

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

    Mensagem  darlansandro em Sex 26 Maio 2017, 16:15

    Olá gente,

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 03/05/2014

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

    Mensagem  darlansandro em Ter 06 Jun 2017, 11:06

    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.

      Data/hora atual: Sab 18 Nov 2017, 01:04