RELATORIO TRAZER A DESCRICAO
Pessoal estou precisando puxar uma descricao de outra tabela para dentro do Reporter mais nao estou usando data environment
tem como colocar no Reporter , tabela.descricao
ou precisaria fazer um inner join ???? nesses selects abaixo ?
como puxo uma descricao de uma segunda tabela ?
If Txt.Text <> [Ô][Ô] Then
If Txt2.Text <> [Ô][Ô] Then
sql = [Ô]Select * From freqfunc Where nome like [ô]%[Ô] & Text1.Text & _
[Ô]%[ô] AND(Data Between #[Ô] & Format(Txt.Text, [Ô]mm/dd/yyyy[Ô]) & _
[Ô]# And #[Ô] & Format(Txt2.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]#)[Ô]
Else
sql = [Ô]Select * From Freqfunc where nome like [ô]%[Ô] & Text1.Text & [Ô]%[ô][Ô]
End If
Else
sql = [Ô]Select * From Freqfunc where nome like [ô]%[Ô] & Text1.Text & [Ô]%[ô][Ô]
End If
Obrigado Abs
Marcelo Fazan
tem como colocar no Reporter , tabela.descricao
ou precisaria fazer um inner join ???? nesses selects abaixo ?
como puxo uma descricao de uma segunda tabela ?
If Txt.Text <> [Ô][Ô] Then
If Txt2.Text <> [Ô][Ô] Then
sql = [Ô]Select * From freqfunc Where nome like [ô]%[Ô] & Text1.Text & _
[Ô]%[ô] AND(Data Between #[Ô] & Format(Txt.Text, [Ô]mm/dd/yyyy[Ô]) & _
[Ô]# And #[Ô] & Format(Txt2.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]#)[Ô]
Else
sql = [Ô]Select * From Freqfunc where nome like [ô]%[Ô] & Text1.Text & [Ô]%[ô][Ô]
End If
Else
sql = [Ô]Select * From Freqfunc where nome like [ô]%[Ô] & Text1.Text & [Ô]%[ô][Ô]
End If
Obrigado Abs
Marcelo Fazan
[ô]Porque vc não usa assim
[ô]Dados (Sua Conexão)
rsFreqfunc (Vincula as dus tabelas)
Dim Resp As Byte
Dados.rsFreqfunc.Filter = [Ô]nome = [ô][Ô] & Text1.Text & [Ô][ô][Ô]
If Len(Text1.Text) <= 0 Then
MsgBox [Ô]Selecione o Item para Impressão! [Ô], vbExclamation, [Ô] Informações [Ô]
Else
Dim a
a = MsgBox([Ô]Confirma a Impressão de : [Ô] & txtNome.Text & [Ô] ![Ô], vbYesNo + vbQuestion, [Ô] Impressão [Ô])
If a = vbYes Then
PrnPrint.Show vbModal
End If
End If
Unload PrnPrint
eu uso assim e funciona normal
[ô]Dados (Sua Conexão)
rsFreqfunc (Vincula as dus tabelas)
Dim Resp As Byte
Dados.rsFreqfunc.Filter = [Ô]nome = [ô][Ô] & Text1.Text & [Ô][ô][Ô]
If Len(Text1.Text) <= 0 Then
MsgBox [Ô]Selecione o Item para Impressão! [Ô], vbExclamation, [Ô] Informações [Ô]
Else
Dim a
a = MsgBox([Ô]Confirma a Impressão de : [Ô] & txtNome.Text & [Ô] ![Ô], vbYesNo + vbQuestion, [Ô] Impressão [Ô])
If a = vbYes Then
PrnPrint.Show vbModal
End If
End If
Unload PrnPrint
eu uso assim e funciona normal
mais onde vo encaixo a data ??
isso facilitaria algo pra encaixar uma segunda tabela ?
isso facilitaria algo pra encaixar uma segunda tabela ?
[ô]essa função define o campo que vc quizer na tabela
o Nome ok, é a refenrecia
o Text1.Text é o filtro das duas tabelas exe. Saida(Tabela1) Saida(Tabela2)
Dados.rsFreqfunc.Filter = [Ô]nome = [ô][Ô] & Text1.Text & [Ô][ô][Ô]
não se é isso que vc esta querendo.
Boa noite
pra pegar o campo [ô]descriccao[ô] de outra tabela vc tem que ter alguma referencia, tipo:
o restante do código serão os seus filtros.
pra pegar o campo [ô]descriccao[ô] de outra tabela vc tem que ter alguma referencia, tipo:
sql = [Ô]SELECT FREQFUNC.CAMPO1, FREQFUNC.CAMPO2.... TABELA.DESCRICAO FROM FREQFUNC LEFT JOIN TABELA ON FREQFUNC.CODIGO__DESCRICAO = TABELA.CODIGO
o restante do código serão os seus filtros.
Tópico encerrado , respostas não são mais permitidas