parentesi chiusa in eccesso

[BOYROMA1]

ho un problema su una parte di codice mi da il seguente errore
Errore di run-time '3075'
Parentesi chiusa in eccessonell'espressione della query
'(((Scuola)=")AND((Sezione)=")AND((Classe)=)AND((A nno)=2003))'


un aiutino?

l'errore me lo da solo con il 2003 con il 2001 no :master:

[BOYROMA1]

szCriteria = "SELECT [Tabella Piano Conti Annuale].* FROM [Tabella Piano Conti Annuale] " & _
"WHERE (((Scuola)='" & rstStudents!Scuola & "') " & _
"AND ((Sezione)='" & rstStudents!Sezione & "') " & _
"AND ((Classe)=" & rstStudents!Classe & ") " & _
"AND ((Anno)=" & [Form_Scheda Piano Conti Master].txtAnno & "));"

mi potreste aiutare che non lho fatto io questo programma?

[cik]

Originariamente inviato da BOYROMA1

szCriteria = "SELECT [Tabella Piano Conti Annuale].* FROM [Tabella Piano Conti Annuale] " & _
"WHERE (((Scuola)='" & rstStudents!Scuola & "') " & _
"AND ((Sezione)='" & rstStudents!Sezione & "') " & _
"AND ((Classe)=" & rstStudents!Classe & ") " & _
"AND ((Anno)=" & [Form_Scheda Piano Conti Master].txtAnno & "));"

mi potreste aiutare che non lho fatto io questo programma?

visto che le condizioni sono tutte in AND puoi eliminare un sacco di parentesi

szCriteria = "SELECT [Tabella Piano Conti Annuale].* FROM [Tabella Piano Conti Annuale] " & _
"WHERE Scuola='" & rstStudents!Scuola & "' " & _
"AND Sezione='" & rstStudents!Sezione & "' " & _
"AND Classe=" & rstStudents!Classe & " " & _
"AND Anno=" & [Form_Scheda Piano Conti Master].txtAnno & ";"

[cik]

Parentesi chiusa in eccessonell'espressione della query
'(((Scuola)=")AND((Sezione)=")AND((Classe)=)AND((A nno)=2003))'

(Classe)=)? manca un valore dopo =

[BOYROMA1]

Function LinkStudentsToNewYear() As Integer
    Dim dbs As Database, rstNewYear As Recordset, rstStudents As Recordset, rstBetween As Recordset
    Dim szCriteria As String
    
    'Restituisce il riferimento al database corrente.
    Set dbs = CurrentDb
    'Apro il recordset degli studenti
    Set rstStudents = dbs.OpenRecordset("SELECT [Tabella Alunni].* FROM [Tabella Alunni] WHERE ((([Tabella Alunni].ExAlunno)<>True))", dbOpenDynaset, dbReadOnly, dbReadOnly)
    'Apro il recordset dei conti degli alunni
    Set rstBetween = dbs.OpenRecordset("Tabella Conti Alunni", dbOpenDynaset, dbConsistent, dbPessimistic)
    'Ciclo degli studenti
    Do Until rstStudents.EOF
        'Criterio di query
        szCriteria = "SELECT [Tabella Piano Conti Annuale].* FROM [Tabella Piano Conti Annuale] " & _
 "WHERE (((Scuola)='" & rstStudents!Scuola & "') " & _
 "AND ((Sezione)='" & rstStudents!Sezione & "') " & _
 "AND ((Classe)=" & rstStudents!Classe & ") " & _
 "AND ((Anno)=" & [Form_Scheda Piano Conti Master].txtAnno & "));"
        'Apro la tabella del piano dei conti annuale
        Set rstNewYear = dbs.OpenRecordset(szCriteria, dbOpenDynaset, dbReadOnly, dbReadOnly)
        'Ciclo del nuovo anno
        Do Until rstNewYear.EOF
            'Aggiungo un record
            rstBetween.AddNew
            'Valori del record
            rstBetween!IDAlunno = rstStudents!IDAlunno
            rstBetween!IDPianoConti = rstNewYear!IDPianoConti
            rstBetween!Dovuto = rstNewYear!Dovuto
            rstBetween!DovutoEuro = rstNewYear!DovutoEuro
            'Memorizzo le modifiche
            rstBetween.Update
            'Prossimo record
            rstNewYear.MoveNext
        Loop
        'Chiudo la tabella del piano dei conti annuale
        rstNewYear.Close
        'Record successivo
        rstStudents.MoveNext
    Loop
    'Chiudo i recordset
    rstStudents.Close
    rstBetween.Close
    'Chiudo il riferimento al database
    Set dbs = Nothing
    'Tutto ok
    LinkStudentsToNewYear = True
End Function

[cik]

fai un'esecuzione passo passo e controlla se rstStudents!Classe ha un valore non nullo quando esegui la Select

[BOYROMA1]

pultroppo non uso vba devo correggere lerrore fatto da unaltro programmatore e non so nemmeno come funziona il programma

[cik]

il debug c'è anche in vb.

[BOYROMA1]

mi da tutti e 4 null
sia scuola sezione classe anno

[cik]

metti

 if not isnull(rstStudents!Scuola) and _
    not isnull(rstStudents!Sezione) and _
    not isnull(rstStudents!Classe) and _
    not isnull([Form_Scheda Piano Conti Master].txtAnno ) then 
     szCriteria =....
       .
       .
       .

     rstNewYear.Close
   endif 
   'Record successivo
   rstStudents.MoveNext

così eviti di fare una select con condizioni che assumono valore nullo sempre che la select non sia fatta proprio per trovare i record con valori nulli.