DataGrid scrolling

[DrewDog_21]

In a datagrid, I am using arrow keys, tab, and return to advance to the next or previous record, depending on the conditions.

e.g. in the keypress event

If KeyAscii = vbKeyTab and DataGrid1.Col = 6 Then
'advance to next record
            
    DataGrid1.Row = DataGrid1.Row + 1
    DataGrid1.Col = 2
    Exit Sub

End If

and I have similar code for the arrow keys and enter. The problem is that if the user is on the last visible record, the grid will advance but the column value will be 0, as in the cursor will not automatically go to Column 2.

Please help, I need it!

Andrew

[DrewDog_21]

ended up answering my own question here, so for those of you who may be doing a search later and open this thread, here is what I did:

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

If Not IsEmpty(LastRow) Then
    DataGrid1.Col = LastCol
    DataGrid1.CurrentCellVisible = True

End If

End Sub

Private Sub DataGrid1_KeyDown(KeyCode As Integer, Shift As Integer)

If Not Adodc1.Recordset.EOF Then
     If DataGrid1.Col = 6 And (KeyCode = vbKeyTab Or KeyCode = vbKeyReturn) _
       Or KeyCode = vbKeyDown then
         Adodc1.Recordset.MoveNext

     End If
End If

If Not Adodc1.BOF Then
     If KeyCode = vbKeyUp Then
          Adodc1.Recordset.MovePrevious

     End If
End If

End Sub