hm1020
|
CASTELANDIA
GO - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 28/04/2013 12:14 hs
To fazendo essa pesquisa e ta dando erro: Alguem pode me ajudar Report1.ReportFileName = App.Path & "CADPROD.rpt"
' Report1.Connect = ";PWD=pwd;"
Report1.DataFiles(0) = App.Path & "TTT.mdb"
Report1.WindowTitle = "Vendas por datas"
Report1.SelectionFormula = "{TBprod.codigo} > =" & TextInicial.Text & " and {TBprod.codigo} < = " & TextFinal.Text & " " Report1.WindowState = crptMaximized
Report1.Action = 1 ' ta o seguinte erro nessa linha run timer error 20515
|
|
|
|
|
|
|
|
Postada em 30/04/2013 17:29 hs
ola, eu sempre uso assim...
Dim CodPesq As String
With CrystalReport1
.Connect = "MS Access;pwd=82621932" 'senha do banco de dados
CodPesq = ""
CodPesq = text1.text
.SelectionFormula = "{CadSaidaMat.codigo} ='" & CodPesq & "'"
.ReportFileName = App.Path & "RelSaidaMatEstorno.rpt"
.DataFiles(0) = AnoSel 'conexao do banco de dados
.Formulas(0) = "obs ='" & Label6.Caption & "'" 'formulado dentro do relatorio
.CopiesToPrinter = 1
.DiscardSavedData = True
.Destination = crptToWindow
.WindowState = crptMaximized
.WindowTitle = "Controle de Almoxarifado - Estorno de Saída de Materiais"
.Action = 1
AnoSel = Empty
End With
|
|
|
|
jose ailton
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 14/05/2013 20:29 hs
Carlinhos,boa noite acontece que seria com dois campos exemplo, codigo inicial e codigo final |
|
|
|
