..
..
..
 
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

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de