• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Waarde komt onder ingestelde waarde...

Status
Niet open voor verdere reacties.
Hoe ik de code ook aanpas, de melding blijft hetzelfde.

Iemand nog andere suggesties?
 
Probeer eens
Code: 
Private Sub Cmd_correctie_Click()
With Sheets("Artikelen") 
.Cells(aanpasregel, "x") = T8.Value
End With
If T8.Text < T9.Text Then
        MsgBox "Voorraad wordt te laag", vbCritical
        Exit Sub
    End If
MsgBox "Correctie is doorgevoerd."
Unload Me
End Sub

wat mij opvalt is dat T8 (voorraaad afboeken) niet wordt afgetrokken van de huidige voorraad (t4)maar de huidige voorraad vervangt.
Kortom in t8 vul je kennelijk de nieuwe voorraadwaarde in (en niet het aantal dat je afboekt), althans zo is de code nu opgezet.
Dus je moet alleen T8 testen tegen de veilige voorraadwaarde in T9

de achterliggende vraag is dus of dat de juiste werking is of dat de code aangepast moet worden zodat effectief T8 van T4 wordt afgetrokken om op het gewenste voorraadpeil uit te komen
 
Laatst bewerkt:
Bedankt voor je reactie Roeljongman. Heb idd e.e.a. aangepast zodat deze eerst de gecorrigeerde voorraad wordt berekend en dan wordt geplaats in het bestand.
Het lijkt erop dat dat beter werkt.
 

Bijlagen

  • Voorbeeld.xlsb
    68,6 KB · Weergaven: 21
Ben nog regelmatig bezig geweest maar op een of andere onverklaarbare manier wil het niet werken. Heb alle combinaties van codes geprobeerd. Ook de volgende code aangepast. (val

Code: 
Private Sub CommandButton2_Click() 'huidige voorraad wordt afgeboekt
T8 = T4.Text - T12.Text
Cmd_correctie.Visible = True
End Sub

i.p.v.

Private Sub CommandButton2_Click() 'huidige voorraad wordt afgeboekt
T8 = Val(T4.Value) - Val(T12.Value)
Cmd_correctie.Visible = True
End Sub

Het lijkt er steeds op dat het werk, maar dan doet zomaar een andere opdracht regel het weer niet.

Code: 
Private Sub Cmd_correctie_Click()
With Sheets("Artikelen") 
.Cells(aanpasregel, "x") = T8.Value
MsgBox "Correctie is doorgevoerd."

If T9.Text < T4.Text Then
MsgBox "Voorraad wordt te laag. Plaats direct een nieuwe bestelling om stilstand te voorkomen.", vbCritical
Unload Me
Exit Sub
End If
End With
        
Unload Me
    
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan