[resolvido] relatório consulta referência cruzada

Moderador: Avelino Sampaio

ictsp
Mensagens: 2
Registrado em: 30 Mar 2017, 16:45

[resolvido] relatório consulta referência cruzada

Mensagempor ictsp » 30 Mar 2017, 18:46

Boa tarde! Desde já, agradeço a ajuda dos colegas, e deixo claro que não tenho um conhecimento profundo de access. Tenho tentado desenvolver meu projeto baseando-me em informações que obtenho através dos colegas que gentilmente disponibilizam seus conhecimentos em sites e fóruns.

Criei uma consulta de referência cruzada baseada no exemplo disponibilizado aqui no fórum.
[resolvido] Referência cruzada com critérios nos campos. (viewtopic.php?t=914)

Meu código ficou da seguinte forma:

Código: Selecionar todos

Private Sub fncMontaFiltroRefCruzada()

Dim qry As QueryDef
Dim strSql As String
Set qry = CurrentDb.QueryDefs("refcruz")
strSql = "TRANSFORM First(DETORC.prel) AS PrimeiroDeprel "
strSql = strSql & "SELECT DETORC.PROD, DETORC.BITOLA, DETORC.COMP, DETORC.POS, DETORC.COTA, DETORC.MED, CADORÇ.Loc FROM CADORÇ INNER JOIN DETORC ON CADORÇ.loc = DETORC.LOC "
strSql = strSql & " WHERE  CADORÇ.loc =" & Me!frt
strSql = strSql & " GROUP BY CADORÇ.Loc, DETORC.PROD, DETORC.BITOLA, DETORC.COMP, DETORC.POS, DETORC.COTA, DETORC.MED, CADORÇ.Loc"

strSql = strSql & " PIVOT  DETORC.TIPO in (AC,INOX,AL,LATÃO,TITÂNIO,VND)"
qry.sql = strSql
Set qry = Nothing

End Sub


Gostaria de saber como faço para ocultar as colunas em branco no relatório que é gerado. Tentei adaptar o código postado no fórum mas não obtive sucesso.

Código: Selecionar todos

Private Sub Report_Load()
Dim k%, j%
On Error Resume Next
k = CurrentDb.QueryDefs("REFCRUZ").Fields.Count - 2
If k > 12 Then
    MsgBox "Relatório não suporta mais de 12 colunas..."
    Exit Sub
End If
For j = 1 To k
    Me("tx" & j).ControlSource = CurrentDb.QueryDefs("REFCRUZ").Fields(1 + j).Name
    Me("rot" & j).Caption = CurrentDb.QueryDefs("REFCRUZ").Fields(1 + j).Name
Next

For j = (k + 1) To 12
    Me("tx" & j).Visible = False
    Me("rot" & j).Visible = False
Next
End Sub


Obrigado a todos pela força!

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


ictsp
Mensagens: 2
Registrado em: 30 Mar 2017, 16:45

Re: relatório consulta referência cruzada

Mensagempor ictsp » 31 Mar 2017, 17:36

Boa tarde! depois de estudar todos os exemplos postados no tópico pesquisado, consegui resolver o problema.

Valeu!!


Voltar para “Relatórios”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 2 visitantes