[VB6] aprire report con record specifico

[androita]

Ciao a tutti,

Ho un programma in VB6 che mi apre un report con il seguente codice:

Set AccRep = New Access.Application
AccRep.Visible = True
AccRep.DoCmd.RunCommand acCmdAppMaximize
Set DB = AccRep.DBEngine.OpenDatabase(Percorso_REPORT, False, False, ";PWD=" & dbpassword)
AccRep.OpenCurrentDatabase Percorso_REPORT, True
DB.Close
Set DB = Nothing
AccRep.DoCmd.Minimize
AccRep.DoCmd.OpenReport "TERMINALE", acViewPreview
AccRep.DoCmd.SelectObject acReport, , True
AccRep.DoCmd.RunCommand acCmdWindowHide

Se lo apro così mi apre il report e mi chiede l'id da aprire, è possibile tramite vb impostare anche l'id del riferimento report?

Praticamente con questo report vedo un DDT e devo imputare il numero DDT da visualizzare

Grazie

[optime]

scusa, ma l'id di cosa? in quel frammento di codice non ci sono richieste di id...

[androita]

Non cè l'id perche non so dove impostarlo.
io devo aprire il report inviando l'id del DDT da visualizzare, con quel codice mi apre il report e mi chiede di inserire parametro valore Maschere!TERMINALE!ID , se io scrivo 45 mi apre il DDT 45, io vorrei riuscire a passare questo parametro tramite vb

[optime]

scusa, ma sei sicuro che sia vb6 e non vba di access?

[androita]

CERTP CHE SONO SICURO, STO PROGRAMMANDO UN PROGRAMMA IN VB E CON UN TASTO MI DEVE APRIRE UN REPORT

Dim strCrit As String
Set AccRep = New Access.Application
AccRep.Visible = True

AccRep.DoCmd.RunCommand acCmdAppMaximize
Set DB = AccRep.DBEngine.OpenDatabase(Percorso_REPORT, False, False, ";PWD=" & dbpassword)
AccRep.OpenCurrentDatabase Percorso_REPORT, True
DB.Close
Set DB = Nothing
AccRep.DoCmd.Minimize

strCrit = "[MASCHERE].[TERMINALE].[ID] = ""45"""

AccRep.DoCmd.OpenReport "TERMINALE", acViewPreview, , strCrit, acWindowNormal

AccRep.DoCmd.SelectObject acReport, , True
AccRep.DoCmd.RunCommand acCmdWindowHide

HO MODIFICATO IL CODICE E ORA MI CHIEDE SEMPRE IL PARAMETRO, PERO' PENSO CHE SIA LA STRADA GIUSTA PERCHE SU GOOGLE HO TROVATO CHE BISOGNA IMPOSTARE LA CONDIZIONE DURANTE L'APERTURA DEL REPORT...

[androita]

ok ho risolto!

ecco la riga modificata

AccRep.DoCmd.OpenReport "TERMINALE2", acViewPreview, , "ID = " & N_BOLLA, acWindowNormal

come N_BOLLA ho il mio id

Grazie