Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Riaggiornare maschera ad ogni variazione

3 views
Skip to first unread message

Ryc

unread,
Feb 19, 2011, 3:06:47 AM2/19/11
to
Ciao a tutti

ho una maschera "MRiepilogoFatture"
con origine dati: query "F"
con il seguente codice Sql:
SELECT TbTestata_Fattura.IDTESTATAFATTURA, TbTestata_Fattura.NUMERO,
TbTestata_Fattura.DATA, fctround(IIf([TbTipo_Documento].
[TipoDocumento]="Fatt. n.",
([imponibileLordo]),-1*([imponibileLordo]))) AS ImponibileL,
fctround([imponibileL]*[idsconto]) AS Sconto,
fctround([imponibileL]*(1-[idsconto])) AS ImponibileNetto,
fctround([imponibileNetto]*[IdIVA]) AS IVA,
fctround([ImponibileL]*[IdRitAcconto]) AS Ritenuta,
fctround([imponibileNetto]+nz([IVA])-nz([Ritenuta])) AS TotaleFattura,
TbTestata_Fattura.DATAPAGAMENTO, TbClienti.Ragione_Sociale,
TbTipo_Documento.TipoDocumento
FROM TbClienti INNER JOIN (TbTipo_Documento INNER JOIN (D RIGHT JOIN
TbTestata_Fattura ON D.IDTESTATAFATTURA =
TbTestata_Fattura.IDTESTATAFATTURA) ON
TbTipo_Documento.IDTipoDocumento = TbTestata_Fattura.IDTIPODOCUMENTO)
ON TbClienti.IdCliente = TbTestata_Fattura.IDCLIENTE;

La maschera "MRiepilogoFatture" la apro con un pulsante dalla
Maschera: "MFattura".
con questo codice:
Private Sub DATAPAGAMENTO_DblClick(Cancel As Integer)
On Error GoTo Err_DATAPAGAMENTO_DblClick
Me.Dirty = False
If CurrentProject.AllForms("MRiepilogoFatture").IsLoaded Then
Forms!MRiepilogoFatture.Requery
Else
DoCmd.OpenForm "MRiepilogoFatture"
End If
Exit_DATAPAGAMENTO_DblClick:
Exit Sub
Err_DATAPAGAMENTO_DblClick:
MsgBox Err.Description
Resume Exit_DATAPAGAMENTO_DblClick
End Sub

E' possibile far si che la maschera "MRiepilogoFatture" si aggiorni ad
ogni variazione che faccio nella maschera "MFattura"
senza dover ogni volta cliccare sul pulsante "DATAPAGAMENTO"?

Grazie

0 new messages