negatieve voorraad melding

[kirsten75]

Ik heb een programma voor voorraad beheer gemaakt in Access. Nu wil ik dat ik een melding krijg wanneer ik een product afboek en dit meer is dan het aantal dat op voorraad ligt. Dus als de voorraad < 0 is moet er een melding komen.

Op een subformulier kan er elke keer een transactie worden uitgevoerd om artikelen bij of af te boeken.
De aantallen worden dan ingevuld in de kolomen Aantal IN en Aantal UIT.

Op het subformulier heb ik een tekstvak met daarin =Som([Aantal IN]-[Aantal UIT]) aangemaakt met als label Voorraad
Op het hoofdformulier heb ik een tekstvak met daarin =[Subformulier T004 - Voorraadtransacties1].Form!OpVoorraad en als label Op voorraad

Nu wil ik een melding krijgen dat de waarde in het tekstvlak OpVoorraad op het hoofdformulier < 0 is.

 

[Guus2005]

Als je bound forms gebruikt dan kan je de volgende code in je OnCurrent event van je form zetten:

Private Sub Form_Current()
    If Me.Voorraad < 0 Then MsgBox "Dit product moet worden bijbesteld", vbCritical
End Sub

Als je geen bound forms gebruikt dan geef je die melding op het moment dat je jerecordset ophaalt.
Wel even de namen van je tekstvakken aanpassen in bovenstaande code

Succes!