Newsgroup: it.comp.appl.access
Titolo: USARE SQL CON QUERY PARAMETRICHE

Buongiorno a tutto il NG, ho la necessità di aprire un Report con diversi
"origine Record". La tabella che devo sostituire nella query  è la tabella
PRODOTTI che di volta in volta puo diventare PRODOTTI1, PRODOTTI2 o
PRODOTTIX. (non so a priori quale nome dovro usare perche in questo caso
preparerei il codice opportuno)
Spero di essermi spiegato, Grazie
Simone
Private Sub Report_Open(Cancel As Integer)
 Dim strSQl As String
  strSQl = "SELECT PRODOTTI.CODICE_PRODOTTO" & vbCrLf
  strSQl = strSQl & "           , PRODOTTI.CODICE_CC" & vbCrLf
  strSQl = strSQl & "           , PRODOTTI.DESCRIZIONE" & vbCrLf
  strSQl = strSQl & "           , PRODOTTI.UM" & vbCrLf
  strSQl = strSQl & "           , PRODOTTI.PREZZO_UNITARIO" & vbCrLf
  strSQl = strSQl & "           , PRODOTTI.GIACENZA" & vbCrLf
  strSQl = strSQl & "           , PRODOTTI.CONSUMO_STIMATO" & vbCrLf
  strSQl = strSQl & "           , PRODOTTI.SOSPESO" & vbCrLf
  strSQl = strSQl & "           , PRODOTTI.TEMPO_RISPOSTA" & vbCrLf
  strSQl = strSQl & "           , PRODOTTI.DATA_AGGIORNAMENTO" & vbCrLf
  strSQl = strSQl & "           , PRODOTTI.SCORTA_MINIMA" & vbCrLf
  strSQl = strSQl & "           , PRODOTTI.MONTANTE" & vbCrLf
  strSQl = strSQl & "           , PRODOTTI.AGGIORNAMENTO_MONTANTE" & vbCrLf
  strSQl = strSQl & "           , PRODOTTI.SETTIMANA" & vbCrLf
  strSQl = strSQl & "           , PRODOTTI.MESE" & vbCrLf
  strSQl = strSQl & "           , PRODOTTI.FABBISOGNO_ANNO" & vbCrLf
  strSQl = strSQl & "           , PRODOTTI.BUDGET" & vbCrLf
  strSQl = strSQl & "           , PRODOTTI.COD_FORNITORE" & vbCrLf
  strSQl = strSQl & "           , UM.DESCRIZIONE" & vbCrLf
  strSQl = strSQl & "           , UM.QTA_UM" & vbCrLf
  strSQl = strSQl & "           , PRODOTTI.NOTE" & vbCrLf
  strSQl = strSQl & "           , Fornitori.NomeFornitore" & vbCrLf
  strSQl = strSQl & "           , PRODOTTI.TIPO" & vbCrLf
  strSQl = strSQl & "           , RESPONSABILE.RESPONSABILE" & vbCrLf
  strSQl = strSQl & "           , IIf(FCHI() Is Not
Null,[RESPONSABILE],"""") AS RESPO" & vbCrLf
  strSQl = strSQl & "        FROM ((UM " & vbCrLf
  strSQl = strSQl & "  INNER JOIN PRODOTTI " & vbCrLf
  strSQl = strSQl & "          ON (UM.UM = PRODOTTI.UM) " & vbCrLf
  strSQl = strSQl & "         AND (UM.UM = PRODOTTI.UM) " & vbCrLf
  strSQl = strSQl & "         AND (UM.UM = PRODOTTI.UM)) " & vbCrLf
  strSQl = strSQl & "  INNER JOIN Fornitori " & vbCrLf
  strSQl = strSQl & "          ON PRODOTTI.COD_FORNITORE =
Fornitori.IDFornitore) " & vbCrLf
  strSQl = strSQl & "   LEFT JOIN RESPONSABILE " & vbCrLf
  strSQl = strSQl & "          ON PRODOTTI.TIPO = RESPONSABILE.SIGLA;"
    Me.RecordSource = strSQl
End SUB

 End SUB
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

 >   strSQl = "SELECT PRODOTTI.CODICE_PRODOTTO" & vbCrLf
[...]
    Dimenticavo!...
    Evita l'uso di vbCrLf nella composizione di stringhe SQL. Non e'
necessario, quindi e' inutile e, anche se con Access non dovresti avere
problemi, quasi sicuramente ne potresti avere con altri sistemi di database.
    (E' un "errore" che facevo anch'io... purtroppo non ricordo ne' ispirato
da chi ne' messo in guardia da chi... :-)


 ha scritto nel messaggio
news:aqm6mc$b34l4$1...@ID-52090.news.dfncis.de...

Grazie per i buoni consigli ... funziona!!!
Simone