' veraendertes Form_frm_sevDataGridDemo
 
Private Sub Grid1_CellClick(ByVal nRow As Long, ByVal nCol As Long, ByVal _
  Button As Integer, ByVal Shift As Integer)
 
    If Button = 2 Then ShowContextMenu
 
End Sub
 
Private Sub Grid1_Click(Button As Integer, Shift As Integer)
 
    If Button = 2 Then ShowContextMenu
 
End Sub
 
Private Sub ShowContextMenu()
 
    With CommandBars("xxxx")
        .Controls("mak_loeschen").Enabled = Grid1.Row > 0
        .ShowPopup
    End With
 
End Sub
 
Public Sub DeleteCurrent()
 
    If Grid1.Row = 0 Then Exit Sub
 
    Grid1.DeleteSelectedRows
 
End Sub
 
Public Sub AddNew()
 
    With Grid1
        .AddNew
    End With
 
End Sub
 
 
' modul, funktionen, die ueber makros durch das kontextmenue aufgerufen werden
 
Public Function Neu() As Integer
 
    Form_frm_sevDataGridDemo.AddNew
 
End Function
 
Public Function Loeschen() As Integer
 
    Form_frm_sevDataGridDemo.DeleteCurrent
 
End Function