Newsgroup: it.comp.appl.access
Titolo: origine dati report in base a casella di testo di una maschera

Salve a tutti.
Nell'ottica di ridurre il numero di report identici, ma con origine dati leggermente differenti, avendo una menù (form con diverse caselle di testo), in base alla casella di testo volevo impostare l'origine dati differente.
Ho messo su click della casella di testo "Option6" il seguente codice:
DoCmd.OpenReport "Utenti_Inseriti_e_dimessi", acPreview, , , , Me.Option6
l'origine dati del report su evento apertura è:
DoCmd.OpenForm "frmCriteriDiRicerca2", , , , , acDialog, "Utenti_Inseriti_e_Dimessi"
 
If Me.openargs = "option6" Then
Reports!Utenti_Inseriti_e_Dimessi.RecordSource = "SELECT tblArticoli.DescrizioneBene, tblArticoli.IdDsm, tblArticoli.IDCsm, tblArticoli.IdDdp, tblArticoli.IdSerT, Format([DataInserimento],'dd/mm/yy') AS DataIns, Format([DataScadenza],'dd/mm/yy') AS DataScad, tblArticoli.IDCategoria" & _
"FROM tblCategorie INNER JOIN tblArticoli ON tblCategorie.IDCategoria = tblArticoli.IDCategoria" & _
"WHERE (((tblArticoli.DataInserimento) >= [Forms]![frmCriteriDiRicerca3]![Data inizio trans] And (tblArticoli.DataInserimento) <= [Forms]![frmCriteriDiRicerca3]![Data fine trans])) " & _
" ORDER BY tblArticoli.DescrizioneBene;"
 
Else
Reports!Utenti_Inseriti_e_Dimessi.RecordSource = "SELECT tblArticoli.DescrizioneBene, tblArticoli.IdDsm, tblArticoli.IDCsm, tblArticoli.IdDdp, tblArticoli.IdSerT, Format([DataInserimento],'dd/mm/yy') AS DataIns, Format([DataScadenza],'dd/mm/yy') AS DataScad, tblArticoli.IDCategoria" & _
"FROM tblCategorie INNER JOIN tblArticoli ON tblCategorie.IDCategoria = tblArticoli.IDCategoria " & _
"WHERE (((tblArticoli.DataDimissioni) >= [Forms]![frmCriteriDiRicerca3]![Data inizio trans] And (tblArticoli.DataDimissioni) <= [Forms]![frmCriteriDiRicerca3]![Data fine trans]))" & _
"ORDER BY tblArticoli.DescrizioneBene;"
 
End If
    If Not IsLoaded("frmCriteriDiRicerca2") Then
        Cancel = True
    End If
 
Dopo aver digitato le date iniziali e finali, il report non si apre.
Cosa ho sbagliato?
Grazie.
Giuseppe

Salve Giuseppe,
 
Giuseppe ha scritto:

Dovresti descrivere meglio lo svoglimento, p.e. perché ci sono due 
maschere "...Ricerca2" e "...Ricerca3", cosa succede nella 
"...Ricerca2", è aperta quando fai il tuo IsLoaded alla fine --> Cancel?
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
Access Lobby: 
http://www.AccessDevelopers.org
 

Ciao Karl, grazie per il tuo intervento.
Le due maschere Ricerca2 e Ricerca3 sono un errore.
Ho corretto mettendo solo frmCriteriDiRicerca2.
Adesso quando clicco sulla casella di testo Option6 della maschera/menù, la maschera frmCriteriDiRicerca2 non si apre ma esce direttamente la finestra in Vba Errore di compilazione: Sub o Function non definita e mi evidenzia IsLoaded del codice su evento su apertura del report.
Giuseppe

 Adesso quando clicco sulla casella di testo Option6 della maschera/menù, la maschera frmCriteriDiRicerca2 non si apre ma esce direttamente la finestra in Vba Errore di compilazione: Sub o Function non definita e mi evidenzia IsLoaded del codice su evento su apertura del report.
 
Vuol dire che non hai scritto una funzione "IsLoaded".
Se intendi di usare la proprietà integrata vedi il primo esempio qui per 
la sintassi corretta: 
http://www.donkarl.com/it?FAQ4.19
 



Grazie tante Karl.
Faccio due settimane di ferie e al ritorno, riprendo a smanettare.
Auguro a te e a tutti gli altri membri, un sereno ferragosto e fine estate.
Giuseppe.