[VB6] Stampare un solo record con un datareport (era: problema con datareport)

[ladyBlu]

devi dire al command quale è il campo che deve filtrare; quindi se ad esempio il campo della tabella da filtrare si chiama "contatore" la sintassi corretta sarà questa:

Private Sub Command4_Click() 
   Dim strFiltro As String 
   strFiltro = "contatore = " & Data1.Recordset("cont") 
   DataEnvironment3.rsCommand12.Filter = strFiltro 
   DataReport14.Show 
End Sub

[BOYROMA1]

funziona il campo era cont

Private Sub Command4_Click()
Dim strFiltro As String
strFiltro = "cont = " & Data1.Recordset("cont")
DataEnvironment3.rsCommand12.Filter = strFiltro
DataReport14.Show
End Sub




non so come ringraziarti thanks

[ladyBlu]

Originariamente inviato da BOYROMA1
funziona il campo era cont

Private Sub Command4_Click() 
   Dim strFiltro As String 
   strFiltro = "cont = " & Data1.Recordset("cont") 
   DataEnvironment3.rsCommand12.Filter = strFiltro 
   DataReport14.Show 
End Sub

non so come ringraziarti thanks

l'importante è che funzioni



usa i tag [*code] [*/code] (senza *) così il codice è più leggibile

[BOYROMA1]

ho pensato di usare il filtro anche per un'altra parte del mio programma ma come si fa a mettere 2 criteri per il filtro mi spiego meglio



devo stampare tutte le pratiche comprese tra 2 date e che in un campo hanno un nome inserito in una text

ho quindi 3 text

periodo da ...... a ........

nome .............

?? come faccio a inserire questi criteri?

[ladyBlu]

strFiltro = "(Dal = #" & CDate(txtDal) & "# AND " & _
            "Al = #" & CDate(txtAl) & "#) AND " & _
            "Nome = '" & xtxNome & "'"

però vedi di sforzarti un pochino pure tu... era abbastanza semplice...

[BOYROMA1]

scusa ma sono un principiante

in una query ho un campo "DATA" IN CUI DEVO CERCARE IL PERIODO COMPRESO TRA 2 DATE

e un campo "tipocommittenti" IN CUI DEVO CERCARE IL NOME


POI HO TRE TEXT

TEXT1 IN CUI DEVO INSERIRE LA DATA DI PARTENZA

TEXT2 IN CUI DEVO INSERIRE LA SECONDA DATA

TEXT4 DOVE INSERISCO IL NOME


Dim strFiltro1 As String





strFiltro1 = "(da = #" & CDate(Text1) & "# AND " & _
"al = #" & CDate(Text2) & "#) AND " & _
"tipocommittenti = '" & Text4 & "'"



DataEnvironment3.rsCommand13.Filter = strFiltro1
DataReport15.Show

[ladyBlu]

non ho capito quale errore ti si genera :master:
a me sembra tutto corretto

[BOYROMA1]

scusa ma sono un principiante

in una query ho un campo "DATA" IN CUI DEVO CERCARE IL PERIODO COMPRESO TRA 2 DATE

e un campo "tipocommittenti" IN CUI DEVO CERCARE IL NOME


POI HO TRE TEXT

TEXT1 IN CUI DEVO INSERIRE LA DATA DI PARTENZA

TEXT2 IN CUI DEVO INSERIRE LA SECONDA DATA

TEXT4 DOVE INSERISCO IL NOME


Dim strFiltro1 As String





strFiltro1 = "(da = #" & CDate(Text1) & "# AND " & _
"al = #" & CDate(Text2) & "#) AND " & _
"tipocommittenti = '" & Text4 & "'"



DataEnvironment3.rsCommand13.Filter = strFiltro1
DataReport15.Show

[ladyBlu]

oh, guarda che ho capito... ma mi dici se ti genera errori o cose simili?
quello che hai scritto mi sembra corretto così com'è...

[BOYROMA1]

L'errore che midà è il seguente:

"impossibile trovare l'oggetto nell'insieme corrispondente al nome o al numero di riferimento richiesto dall'applicazione"

i campi della query sono:

DATA
tipocommittenti