faiazioniparziali:
'GoTo vedipulsante:
    Y = 1
    pos = 0
    ctrfinetab = 0
loop2:
        Mioset.MoveLast
        totrecs = Mioset.RecordCount
        If totrecs = 0 Then
            MsgBox "Tabella non creata per mancanza di record"
            Exit Sub
        End If
        Mioset.MoveFirst
        If totrecs = 1 Then GoTo controllatotali
        If Y = 1 Then
                      pos = 1
        Else:
                      Mioset.Move (pos)
        End If
        codnomex = Mioset!Codnome
        causalex = Mioset!Codcaus
        quantitàx = Mioset!Quantità
        dataoperx = Mioset!Dataoper
        titolox = Mioset!Codtito
        nominalex = Mioset!Nominale

        nciclo = totrecs - ctrfinetab
        For i = 1 To nciclo
        Mioset.MoveNext
        If codnomex = Mioset!Codnome And causalex = 170 And Mioset!Codcaus = 770 And quantitàx = Mioset!Quantità And titolox = Mioset!Codtito And nominalex = Mioset!Nominale Then GoTo deleta2
        If codnomex = Mioset!Codnome And causalex = 171 And Mioset!Codcaus = 771 And quantitàx = Mioset!Quantità And titolox = Mioset!Codtito And nominalex = Mioset!Nominale Then GoTo deleta2
        If codnomex = Mioset!Codnome And causalex = 172 And Mioset!Codcaus = 772 And quantitàx = Mioset!Quantità And titolox = Mioset!Codtito And nominalex = Mioset!Nominale Then GoTo deleta2
        If codnomex = Mioset!Codnome And causalex = 173 And Mioset!Codcaus = 773 And quantitàx = Mioset!Quantità And titolox = Mioset!Codtito And nominalex = Mioset!Nominale Then GoTo deleta2
        If codnomex = Mioset!Codnome And causalex = 174 And Mioset!Codcaus = 774 And quantitàx = Mioset!Quantità And titolox = Mioset!Codtito And nominalex = Mioset!Nominale Then GoTo deleta2
        If codnomex = Mioset!Codnome And causalex = 180 And Mioset!Codcaus = 780 And quantitàx = Mioset!Quantità And titolox = Mioset!Codtito And nominalex = Mioset!Nominale Then GoTo deleta2
        If codnomex = Mioset!Codnome And causalex = 185 And Mioset!Codcaus = 785 And quantitàx = Mioset!Quantità And titolox = Mioset!Codtito And nominalex = Mioset!Nominale Then GoTo deleta2
        If codnomex = Mioset!Codnome And causalex = 190 And Mioset!Codcaus = 790 And quantitàx = Mioset!Quantità And titolox = Mioset!Codtito And nominalex = Mioset!Nominale Then GoTo deleta2
        
        If codnomex = Mioset!Codnome And causalex = 170 And Mioset!Codcaus = 770 And quantitàx > Mioset!Quantità And titolox = Mioset!Codtito And nominalex = Mioset!Nominale Then GoTo detrai2
        If codnomex = Mioset!Codnome And causalex = 171 And Mioset!Codcaus = 771 And quantitàx > Mioset!Quantità And titolox = Mioset!Codtito And nominalex = Mioset!Nominale Then GoTo detrai2
        If codnomex = Mioset!Codnome And causalex = 172 And Mioset!Codcaus = 772 And quantitàx > Mioset!Quantità And titolox = Mioset!Codtito And nominalex = Mioset!Nominale Then GoTo detrai2
        If codnomex = Mioset!Codnome And causalex = 173 And Mioset!Codcaus = 773 And quantitàx > Mioset!Quantità And titolox = Mioset!Codtito And nominalex = Mioset!Nominale Then GoTo detrai2
        If codnomex = Mioset!Codnome And causalex = 174 And Mioset!Codcaus = 774 And quantitàx > Mioset!Quantità And titolox = Mioset!Codtito And nominalex = Mioset!Nominale Then GoTo detrai2
        If codnomex = Mioset!Codnome And causalex = 180 And Mioset!Codcaus = 780 And quantitàx > Mioset!Quantità And titolox = Mioset!Codtito And nominalex = Mioset!Nominale Then GoTo detrai2
        If codnomex = Mioset!Codnome And causalex = 185 And Mioset!Codcaus = 785 And quantitàx > Mioset!Quantità And titolox = Mioset!Codtito And nominalex = Mioset!Nominale Then GoTo detrai2
        If codnomex = Mioset!Codnome And causalex = 190 And Mioset!Codcaus = 790 And quantitàx > Mioset!Quantità And titolox = Mioset!Codtito And nominalex = Mioset!Nominale Then GoTo detrai2
rientra2:
        If i = nciclo - 1 Then GoTo noelab2
        Next i
noelab2:
       ctrfinetab = ctrfinetab + 1
       Y = Y + 1
       pos = Y - 1
       If Y = totrecs Then GoTo controllatotali
       GoTo loop2
deleta2:
       Mioset.Delete
       Mioset.MoveFirst
       If Y > 1 Then Mioset.Move (pos)
       Mioset.Delete
       GoTo loop2
detrai2:
       quantitàx = quantitàx - Mioset!Quantità
       pos1 = Mioset.AbsolutePosition                                                                        [:(] Questa è l'struzione in errore
       Mioset.Delete
       Mioset.MoveFirst
       If Y > 1 Then Mioset.Move (pos)
       Mioset.Edit
       Mioset!Quantità = quantitàx
       Mioset.Update
       Mioset.MoveFirst
       Mioset.Move (pos1 - 1)
       GoTo rientra2
controllatotali:
        Mioset.MoveFirst
        Do Until Mioset.EOF ' Fino all'inizio del file.
        Mioset.Edit
        Movim = Mioset!Quantità * Mioset!Unitario
        tipo = 0