Rc Problem...

(in my example mGrid ist the ReportControl and mEditRow ist the FocusedRow)

 

Private Sub mGrid_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next

   If Shift = 0 Then
      Select Case KeyCode
     
      Case vbKeySpace
         If mEditMode Then
            If mEditRow.Record(mEditIndex).HasCheckbox Then
               mEditRow.Record(mEditIndex).Checked = Not mEditRow.Record(mEditIndex).Checked
               mEditRow.Record(mEditIndex).Value = mEditRow.Record(mEditIndex).Checked
            End If
         End If
      end Select         
   End If
End Sub