1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13:
Private Vorchk_preferred_Click () Me.Refresh Enden-Unterseeboot Privates VorForm_BeforeUpdate (Löschen als ganze Zahl) Wenn txt_sum_preferred = 0 dann MsgBox „Sie müssen einen Lieferantenpreis vorwählen, wie bevorzugt“, vbInformation, „Wartezeit“ Löschen = richtet aus ElseIf txt_sum_preferred < -1 dann MsgBox „Sie können einen Lieferantenpreis nur vorwählen, wie bevorzugt“, vbInformation, „Wartezeit“ Löschen = richtet aus Beenden wenn Unterseeboot beenden
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14:
Privates VorForm_AfterUpdate () Wenn nicht bevorzugt, Unterseeboot dann herausnehmen Mit Me.RecordsetClone .MoveFirst Bis .EOF tun Wenn! Identifikation <> Me.ID und bevorzugtes dann . Redigieren . Bevorzugt = falsch . Update Beenden wenn .MoveNext Schleife Ende mit Enden-Unterseeboot