syntaxisfout vba code met optellen - aftrekken van cijfers na de komma

[JohanRVT]

Hallo groep,

bijgevoegd een formulier (gestript uit m'n database) waar we de bijvoeding van de bewoners ingeven, tot nu toe werkten we steeds met volle flesjes, nu willen onze dames een flesje kunnen verdelen in bv 2 keer (helft 'smorgens en helft 's avonds) We moeten dus optellen (en aftrekken) met bv 0,5. Dit geeft echter een syntaxisfout error (waarschijnlijk weer die amerikaanse kommanotatie problematiek). Ik krijg 't niet aan de praat.
Iemand een idee hoe het mogelijk te maken dat we een half flesje kunnen invullen waarna de stock automatisch met een half flesje verminderd.
Noot: indien er een negatief getal wordt ingevuld, bv een bestaand flesje uitboeken wordt de stock positief bijgewerkt.
Dank bij voorbaat.

 

[OctaFish]

Het kan allemaal wat simpeler. Je kunt de komma sores omzeilen door het getal eerst met een factor (bijvoorbeeld 10) te vermenigvuldigen, en pas bij het bijwerken weer te delen. Zelf zou ik het zo doen:

Private Sub Morgen_Aantal_AfterUpdate()
Dim MorgenAantal As Double, i As Integer
Dim strSQL As String

If Me.Morgen_Aantal.Value < 0 Then
    If MsgBox("Bent U zeker het reeds ingevulde aantal " & hold_qty & " te verminderen met " & Me.Morgen_Aantal.Value & "?" _
        & vbCrLf & "De stock wordt evenredig vermeerderd.", vbInformation + vbYesNo) = vbYes Then
        GoTo StockBijwerken
    Else
        Exit Sub
    End If
End If

StockBijwerken:
    MorgenAantal = CDbl(Nz(Me.Morgen_Aantal, 0)) * 10
    strSQL = "SELECT [Stock_aantal] FROM [Tbl_Bijvoeding_Artikels] WHERE [Id_bijvoedingartikel] = " & Me.Morgen.Value
    With CurrentDb.OpenRecordset(strSQL)
        If .RecordCount = 1 Then
            .Edit
            .Fields(0) = .Fields(0) - (MorgenAantal / 10)
            .Update
        End If
        .Close
    End With
    Me.Morgen_Bedelingsplaats.SetFocus
    For i = 1 To 5
        Me("Stock" & i).Requery
    Next i
End Sub