Private Sub btmCancella_Click()

' DELETE FROM mia_tabella WHERE nome = '%s' AND cognome = '%s';",nome,cognome);
    Dim Agherbino As Database, qdf As QueryDef, strSQL As String
    Dim idmateria As Integer
        
    If Me.CmbClasse = "" Or Me.CmbMateria = "" Or Me.cmbData = "" Or Me.cmbQuadrimestre = "" Or Me.cmbTipo = "" Or Me.cmbVoto = "" Then
        MsgBox "Compilare tutti i campi", vbCritical, "Informazioni mancanti!"
    Else
        If lblVotiStudente.Caption = "" Then
            MsgBox "Selezionare uno Studente"
        Else
        
        'inserimento di un voto
        idmateria = RicavaID.Ricava_IDmateria(Me.CmbMateria.Value)
        Dim rec As Recordset
        Set Agherbino = DBEngine(0)(0)
        strSQL = "DELETE FROM Valutazione_prova WHERE Matricola = " & Me.ElnStudenti.Column(0) & " AND IdDocente = " & Form_HomeDocente.txtID.Value & " AND IdMateria=" & idmateria & " AND Data_prova='" & Me.cmbData.Value & "' AND Quadrimestre= " & Me.cmbQuadrimestre.Value & " AND Tipo='" & Me.cmbTipo.Value & "' AND Voto=  " & Me.cmbVoto.Value & ")"
        Agherbino.Execute strSQL
       'strSQL = "SELECT * FROM Valutazione_prova WHERE Matricola = " & Me.ElnStudenti.Column(0) & " AND IdDocente = " & Form_HomeDocente.txtID.Value & " AND IdMateria = " & idmateria & " AND Data_prova = '" & Me.cmbData.Value & "' AND Quadrimestre = " & Me.cmbQuadrimestre.Value & " AND Tipo = '" & Me.cmbTipo.Value & "' AND Voto = " & Me.cmbVoto.Value & ""
        MsgBox "Voto eliminato correttamente!"
        
        'aggiorna la lista voti degli studenti
        Me.ElnVoti.Requery
        Me.cmbData = ""
        Me.cmbQuadrimestre = ""
        Me.cmbTipo = ""
        Me.cmbVoto = ""
        Agherbino.Close
        End If
        
    End If
    


End Sub