Questo è il codice che ho utilizzato
Dim strSQL As String
If Op_M.Value = True Then
strSQL = "UPDATE Sconti SET" & _
"[Pack1]=(" & [Pack1] & "), [DescPack1]=('" & [DescPack1] & "'), " & _
"[Note]=('" & [Note] & "'), [AggSconti]=('" & [AggSconti] & "') " & _
"" & _
"where" & _
"([Marca] = ('" & [lstMarca] & "'))"
CurrentDb.Execute strSQL
ElseIf Op_MM.Value = True Then
strSQL = "UPDATE Sconti SET" & _
"[Pack1]=(" & [Pack1] & "), [DescPack1]=('" & [DescPack1] & "'), " & _
"[Note]=('" & [Note] & "'), [AggSconti]=('" & [AggSconti] & "') " & _
"" & _
"where" & _
"([Marca] = ('" & [lstMarca] & "') AND [Modello] = ('" & [lstModello] & "'))"
CurrentDb.Execute strSQL
End If
Io Vorrei che invece di dover riscrivere sempre tutto il codice poter utilizzare la codizione IF all'interno della condizione where così da avere un unico codice che varia in base alle condizioni.