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

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

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

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