|
|
Postada em 21/10/2005 10:33 hs
Amigão, desta forma colocando o tratamento de erro fica na mesma.. ele lista o primeiro q vc colocou, depois pra listar um outro diferente tenho q fechar o sistema, senão ele fica listando sempre o mesmo.
|
|
|
|
|
|
|
|
Postada em 21/10/2005 11:04 hs
Caro Valmir....não é possivel....tem algum outro problema ai....tenho bastante experiencia com o DataReport e no começo tive estes problemas tb...até que consegui domina-lo e trabalho muito bem com ele sem nenhum problema... Mande novamente a rotina pra dar uma analisada...pode ser ate no meu e-mail se vc preferir ou msn...como quiser...
Alexandre Costa
ArtSoftSystems
Skype:artsoftsystems
MSN:alexandre.artsoft@hotmail.com
artsoftsystems@uol.com.br
|
|
|
|
|
|
Postada em 21/10/2005 11:55 hs
Estou te passando toda a Sub, de forma q coloquei os comando q me passou..
Private Sub Cmd_gera_Click()
On Error Resume Next
Dim Sql As String
If NOMREP = "" Then
MsgBox "Representante Invalido!!!" & Chr(13) & "Favor Indicar um Representante para Geração do Relatório.", vbInformation, "Representante Invalido"
CODREP.SetFocus
Exit Sub
End If
Sql = "SELECT TABPES.NOMREP, TABPES.NOMPES, TABPES.CODPES, "
sql = sql & "TABPES.DESEND, "
Sql = Sql & "TABPES.NOMBAI, TABPES.NUMCGC, TABPES.INSEST, TABPES.NUMTLF, "
Sql = Sql & "TABCID.NOMCID, TABCID.UNDFED FROM [TABPES] "
Sql = Sql & "LEFT JOIN TABCID ON (TABCID.CODCID = TABPES.CODCID) "
Sql = Sql & "WHERE NOMREP = '" & NOMREP.Text & "'"
Sql = Sql & "order by TABPES.NOMPES"
DataEnvironment1.rsTABPES.Clone
DataEnvironment1.rsTABPES.Open Sql
DataReport1.Show
|
|
|
|
|
|
Postada em 21/10/2005 12:52 hs
valmir nao é .clone e sim .close, so isso |
|
|
|
|
|
Postada em 21/10/2005 13:03 hs
Fazer o seguinte :
Private Sub Cmd_gera_Click()
If NOMREP = "" Then
MsgBox "Representante Invalido!!!" & Chr(13) & "Favor Indicar um Representante para Geração do Relatório.", vbInformation, "Representante Invalido"
CODREP.SetFocus
Exit Sub
End If
DataReport1.Show
END SUB
Private Sub DataReport_Initialize()
On Error Resume Next
Dim Sql As String
Sql = "SELECT TABPES.NOMREP, TABPES.NOMPES, TABPES.CODPES, "
sql = sql & "TABPES.DESEND, "
Sql = Sql & "TABPES.NOMBAI, TABPES.NUMCGC, TABPES.INSEST, TABPES.NUMTLF, "
Sql = Sql & "TABCID.NOMCID, TABCID.UNDFED FROM [TABPES] "
Sql = Sql & "LEFT JOIN TABCID ON (TABCID.CODCID = TABPES.CODCID) "
Sql = Sql & "WHERE NOMREP = '" & FORM.NOMREP.Text & "'"
Sql = Sql & "order by TABPES.NOMPES"
DataEnvironment1.rsTABPES.Close
DataEnvironment1.rsTABPES.Open Sql
REPARE QUE NA STRING SQL EU MUDEI DE "NOMEREP.TEXT" PARA "[NOMEDOFORM].NOMEREP.TEXT"
END SUB
Alexandre Costa
ArtSoftSystems
Skype:artsoftsystems
MSN:alexandre.artsoft@hotmail.com
artsoftsystems@uol.com.br
|
|
|
|
|
