hulp bij code veranderen

[ronnie123]

beste forum leden
allemaal nog de beste wensen voor het nieuwe jaar.
kan iemand me helpen met het varanderen van de volgende code?

Private Sub gemaaktA_AfterUpdate()

On Error GoTo Err_Knop69_Click
If Me.Dirty Then Me.Dirty = False



    A = Int(gemaaktA) / carA * 10
    A = Int(A)





Exit_Knop69_Click:
    Exit Sub

Err_Knop69_Click:
    MsgBox Err.Description
    Resume Exit_Knop69_Click
End Sub

Private Sub GemaaktB_AfterUpdate()

On Error GoTo Err_Knop69_Click
If Me.Dirty Then Me.Dirty = False


    B = Int(GemaaktB) / CarB * 10
    B = Int(B)




Exit_Knop69_Click:
    Exit Sub

Err_Knop69_Click:
    MsgBox Err.Description
    Resume Exit_Knop69_Click
End Sub

ik wil graag dat als speler A wint dat het 2-0 wordt als speler B wint 0-2 en als ze alle 2 de caramboles hebben behaald dat het 1-1 wordt.
hoe wordt de code dan?
bvd ronnie

 

[OctaFish]

Ik vind de codes een beetje verwarrend; zo heeft het niet zoveel zin om in de formule <A = Int(gemaaktA) / carA * 10> met Int(gemaaktA) te werken, tenzij je halve caramboles kunt maken. Ik biljart niet best, maar dat lukt mij toch ook niet Verder maak je een berekening, maar doe je er verder niks mee. En op welk moment (en waar?) moet de score komen te staan?

 

[ronnie123]

hallo michel
bedankt voor de reactie
ik heb een formulier waar ik de wedstrijden invoer, als ik het aantal car. invoer geeft hij het aantal punten aan ( met deze berekenging gaat het volgens het belgische punten systeem ) als alles is ingevoerd en druk op enter wordt het opgeslagen in de tabel.
nu wil ik van het belgische systeem af en gewoon gewonnen, verloren en remise hebben ( 2,0 of 1 punt ) hoop dat het duidelijk is.
groetjes ronnie