VISUALIZAR E IMPRIMIR NO FORM
Ola amigos
Estou fazendo um form para impressão usando item da tabela
Pelo teste que o fiz pega somente o primeiro itens da tabela
lblHoras.Caption = rsAgendas(2)
lblNomeP.Caption = rsAgendas(3)
lblFoneP.Caption = rsAgendas(4)
Será que alguém pode me ajudar grato
Nilton
Dês já um feliz natal e um prospero ano novo a todos
Estou fazendo um form para impressão usando item da tabela
Pelo teste que o fiz pega somente o primeiro itens da tabela
lblHoras.Caption = rsAgendas(2)
lblNomeP.Caption = rsAgendas(3)
lblFoneP.Caption = rsAgendas(4)
Será que alguém pode me ajudar grato
Nilton
Dês já um feliz natal e um prospero ano novo a todos
???? explique melhor
Ok Marcelo
é seguinte, estou usando um FrmPrnAgendas pra visualizar um relatório.
No form esta assim
lblData lblNome lblHoras
Oque estou tentando fazer é sair a listagem
10/10/2010 Nilton 10:00
15/10/2010 Pedro 11:00
Já tenho a filtragem só que ele lista só a primeira linha
Não sei se deu pra entender
é seguinte, estou usando um FrmPrnAgendas pra visualizar um relatório.
No form esta assim
lblData lblNome lblHoras
Oque estou tentando fazer é sair a listagem
10/10/2010 Nilton 10:00
15/10/2010 Pedro 11:00
Já tenho a filtragem só que ele lista só a primeira linha
Não sei se deu pra entender
se vc deseja visualizar uma listagem deve usar ou o listbox, ou um flexgrid, apenas usando label não dá.
usando o listbox fiacria algo mais ou menos assim
List1.AddItem rsAgenda(2) & [Ô] - [Ô] & rsAgenda(3) & [Ô] - [Ô] & rsAgenda(4)
usando o listbox fiacria algo mais ou menos assim
List1.AddItem rsAgenda(2) & [Ô] - [Ô] & rsAgenda(3) & [Ô] - [Ô] & rsAgenda(4)
poste seu código completo talvez eu consiga adaptar pra vc
tem razão estou tentando no ListView1
Private Sub Form_Load()
Conecta_DB
Set BD = CnSql
Consulta ([Ô]select * from Cad_Agendas[Ô])
Procura
lblMedicoID = FrmCadMAgenda.lblMedicoID.Caption
FrmCadMAgenda.CarregaItems
Dim rsAgendas As New ADODB.Recordset
Dim SQL As String
Dim AgendaID As Long
SQL = [Ô]SELECT AgendaID, Data, Horas, NomeP, FoneP FROM Cad_Agendas WHERE Cad_Agendas.Data LIKE [ô][Ô] & lblData.Caption & [Ô]%[ô] AND MedicoID LIKE [ô]%[Ô] & lblMedicoID & [Ô]%[ô]ORDER BY Horas[Ô]
rsAgendas.Open SQL, CnSql, adOpenForwardOnly, adLockReadOnly
With rs
Do Until .EOF
lblData.Caption = rsAgendas(1)
lblHoras.Caption = rsAgendas(2)
lblNomeP.Caption = rsAgendas(3)
lblFoneP.Caption = rsAgendas(4)
.MoveNext
Loop
[ô]End If
.Close [ô]aqui fecha o recordset e ja não fica em memoria.
Set rs = Nothing [ô]aqui limpa o recordset e ja não fica em memoria.
End With
End Sub
Private Sub Form_Load()
Conecta_DB
Set BD = CnSql
Consulta ([Ô]select * from Cad_Agendas[Ô])
Procura
lblMedicoID = FrmCadMAgenda.lblMedicoID.Caption
FrmCadMAgenda.CarregaItems
Dim rsAgendas As New ADODB.Recordset
Dim SQL As String
Dim AgendaID As Long
SQL = [Ô]SELECT AgendaID, Data, Horas, NomeP, FoneP FROM Cad_Agendas WHERE Cad_Agendas.Data LIKE [ô][Ô] & lblData.Caption & [Ô]%[ô] AND MedicoID LIKE [ô]%[Ô] & lblMedicoID & [Ô]%[ô]ORDER BY Horas[Ô]
rsAgendas.Open SQL, CnSql, adOpenForwardOnly, adLockReadOnly
With rs
Do Until .EOF
lblData.Caption = rsAgendas(1)
lblHoras.Caption = rsAgendas(2)
lblNomeP.Caption = rsAgendas(3)
lblFoneP.Caption = rsAgendas(4)
.MoveNext
Loop
[ô]End If
.Close [ô]aqui fecha o recordset e ja não fica em memoria.
Set rs = Nothing [ô]aqui limpa o recordset e ja não fica em memoria.
End With
End Sub
desculpe colega mas você parece meio confuso em seu código
tente isto
tente ai
tente isto
Private Sub Form_Load()
Conecta_DB
Set BD = CnSql
Consulta ([Ô]select * from Cad_Agendas[Ô]) [ô]?
Procura[ô]?
lblMedicoID = FrmCadMAgenda.lblMedicoID.Caption
FrmCadMAgenda.CarregaItems[ô]?
Dim rsAgendas As New ADODB.Recordset
Dim SQL As String
Dim AgendaID As Long
SQL = [Ô]SELECT AgendaID, Data, Horas, NomeP, FoneP FROM Cad_Agendas WHERE Cad_Agendas.Data LIKE [ô][Ô] & lblData.Caption & [Ô]%[ô] AND MedicoID LIKE [ô]%[Ô] & lblMedicoID & [Ô]%[ô]ORDER BY Horas[Ô]
rsAgendas.Open SQL, CnSql, adOpenForwardOnly, adLockReadOnly
With rsAgendas
Do Until .EOF
Set lstv = ListView1.ListItems.Add(, , rsAgendas(1))
lstv.SubItems(1) = rsAgendas(2)
lstv.SubItems(2) = rsAgendas(3)
lstv.SubItems(3) = rsAgendas(4)
.MoveNext
Loop
[ô]End If
.Close [ô]aqui fecha o recordset e ja não fica em memoria.
Set rs = Nothing [ô]aqui limpa o recordset e ja não fica em memoria.
End With
End Subtente ai
deu certinho MARCELO
em referencia (desculpe colega mas você parece meio confuso em seu código )
parece mais é assim mesmo
medico = pacientes = datas consulta
so uma duvida, nao tem como eu ocultar a primeira linha do LISTVIEW para não apareça no relatório
HORAS NOME DATA <------------------------------------ não apareça
------------------------------------------
10:00 Nilton 24/12/2010
Grato Marcelo
em referencia (desculpe colega mas você parece meio confuso em seu código )
parece mais é assim mesmo
medico = pacientes = datas consulta
so uma duvida, nao tem como eu ocultar a primeira linha do LISTVIEW para não apareça no relatório
HORAS NOME DATA <------------------------------------ não apareça
------------------------------------------
10:00 Nilton 24/12/2010
Grato Marcelo
Tópico encerrado , respostas não são mais permitidas