code veranderen

Status
Niet open voor verdere reacties.

ronnie123

Gebruiker
Lid geworden
21 nov 2007
Berichten
628
Hallo forumleden
wie kan mij helpen met deze verandering
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
hoe zet ik deze om zodat als gemaaktA gelijk is aan carA 1 komt te staan
bvd ronnie
 
Zo te zien heb je geen variabelen gedeclareerd? Dat zou ik in ieder geval doen, dan hoef je niet steeds alles 'te vertalen'.
Verder de vraag: wat is A? En wat wil je er verder mee? En waar komt CarA vandaan?
 
Als aanvulling:
Dit misschien?
Code:
Private Sub gemaaktA_AfterUpdate()
Dim A As Integer, CarA As Integer

    If Me.Dirty Then Me.Dirty = False
    If CInt(gemaaktA) = CarA Then
        A = 1
    Else
        A = CInt(gemaaktA) / CarA * 10
    End If

End Sub
 
Hallo michel
bedankt voor de reactie
carA en A zijn tekstvakken in een formulier als alles ingevuld is wordt het in een tabel opgeslagen
grt ronnie
 
hallo michel
ik krijg een fout melding fout 11 delen door nul
hoe kan dat
grt ronnie
 
Dat betekent dat CarA nul (0) is ;)
Dat moet je dus ondervangen in je code.

Deze regel

If Me.Dirty Then Me.Dirty = False

kun je trouwens weglaten.

Tardis
 
hallo Tardis
bedankt voor je reactie
carA heb ik 11 ingevuld wat gaat er dan fout en hoe ondervang ik dat in de code
grt ronnie
 
Code:
Private Sub GemaaktA_AfterUpdate()

If Me.CarA <> 0 Then
Me.A = Int(Me.GemaaktA) / Me.CarA * 10
Me.A = Int(Me.A)
End If

End Sub

Tardis
 
hallo tardis bedankt hiervoor,
maar hij geeft nu het zelfde als in topic 1 als het gelijk is
en ik wil graag dat er dan 1 komt te staan
grt ronnie
 
Code:
If Nz(Me.CarA,0)>0 then
    If CInt(gemaaktA) = CarA Then
        A = 1
    Else
        A = CInt(gemaaktA) / CarA * 10
    End If
Else
    A = 1
End If
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan