msflexgrid vertical scroll

[holly]

Hi

I have a msflexgrid on a form which I populate with a SP......What
I want is to conduct a search and highlight the appropriate row.....my problem is that the RS is highlighted but the flexgrid
does not scroll down and make the selected RS visible...

Hope you can understand!!

Private Sub cmdfind_Click()
 
    Dim LngColumns As Long
    Dim LngRows As Long
 
   On Error GoTo cmdfind_Click_Error
 
        For LngColumns = 0 To MSFlexReview.Cols - 1
        For LngRows = 1 To MSFlexReview.Rows - 1
        If InStr(MSFlexReview.TextMatrix(LngRows, LngColumns), txtPalletID) Then
         Call HiglightMSflex(LngRows)
  
 End If
 Next LngRows
 Next LngColumns
   Exit Sub
 
cmdfind_Click_Error:
 Call ModError_log  'All error descriptions written to a error log
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure cmdfind_Click of Form frmReview"
 
End Sub

Thanks for your help

Has anyone any suggetions on how I could accomplish this?

[James Stanich]

TopRow Example

[MartinLiss]

Use the grid's TopRow property.

[holly]

This is my code

'**************************************
'Procedure to search for pallet ID ****
'**************************************
Private Sub cmdfind_Click()
 
    Dim LngColumns As Long
    Dim LngRows As Long
 
   On Error GoTo cmdfind_Click_Error
 
  
        For LngColumns = 0 To MSFlexReview.Cols - 1
        For LngRows = 1 To MSFlexReview.Rows - 1
        If InStr(MSFlexReview.TextMatrix(LngRows, LngColumns), txtPalletID) Then
            Call HiglightMSflex(LngRows)
    
 End If
 Next LngRows
 Next LngColumns
 
    MSFlexReview.TopRow = (txtPalletID)
   Exit Sub
 
cmdfind_Click_Error:
 Call ModError_log  'All error descriptions written to a error log
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure cmdfind_Click of Form frmReview"
 
End Sub

Can anyone see whats wrong with my code.......I recieve an error
on this line

MSFlexReview.TopRow = (txtPalletID)

Thanks

[si_the_geek]

I recieve an error

which error?? there are thousands of different ones


I'm guessing that it's a type mismatch, so try this:

MSFlexReview.TopRow = CInt(txtPalletID)

[holly]

I receive an 'error 0'.....I know error 0 indicates that it is not
a severe error but the code does not work.....and the debug
highlights the below line as being the error.....

MSFlexReview.TopRow = CInt(txtPalletID)

Thanks

[James Stanich]

Try

Cdbl(txtPalletID)

[holly]

James,

I have tried that and I still recieve the same error...

Thanks
This is the code I have

Private Sub cmdfind_Click()
 
    Dim LngColumns As Long
    Dim LngRows As Long
 
   On Error GoTo cmdfind_Click_Error
 
  
        For LngColumns = 0 To MSFlexReview.Cols - 1
        For LngRows = 1 To MSFlexReview.Rows - 1
        If InStr(MSFlexReview.TextMatrix(LngRows, LngColumns), txtPalletID) Then
     
            Call HiglightMSflex(LngRows)
    
 End If
 Next LngRows
 Next LngColumns
 
 Me.MSFlexReview.TopRow = CInt(txtPalletID)
   On Error Resume Next
   Exit Sub
 
cmdfind_Click_Error:
 Call ModError_log  'All error descriptions written to a error log
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure cmdfind_Click of Form frmReview"
 
End Sub
 
Public Sub HiglightMSflex(ByVal lngrow As Long)
 Dim i As Long
 
   On Error GoTo HiglightMSflex_Error
 
With MSFlexReview
    If .Rows < 1 Then
      Exit Sub
    End If
    .Redraw = False
    .Col = i
    If .Rows = 1 Then
      .Row = lngrow
    Else
      If lngrow = .Rows Then
        .Row = .Rows - 1
      ElseIf lngrow > .Rows - 1 Then
        .Row = .Rows - 1
      Else
        .Row = lngrow
      End If
    End If
    .ColSel = .Cols - 1
    .HighLight = flexHighlightAlways
    .SelectionMode = flexSelectionByRow
    .AllowBigSelection = False
    .Redraw = True
    
  End With
   Exit Sub
 
HiglightMSflex_Error:
 Call ModError_log  'All error descriptions written to a error log
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure HiglightMSflex of Form frmReview"
    
End Sub

Thanks

[MartinLiss]

Originally posted by holly
I receive an 'error 0'.....I know error 0 indicates that it is not
a severe error but the code does not work.....and the debug
highlights the below line as being the error.....

MSFlexReview.TopRow = CInt(txtPalletID)

Thanks

Error 0 means that there is no error. That "error" is usually the result of code falling through to the error routine, but since you seem to have an Exit Sub before the error routine I don't understand why it's happening. In any case to show the bottom of the flexgrid do this.

MSFlexReview.TopRow = MSFlexReview.Rows - 1

[brucevde]

This has nothing to do with the TopRow problem but the Error 0 problem.

The call to the ModError_log procedure is clearing the Err object. When the code resumes in cmdfind_Click_Error for the msgbox, err.number = 0, err.description = "".