USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Active Report II a missao
Korn
Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 26/07/2005 11:26 hs            
pessoal queria entrar no asunto de active report novamente porq eu fiz uma select dentro do detail do actve pra poder puxar o nome de um cleinte que tem que pagar o recbo , nesse recibo tem que ter o nome dele , por exemplo tenho um Form Casa , onde a pessoa pode alugar essa casa , e se ela alugar ela tem q pagr mensalmene esse aluguel é obvio , mas esse pagamento é representado por um recibo q ela assina e se por exemplo eu estou no form Casa e eu disparo pra imprimir o recibo o select no detail fica assim
 
Option Explicit
'Private cnBd As New ADODB.Connection
Private rs As New ADODB.Recordset
Private Sub Detail_Format()
rs.Open "SELECT * FROM Tbl_Proprietarios WHERE Codigo = " & Val(FrmCasa.txtcodC.Text), cnBd, adOpenDynamic, adLockOptimistic
    FieldNome.Text = rs(1)
End Sub
 
assim desse jeito deu certo esta puxando o nome da pessoa q tem q pagar pelo txtcodC, e exibindo no active report pelo fieldNome , mas o problema seria eu tenho outro form onde eu poderia disparar o Recibo como fazer a select pra q aceite mais de um form q dispare o recibo
 
Obrigado ate aki valew
     
Gelson Porto
Pontos: 2843 Pontos: 2843 Pontos: 2843
RIO DE JANEIRO
RJ - BRASIL
Postada em 26/07/2005 13:26 hs            

 

Se as tabelas tiverem relacionamente de chaves, voce pode resolver no mesmo select.

Exemplo:

rs.Open "SELECT A.nome, B.valor FROM Tbl_Proprietarios A, tbl_recibo B WHERE A.Codigo = " & Val(FrmCasa.txtcodC.Text) and A.codigo = B.codigo, cnBd, adOpenDynamic, adLockOptimistic
    FieldNome.Text = rs(1)
End Sub

 
 
     
Korn
Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 26/07/2005 14:08 hs            
opa gelson , nao existe tbl Recibo , rebibo seria somente o relatorio, mas isso eu colocaria pra disparar o relatorio ou colocaria dentro do detail do relatorio , porq nao saquei isso Val(FrmCasa.txtcodC.Text), se houver o formulario FrmApartamento , q tambem pode disparar o recibo como faria

Jesus Cristo é O Senhor!!!
     
Korn
Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 27/07/2005 12:01 hs            
alguem pode me ajudar

Jesus Cristo é O Senhor!!!
     
Korn
Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 28/07/2005 10:07 hs            
ajuda ai galera

Jesus Cristo é O Senhor!!!
     
Korn
Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 01/08/2005 11:00 hs            
alguem sabe?

Jesus Cristo é O Senhor!!!
     
Página(s): 1/2      PRÓXIMA »

CyberWEB Network Ltda.    © Copyright 2000-2026   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página