Private Sub Form_Load()
        Call utils.toLastRecord(Me)
        isCurrentFormDone = False
    End Sub

Private Sub Form_Current()
    If Not isCurrentFormDone Then
        If Not Me.NewRecord Then
            If Not IsNull(Me!geo_id) Then
                geo_plasts.RowSource = utils.plastIdsListToPlastNamesList(geo_plasts, MULTI_SEQ_SEPARATOR)
            End If
            geo_plasts = geo_plasts.RowSource
            Call calculateWaterComponents
        Else
            geo_plasts.RowSource = ""
        End If
        isCurrentFormDone = True
    End If
End Sub

Public Sub toLastRecord(theForm As Form)
    On Error GoTo err1
    If Not theForm.NewRecord And theForm.RecordsetClone.RecordCount >  0  Then
        theForm.RecordsetClone.MoveLast
        If Not (theForm.RecordsetClone.NoMatch) Then
            theForm.Bookmark = theForm.RecordsetClone.Bookmark
        End If
    End If
    Exit Sub
err1:
    MsgBox Err.Description, , theForm.Name
End Sub