MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]Função para vincular campos mestres e campos filhos via vba em sub-Relatorio

    Carvalho
    Carvalho
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 244
    Registrado : 19/01/2013

    [Resolvido]Função para vincular campos mestres e campos filhos via vba em sub-Relatorio Empty [Resolvido]Função para vincular campos mestres e campos filhos via vba em sub-Relatorio

    Mensagem  Carvalho 5/8/2021, 14:27

    Pessoal bom dia,
    existe uma propriedade chamada:

    vincular campos mestres
    vincular campos filho


    É possível usar a função LinkChildFields atribuir a essas propriedades as variáveis que eu deseje que o relatório vincule.

    a baixo o códgo que estou usando, não está dando erro mas tambem não está funcionando, preciso da ajuda dos mestres agora.


    Código:
    Private Sub Vinc()


    On Error GoTo F
      Dim strMsg As String, strTítulo As String
      Dim intEstilo As Integer
      Dim Sel As Variant
      Dim strWhere As String
       
     'campos que puxam as variaveis
    If Not IsNull(Forms!frmRelatorioGlosa!DataInicial) And Not IsNull(Forms!frmRelatorioGlosa!DataFinal) Then
        strWhere = strWhere & "'dataPag'" & " ; "
    End If
     
    If Not IsNull(Forms!frmRelatorioGlosa!cboCliente) Then
        strWhere = strWhere & "'Medico'" & " ; "
    End If
     

    If Not IsNull(Forms!frmRelatorioGlosa!txHospital) Then
        strWhere = strWhere & "'Hospital'" & " ; "
    End If

     
    If Not IsNull(Forms!frmRelatorioGlosa!txtEmpresa) Then
        strWhere = strWhere & "'Empresa'" & " ; "
    End If

    If Not IsNull(Forms!frmRelatorioGlosa!txtContratante) Then
        strWhere = strWhere & "'CobrancaCoop'" & " ; "
    End If

    If Not IsNull(Forms!frmRelatorioGlosa!TxtConvenio) Then
        strWhere = strWhere & "'Convenio'" & " ; "
    End If



    'Remove o Ultimo ; extra
    strWhere = Left(strWhere, Len(strWhere) - 3)

    Reports![RltAnaliticoPorMedico]![QrySomaDescontoR sub-relatório].LinkChildFields = strWhere
    Reports![RltAnaliticoPorMedico]![QrySomaDescontoR sub-relatório].LinkMasterFields = strWhere


    'Tratamento de Erro!
    F:
    Select Case Err.Number
        Case 0, 2501 '2501 é o erro que ocorre quando eu cancelo a abertura do relatorio, quando ele estiver sem dados
            Exit Sub
        Case Else
        MsgBox Err.Number & " " & Err.Description, vbInformation
    End Select

    End Sub
    rubenscouto
    rubenscouto
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 679
    Registrado : 02/10/2011

    [Resolvido]Função para vincular campos mestres e campos filhos via vba em sub-Relatorio Empty Re: [Resolvido]Função para vincular campos mestres e campos filhos via vba em sub-Relatorio

    Mensagem  rubenscouto 10/8/2021, 03:12

    Esta função existe para formulários com subformulários vinculados através do relacionamento um pra muitos em suas tabelas.
    Carvalho
    Carvalho
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 244
    Registrado : 19/01/2013

    [Resolvido]Função para vincular campos mestres e campos filhos via vba em sub-Relatorio Empty Re: [Resolvido]Função para vincular campos mestres e campos filhos via vba em sub-Relatorio

    Mensagem  Carvalho 25/8/2021, 13:13

    Correto a sua observação, o código estava certo eu que fiz uma bobagem aqui.


    tópico resolvido com o proprio código que postei Very Happy Shocked

    Conteúdo patrocinado


    [Resolvido]Função para vincular campos mestres e campos filhos via vba em sub-Relatorio Empty Re: [Resolvido]Função para vincular campos mestres e campos filhos via vba em sub-Relatorio

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 23:27