Private Sub Grid1_CellDblClick(ByVal nRow As Long, ByVal nCol As Long)
  If nCol = 4 Then
    With Grid1
      DoCmd.OpenForm "frm_SMC_Input", , , , , acDialog, .Text(nRow, nCol)
      .Recordset.Edit  ' nur falls DAO!
      .Recordset.Fields(nCol - 1) = sInputChange
      .Recordset.Update
      .RowRefresh
    End With
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de