Scusatemi riformulo il tutto.
Chiedevo aiuto sul codice sottostante. praticamente io ho due sottomaschere in un foglio di spostamento (MascheraAgenziaGenerale).
Le due sottomaschere sono nello stesso foglio. la prima (SottomascheraFoglioCassaAgenziaGenerale) ha origine dati su dbFogliCassa , la seconda (SottomascheraAccodamentoFoglioCassaAgenzia) ha origine dati su (dbAccodamentoFogliCassa) popolata dalla query di accodamento dove sono elencati i dettagli del fogli cassa stesso (Quietanze). Ho creato una query di accodamento che preleva i dati da vari db.
Ora il tutto funziona solo che inserendo il secondo foglio cassa le somme in negativo del foglio cassa precedente vengono convertite in somme positive e quelle del foglio cassa precedente al precedente da posive diventano negative come erano in precedenza e cosi via.
Allego il codice:
DoCmd.OpenQuery "QueryAccodamentoPerDettaglioFoglioCassa", , acReadOnly
DataVersamentoFoglioCassa.Enabled = True
ImportoFoglioCassa.Enabled = True
AllegatoFoglioCassa.Enabled = True
NoteFoglioCassa.Enabled = True
InserimentoaScomparsa.Visible = False
VisualizzazioneaScomparsa.Visible = False
ModificaaScomparsa.Visible = True
Salva.Enabled = True
InserimentoNuovo.Enabled = False
Elimina.Enabled = False
Modifica.Enabled = False
AnnullaInserimento.Enabled = True
Chiudi.Enabled = False
Controllo.Enabled = True
InserisciQuietanzeIncassate.Enabled = False
StampaFoglioCassa.Enabled = True
AggiornaImportiFoglioCassa.Enabled = False
Dim Campodavalutare As String
Dim Campodavalutare1 As String
Dim Campopercalcolo As String
Dim RS1 As ADODB.Recordset
Set RS1 = New ADODB.Recordset
RS1.Open "dbAccodamentoFogliCassa", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Do Until RS1.EOF
Campodavalutare = (RS1!NominativoCompagnia)
Campodavalutare1 = (RS1!NominativoAgenziaGenerale)
Campopercalcolo = (RS1!ImportoRataQuietanza)
'metti le tue condizioni
If Campodavalutare = "Allianz" And Campodavalutare1 = "Mussari Giovanni" Then
RS1("ImponibileRataQuietanza") = Campopercalcolo / 1.26 * -1
RS1("ImportoRataQuietanza") = Campopercalcolo * -1
RS1.Update
Else
If Campodavalutare1 = "Mussari Giovanni" Then
RS1("ImponibileRataQuietanza") = Campopercalcolo / 1.2
RS1.Update
Else
RS1("ImponibileRataQuietanza") = Campopercalcolo / 1.24
RS1.Update
End If
End If
RS1.MoveNext
Loop
RS1.Close
Set RS1 = Nothing
Forms![MascheraAgenziaGenerale]![SottomascheraAccodamentoFoglioCassaAgenziaGenerale].Form.Requery
End Sub
Vi ringrazio della vostra pazienza.