ubound and array

jpaul · January 22nd, 2008, 04:08 PM

I've used and array to perform a search for records (SQL).
Once filtered how do I use "Ubound" to count them?
I'm already using ubound in the array.
heres my code:
Private Sub TogFilter_Click()
    Dim strFilt(0 To 10) As String
    Dim aryIdx As Integer
    Dim FiltStr As String
    Dim intCo As Integer

    If TogFilter.Value = -1 Then
        If cboDwgNo.Value <> "" Then strFilt(0) = "[DwgNo] = '" & cboDwgNo.Value & "'"
        If cboLineNo.Value <> "" Then strFilt(1) = "[LineNo] = '" & cboLineNo.Value & "'"
        If cboDwgType.Value <> "" Then strFilt(2) = "[DwgType] = '" & cboDwgType.Value & "'"
        If cboPIDNo.Value <> "" Then strFilt(3) = "[PIDNo] = '" & cboPIDNo.Value & "'"
        If cboPipeSpec.Value <> "" Then strFilt(4) = "[PipeSpec] = '" & cboPipeSpec.Value & "'"
        If cboProjNo.Value <> "" Then strFilt(5) = "[ProjNo] = '" & cboProjNo.Value & "'"
        If cboRev.Value <> "" Then strFilt(6) = "[Rev] = '" & cboRev.Value & "'"
        If cboModule.Value <> "" Then strFilt(7) = "[Module] = '" & cboModule.Value & "'"
        If cboArea.Value <> "" Then strFilt(9) = "[Area] = '" & cboArea.Value & "'"
        If cboStress.Value <> "" Then strFilt(9) = "[StressRel] = '" & cboStress.Value & "'"
        If cboTracing.Value <> "" Then strFilt(10) = "[tracing] = '" & cboTracing.Value & "'"

        For aryIdx = LBound(strFilt) To UBound(strFilt)
            If strFilt(aryIdx) <> "" Then
                If FiltStr <> "" Then
                    FiltStr = FiltStr & " and " & strFilt(aryIdx)
                Else
                    FiltStr = strFilt(aryIdx)
                End If
            End If
        Next aryIdx
    End If

    If FiltStr = "" Then FiltStr = "[DwgNo] <> ''"
    FiltStr = "(" & FiltStr & ")"
    Me.Filter = FiltStr
    DoCmd.ApplyFilter , FiltStr
    Me.Refresh

End SubPrivate Sub TogFilter_Click()
    Dim strFilt(0 To 10) As String
    Dim aryIdx As Integer
    Dim FiltStr As String
    Dim intCo As Integer

    If TogFilter.Value = -1 Then
        If cboDwgNo.Value <> "" Then strFilt(0) = "[DwgNo] = '" & cboDwgNo.Value & "'"
        If cboLineNo.Value <> "" Then strFilt(1) = "[LineNo] = '" & cboLineNo.Value & "'"
        If cboDwgType.Value <> "" Then strFilt(2) = "[DwgType] = '" & cboDwgType.Value & "'"
        If cboPIDNo.Value <> "" Then strFilt(3) = "[PIDNo] = '" & cboPIDNo.Value & "'"
        If cboPipeSpec.Value <> "" Then strFilt(4) = "[PipeSpec] = '" & cboPipeSpec.Value & "'"
        If cboProjNo.Value <> "" Then strFilt(5) = "[ProjNo] = '" & cboProjNo.Value & "'"
        If cboRev.Value <> "" Then strFilt(6) = "[Rev] = '" & cboRev.Value & "'"
        If cboModule.Value <> "" Then strFilt(7) = "[Module] = '" & cboModule.Value & "'"
        If cboArea.Value <> "" Then strFilt(9) = "[Area] = '" & cboArea.Value & "'"
        If cboStress.Value <> "" Then strFilt(9) = "[StressRel] = '" & cboStress.Value & "'"
        If cboTracing.Value <> "" Then strFilt(10) = "[tracing] = '" & cboTracing.Value & "'"

        For aryIdx = LBound(strFilt) To UBound(strFilt)
            If strFilt(aryIdx) <> "" Then
                If FiltStr <> "" Then
                    FiltStr = FiltStr & " and " & strFilt(aryIdx)
                Else
                    FiltStr = strFilt(aryIdx)
                End If
            End If
        Next aryIdx
    End If

    If FiltStr = "" Then FiltStr = "[DwgNo] <> ''"
    FiltStr = "(" & FiltStr & ")"
    Me.Filter = FiltStr
    DoCmd.ApplyFilter , FiltStr
    Me.Refresh

End Sub
:===============
Thanks

BrianWren · January 22nd, 2008, 05:26 PM

Look: UBound(srtFilt) will always be 10, because you have dimensioned the array from 0 to 10.

If you are dedicated to the basic methodology you have here, I suggest making a Type having the 11 elements that you want, say tpRecord, and make a [u]d</u>y[u]namic</u> array of that type(Dim MyArray() As tpRecord).

Then, for each record, ReDim Preserve(MyArray) that array to add a new element.

When you are done, your array will now be sized in accordance with the number of records.

Code:

Type tpRecord
    DwgNo    As String
    LineNo   As String
    DwgType  As String
    ' Etc.
End Type

If you use this type to create an array, the way you would address each element would be

Code:

    MyArray(indexNo).DwgNo = "Some value"

jpaul · January 28th, 2008, 06:12 PM

I'm a little confused on this. Can you give me a little more info.
Also Look at my other entry on the record.count problem.
Thanks:)

BrianWren · January 28th, 2008, 07:14 PM

It would help if you could narrow where the confusion creeps in.

first of all, do you understand the difference between a dynamic array, and one that is not?

jpaul · January 29th, 2008, 01:48 PM

Nevermind, solved problem. Thanks