MSFlexGrid Cell Editing

[MiziaQ]

Hey, how can I allow the user to edit ANY cell from any row and column in an msflexgrid ? I found the following code, but it only allows input for the first column. Thank you in advance.

Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)

Dim sTemp As String

With MSFlexGrid1

sTemp = .TextMatrix(.row, .Col)

Select Case KeyAscii
Case 8 ' backspace
If Len(sTemp) > 0 Then
sTemp = Left$(sTemp, Len(sTemp) - 1)
End If
Case 27 ' escape
sTemp = ""
Case 0 To 31
KeyAscii = 0
Case Else
sTemp = sTemp & Chr$(KeyAscii)
End Select
.TextMatrix(.row, .Col) = sTemp
End With

End Sub

[QVeen72]

Hi,

For "Enter" key press, you need to move on to new cell..
Roughly like this:

Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
 
Dim sTemp As String
 
With MSFlexGrid1
 
sTemp = .TextMatrix(.row, .Col)
 
Select Case KeyAscii
Case 13  'Enter Key
 .TextMatrix(.Row, .Col  ) =sTemp
  If .Col = .Cols-1 Then
      If .Row = .Rows - 1 Then
         sTemp = ""
         Exit Sub
      Else
          .Row = .Row +1
          .Col = 1 'Make this zero if First Col also is edittable
         sTemp = .TextMatrix(.row, .Col)
      End If
  Else
      .Col = .Col + 1
         sTemp = .TextMatrix(.row, .Col)
  End If
Case 8 ' backspace
If Len(sTemp) > 0 Then
sTemp = Left$(sTemp, Len(sTemp) - 1)
End If
Case 27 ' escape
sTemp = ""
Case 0 To 31
KeyAscii = 0
Case Else
sTemp = sTemp & Chr$(KeyAscii)
End Select
.TextMatrix(.row, .Col) = sTemp
End With
 
End Sub
 

Regards
Veena

[realwish]

How Can We Send Data From Msflexgrid To The Msaccess[img]