Je to velmi jednoduché. Musíte zavřít původní tabulky. Otevřete formulář, a pro každé pole Number1, Number2 a Number3, je třeba vybrat Property Sheet-Data-Control Source, a potom, příměřeně, Number1, Number2 и Number3. Pak jen pro Number1 a Number2 vyberte další záložku After Update-[Event Procedure] a tám píšeme následující kod:
Option Compare Database
Private Function SummaDetali()
If Nz(Me!Number1) = 0 Then Me![Number3] = Null: Exit Function
If Nz(Me!Number2) = 0 Then Me![Number3] = Null: Exit Function
Me![Number3] = Me![Number1] + Me![Number2]
End Function
Private Sub Number1_AfterUpdate()
Call SummaDetali
End Sub
Private Sub Number2_AfterUpdate()
Call SummaDetali
End Sub
Po zadání dat do pole Number1 a Numberě a stiskněte Enter, aby se v Number3 výsledek se objevil, který bude uložen v hlavní tabulce. Pak otevřete tabulku a zkontrolujte. Výpočet je pouze po zadání dat do formuláře.
Ve funkce SummaDetail () je možné zadat libovolný vzorec.
Chcete-li vytisknout jeden záznam z formuláře můžete prohlédnout na této stránce
http://allenbrowne.com/casu-15.html
Příloha: 5669_carno.rar (26kB, staženo 26x) citovat