Private Sub Display_Grid
 
 
Dim rst As New ADODB.Recordset
Dim strsQL As String
 
 
lngRechnungID = Me.Parent.RechnungID
 
strsQL = "Select * from view_Rechnung_AR_U1 where RechnungID = " & _
  Me.Parent.RechnungID & _
         " Order by AuftragID"
 
rst.Open strsQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
 
      With Me.ctrl_Grid
 
        .Clear True
        .CreateClone = True
 
        .LockUpdate True
        .BackColorEven = glngFarbe1
        .BackColorOdd = glngFarbe2
        .ColumnHeaderBackColor = glngFarbe1
        .Font = "Verdana"
        .FontSize = 8
        .WheelMouse = True
        .ScrollBarStyle = 0
        .ScrollBtnBackColor = glngFarbe1
        .AllowColumnClick = True
        .AllowColumnSizing = True
        .AllowDelete = False
 
            If Me.Parent.StatusID = 0 Then
                .AllowEdit = True
            Else
                .AllowEdit = False
            End If
 
        .AllowMultiSelect = False
        .AutoSort = True
        .AutoUpdate = True
        .ShowSortSymbols = True
        .CheckBoxStyle = 1
        .ScrollBars = SB_VERTICAL
 
        .FilterVisible = True
        .FilterMoveTAB = True
        .Icons.Add LoadPicture("W:\IMSCargo\Icon\filter.ico")
 
        .CaptionVisible = True
        .CaptionFont.Name = "Verdana"
        .CaptionFont.Bold = True
        .Caption = "Aufträge"
        .CaptionBackColorFrom = glngFarbe1
        .CaptionBackColorTo = glngFarbe2
        .CaptionForeColor = glngFarbe3
 
         Set .Recordset = rst
 
 
 
        .Columns(1).Visible = False ' DetailID
        .Columns(2).Visible = False ' RechnungID
        .Columns(3).Width = 1000
        .Columns(4).Width = 1800
        .Columns(5).Width = 2000
        .Columns(6).Width = 2500
        .Columns(7).Width = 4000
        .Columns(8).DisplayFormat = "#,##0.00"
        .Columns(9).Width = 500
        .Columns(10).Width = 1000
        .Columns(11).Width = 500
        '.Columns(4).DisplayFormat = "#,##0.00"
 
        .Columns(3).Caption = "Auftrag"
        .Columns(4).Caption = "Container"
        .Columns(5).Caption = "Staffel"
        .Columns(7).Caption = "Info"
        .Columns(8).Caption = "Netto"
        .Columns(9).Caption = "%"
        .Columns(10).Caption = "NSpesen"
        .Columns(11).Caption = "Pool"
 
        .Columns(2).LockEdit = True
        .Columns(3).LockEdit = True
        .Columns(4).LockEdit = True
        .Columns(5).LockEdit = True
        .Columns(6).LockEdit = True
        .Columns(7).LockEdit = True
        .Columns(9).LockEdit = True
        .Columns(10).LockEdit = True
        .Columns(11).LockEdit = True
 
        .Columns(8).Button = True
 
 
    .LockUpdate False
    .Refresh
    .Row = 1
 
 
  End With
 
    rst.Close
    Set rst = Nothing
 
End Sub

..
..
..
 
strsQL = "sp_Rechnung_AR_U1_Eintragen_AR @RechnungID = " & Me.Parent.RechnungID _
  & _
         ", @AuftragID = " & varAuftragID & _
         ", @ErstelltVon = '" & gstrKurzName & "'"
 
rstInsert.ActiveConnection = CurrentProject.Connection
rstInsert.CommandText = strsQL
rstInsert.Execute
 
' ---------------------------------------------------------------------
' Ist nur drinnen weil es beim leeren Grid nicht funzt!
' -----------------------------------------------------------------------
 
If Me.ctrl_Grid.Rows = 0 Then
    Me.Requery
Else
    Display_Grid End If

Call Display_Grid