Private Sub provvigione_Auto()

If IsNull(Me.Articolo_Sconto1.Value) = True Then Me.Articolo_Sconto1.Value = 0
If IsNull(Me.Articolo_Sconto2.Value) = True Then Me.Articolo_Sconto2.Value = 0
If IsNull(Me.Articolo_Sconto3.Value) = True Then Me.Articolo_Sconto3.Value = 0
If IsNull(Me.articolo_Codice.Value) = True Then Exit Sub

If Me.Articolo_Omaggio.Value = True Then Me.provvigione.Value = 0: Exit Sub
If Me.Totale_Rigo.Value = 0 Then Me.provvigione.Value = 0: Exit Sub
If IsNull(Me.Totale_Rigo.Value) = True Then Me.provvigione.Value = 0: Exit Sub
Call provvigione_Prezzo_Articolo_auto(prlistino, Classe)
If prlistino = 0 Then Exit Sub
prnetto = Me.Totale_Rigo.Value / Me.Articolo_Qta
sconto = Round(100 - ((prnetto / prlistino) * 100), 2)

Rem corrispondenza classe relazione
Select Case Classe
Case "A": Classe = 1
Case "B": Classe = 2
Case "C": Classe = 3
Case "D": Classe = 4
Case "E": Classe = 5
Case "F": Classe = 6
End Select
DoCmd.OpenForm "M Provv", , , "tb_codscpr = " & Classe, , acHidden

da1 = [Forms]![M Provv]![Dasco1]
da2 = [Forms]![M Provv]![Dasco2]
da3 = [Forms]![M Provv]![Dasco3]
da4 = [Forms]![M Provv]![Dasco4]
da5 = [Forms]![M Provv]![Dasco5]
da6 = [Forms]![M Provv]![Dasco6]
da7 = [Forms]![M Provv]![Dasco7]
da8 = [Forms]![M Provv]![Dasco8]
da9 = [Forms]![M Provv]![Dasco9]
da10 = [Forms]![M Provv]![Dasco10]
da11 = [Forms]![M Provv]![Dasco11]
da12 = [Forms]![M Provv]![Dasco12]

a1 = [Forms]![M Provv]![Asco1]
a2 = [Forms]![M Provv]![Asco2]
a3 = [Forms]![M Provv]![Asco3]
a4 = [Forms]![M Provv]![Asco4]
a5 = [Forms]![M Provv]![Asco5]
a6 = [Forms]![M Provv]![Asco6]
a7 = [Forms]![M Provv]![Asco7]
a8 = [Forms]![M Provv]![Asco8]
a9 = [Forms]![M Provv]![Asco9]
a10 = [Forms]![M Provv]![Asco10]
a11 = [Forms]![M Provv]![Asco11]
a12 = [Forms]![M Provv]![Asco12]

p1 = [Forms]![M Provv]![prov1]
p2 = [Forms]![M Provv]![prov2]
p3 = [Forms]![M Provv]![prov3]
p4 = [Forms]![M Provv]![prov4]
p5 = [Forms]![M Provv]![prov5]
p6 = [Forms]![M Provv]![prov6]
p7 = [Forms]![M Provv]![prov7]
p8 = [Forms]![M Provv]![prov8]
p9 = [Forms]![M Provv]![prov9]
p10 = [Forms]![M Provv]![prov10]
p11 = [Forms]![M Provv]![prov11]
p12 = [Forms]![M Provv]![prov12]
DoCmd.CLOSE acForm, "M Provv"
Select Case sconto
 Case da1 To a1: provv = p1
 Case da2 To a2: provv = p2
 Case da3 To a3: provv = p3
 Case da4 To a4: provv = p4
 Case da5 To a5: provv = p5
 Case da6 To a6: provv = p6
 Case da7 To a7: provv = p7
 Case da8 To a8: provv = p8
 Case da9 To a9: provv = p9
 Case da10 To a10: provv = p10
 Case da11 To a11: provv = p11
 Case da12 To a12: provv = p12
End Select
Me.provvigione.Value = Val(provv) / 100
If Me.provvigione.Value = 0 Then MsgBox ("Prezzo vendita netto " & prnetto & Chr$(13) & _
                                       "Prezzo di listino " & prlistino & Chr$(13) & _
                                       "Sconto calcolato " & sconto & " %"), vbCritical, "PROVVIGIONE 0"

End Sub