VBA Access IF condition

Question

I have a problem that my IF somehow doesn't validate good value of the field on index 0.

Here is the UDPATED code:

Private Sub Parametri()

Dim db As dao.Database
Dim rs As dao.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("ribe")


rs.MoveLast
rs.MoveFirst

For i = 0 To rs.RecordCount
    If rs.Fields(i).Value > 2 Then

        Debug.Print rs.Fields("Lokacija_GS")
        rs.MoveNext
    End If
Next



End Sub

And here is the result:

This value of "1" on index 0 should be skipped... but it isnt?

here is the table:

enter image description here

So for example if some row is 0 or 1 or NULL I want to skip it...

Can you show us a bit more code please? Without that this piece make very minimal sense. — PaulFrancis
– PaulFrancis, Commented Aug 4, 2014 at 11:40
Just curious, why do a rs.MoveLast rs.MoveFirst is it some kind of access trick? — John Alexiou
– John Alexiou, Commented Aug 4, 2014 at 13:42
I don't really know. Very new to VBA and I saw this kind of structure in most of the examples :D , was wondering the same — klanc
– klanc, Commented Aug 4, 2014 at 14:44

PaulFrancis · Accepted Answer · 2014-08-04 11:52:36Z

2

Here is the correct code,

Private Sub Parametri()
    Dim db As dao.Database
    Dim rs As dao.Recordset

    Set db = CurrentDb
    Set rs = db.OpenRecordset("ribe")

    rs.MoveLast
    rs.MoveFirst

    Do While Not rs.EOF
        If rs.Fields("Lokacija_GS").Value > 2 Then _
            Debug.Print rs.Fields("Lokacija_GS")
        rs.MoveNext
    Loop

    Set rs = Nothing
    Set db = Nothing
End Sub

answered Aug 4, 2014 at 11:52

PaulFrancis

5,8191 gold badge23 silver badges38 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

PaulFrancis Over a year ago

You're welcome. Feel free to mark this as answer if it has solved your problem. Good luck.

klanc Over a year ago

Is it possible that I ask you a few more questions somehow ( skype or mail ) because I really am stuck on something or just need some guidelines and saw that you have some history in Access?

Collectives™ on Stack Overflow

VBA Access IF condition

1 Answer 1

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related