+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 3 su 3

Composizione stringa per una Where Condition

  1. #1
    mauver non è in linea Novello
    Buongiorno a tutti,
    scrivo per avere aiuto nella composizione di una stringa da inserire come WhereCondition nel Dodmd.OpenReport.
    Il contesto è il seguente:
    • ho creato il report rptContratti avente come Origine Record una tabella denominata tblContratti. Il report contiene quasi tutti i campi della tabella e, comunque, tutti quelli necessari per la WhereCondition.
    • Ho creato una form frmFiltriReport per impostare dei filtri all'avvio del report. La form contiene il controllo Gruppo di Opzioni opzFiltri con 4 voci rispettivamente associate a: Tutti i contratti, Contratti scaduti, Contratti senza documentazione, Pagamenti scaduti.
    • Nell'evento Click del controllo opzFiltri ho inserito questo codice:
    Private Sub opzFiltri_Click()
        Dim argomento As String, strWhere As String
        
        On Error Resume Next
        DoCmd.Close acReport, "rptContratti"
        With Me
            Select Case .opzFiltri
                Case Is = 1
                    argomento = "Tutti i contratti"
                    strWhere = vbNullString
                Case Is = 2
                    argomento = "Contratti scaduti"
                    strWhere = "tblContratti!DataScadenza<#" & Date & "#"
                Case Is = 3
                    argomento = "Contratti senza documentazione"
                    strWhere = "tblContratti!PercorsoFile = ''"
                Case Is = 4
                    argomento = "Pagamenti scaduti"
                    strWhere = "Dateadd(""m"",tblContratti!Fattura,tblContratti!DataUltimoPagamento)<#" & Date & "#"
            End Select
        End With
        
        DoCmd.OpenReport "rptContratti", acViewReport, , strWhere, , argomento
        
        DoCmd.Close acForm, Me.Name, acSaveNo
    End Sub
    
    Per le prime tre voci la stringa strWhere funziona correttamente. La quarta mi da errore.
    Ho fatto molti tentativi ma... niente! Ne sono uscito sconfitto.

    Sono certo che qualcuno saprà dirmi dove sbaglio.

  2. #2
    Quote Originariamente inviato da mauver Visualizza il messaggio
                Case Is = 4
                    argomento = "Pagamenti scaduti"
                    strWhere = "Dateadd(""m"",tblContratti!Fattura,tblContratti!DataUltimoPagamento)<#" & Date & "#"
    
    .... La quarta mi da errore.
    Quale errore?

  3. #3
    mauver non è in linea Novello
    Ciao Phil,
    scusami ma ho fatto talmente tante prove che non ho realizzato che questa era quella giusta!!!
    Adesso ho riprovato con un po' più di lucidità per confermarti l'errore e... l'errore non c'era più!
    Scusami ancora e grazie per la disponibilità.
    Maurizio

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Composizione Stringa
    Da SebastianoFloridia nel forum C#
    Risposte: 1
    Ultimo Post: 20-11-2020, 04:57
  2. dcount con where condition
    Da red_apple nel forum Microsoft Access
    Risposte: 3
    Ultimo Post: 27-11-2017, 16:08
  3. how to parse a condition
    Da el cuba libre nel forum C/C++
    Risposte: 3
    Ultimo Post: 17-08-2012, 19:50
  4. [Access] Where Condition-Report
    Da John nel forum Microsoft Access
    Risposte: 1
    Ultimo Post: 03-04-2008, 21:35
  5. [ASP.Net]where condition
    Da Squalo10 nel forum ASP 3, ASP .Net
    Risposte: 8
    Ultimo Post: 02-11-2007, 15:35