VERSION 5.00 Begin {78E93846-85FD-11D0-8487-00A0C90DC8A9} ReportHotelabrechnung Caption = "Hotelabrechnung" ClientHeight = 10260 ClientLeft = 165 ClientTop = 450 ClientWidth = 5280 StartUpPosition = 3 'Windows-Standard _ExtentX = 9313 _ExtentY = 18098 _Version = 393216 _DesignerVersion= 100684101 ReportWidth = 3876 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty GridX = 4 GridY = 4 LeftMargin = 200 RightMargin = 50 BottomMargin = 200 _Settings = 31 NumSections = 3 SectionCode0 = 1 BeginProperty Section0 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "Bereich4" Object.Height = 2085 NumControls = 4 ItemType0 = 3 BeginProperty Item0 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "lblTagesumsatz" Object.Top = 1417 Object.Width = 3795 Object.Height = 390 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 14.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Object.Caption = "Hotelabrechnung" Alignment = 2 EndProperty ItemType1 = 3 BeginProperty Item1 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "lblDatum" Object.Top = 1843 Object.Width = 3795 Object.Height = 225 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Object.Caption = "Datum" Alignment = 2 EndProperty ItemType2 = 3 BeginProperty Item2 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "lblAdresse" Object.Top = 1134 Object.Width = 3795 Object.Height = 225 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Object.Caption = "Adresse" Alignment = 2 EndProperty ItemType3 = 7 BeginProperty Item3 {1C13A8E5-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "Symbol1" Object.Width = 3750 Object.Height = 1065 SizeMode = 2 EndProperty EndProperty SectionCode1 = 4 BeginProperty Section1 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "Bereich1" Object.Height = 3825 NumControls = 28 ItemType0 = 4 BeginProperty Item0 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "txtZimmerEPUerbernachtungen" Object.Left = 1984 Object.Top = 1843 Object.Width = 795 Object.Height = 255 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Alignment = 1 BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} Type = 1 Format = "#.##0,00 ""€""" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1031 SubFormatType = 2 EndProperty EndProperty ItemType1 = 4 BeginProperty Item1 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "txtUerbernachtungen" Object.Top = 1843 Object.Width = 1245 Object.Height = 255 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} Type = 0 Format = "" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1031 SubFormatType = 0 EndProperty EndProperty ItemType2 = 4 BeginProperty Item2 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "txtZimmerGPUerbernachtungen" Object.Left = 2976 Object.Top = 1843 Object.Width = 900 Object.Height = 255 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Alignment = 1 BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} Type = 1 Format = "#.##0,00 ""€""" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1031 SubFormatType = 2 EndProperty EndProperty ItemType3 = 3 BeginProperty Item3 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "lblMwSt19" Object.Left = 1417 Object.Top = 1843 Object.Width = 450 Object.Height = 255 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Object.Caption = "19%" EndProperty ItemType4 = 3 BeginProperty Item4 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "lblMwSt7" Object.Left = 1417 Object.Top = 2126 Object.Width = 330 Object.Height = 240 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Object.Caption = "7%" EndProperty ItemType5 = 4 BeginProperty Item5 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "txtFruehstueck" Object.Top = 2126 Object.Width = 1245 Object.Height = 255 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} Type = 0 Format = "" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1031 SubFormatType = 0 EndProperty EndProperty ItemType6 = 4 BeginProperty Item6 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "txtZimmerEPFruehstueck" Object.Left = 1984 Object.Top = 2126 Object.Width = 780 Object.Height = 255 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Alignment = 1 BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} Type = 1 Format = "#.##0,00 ""€""" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1031 SubFormatType = 2 EndProperty EndProperty ItemType7 = 4 BeginProperty Item7 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "txtZimmerGPFruehstueck" Object.Left = 2976 Object.Top = 2126 Object.Width = 900 Object.Height = 255 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Alignment = 1 BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} Type = 1 Format = "#.##0,00 ""€""" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1031 SubFormatType = 2 EndProperty EndProperty ItemType8 = 3 BeginProperty Item8 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "lblNetto" Object.Left = 1843 Object.Top = 2693 Object.Width = 840 Object.Height = 240 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Object.Caption = "Netto" Alignment = 1 EndProperty ItemType9 = 3 BeginProperty Item9 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "lblBrutto" Object.Left = 2835 Object.Top = 2693 Object.Width = 990 Object.Height = 240 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Object.Caption = "Brutto" Alignment = 1 EndProperty ItemType10 = 3 BeginProperty Item10 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "Bezeichnung1" Object.Top = 3260 Object.Width = 900 Object.Height = 225 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Object.Caption = "Beträge 7% MSt" EndProperty ItemType11 = 3 BeginProperty Item11 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "Bezeichnung2" Object.Top = 2976 Object.Width = 1410 Object.Height = 255 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Object.Caption = "Beträge 19% MSt" EndProperty ItemType12 = 5 BeginProperty Item12 {1C13A8E3-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "Linie1" Object.Top = 1134 Object.Width = 3685 EndProperty ItemType13 = 5 BeginProperty Item13 {1C13A8E3-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "Linie3" Object.Top = 1701 Object.Width = 3827 EndProperty ItemType14 = 3 BeginProperty Item14 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "lblLeistungen" Object.Top = 1275 Object.Width = 1140 Object.Height = 255 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Object.Caption = "Leistungen" Alignment = 1 EndProperty ItemType15 = 3 BeginProperty Item15 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "lblUstCode" Object.Left = 1417 Object.Top = 1134 Object.Width = 570 Object.Height = 450 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Object.Caption = "Ust- Code" CanGrow = -1 'True EndProperty ItemType16 = 3 BeginProperty Item16 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "lblEinzelpreis" Object.Left = 2126 Object.Top = 1134 Object.Width = 675 Object.Height = 450 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Object.Caption = "Einzel- preis" CanGrow = -1 'True EndProperty ItemType17 = 3 BeginProperty Item17 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "lblGesamtPreis" Object.Left = 3118 Object.Top = 1134 Object.Width = 690 Object.Height = 450 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Object.Caption = "Gesmt- preis" CanGrow = -1 'True EndProperty ItemType18 = 5 BeginProperty Item18 {1C13A8E3-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "Linie2" Object.Top = 3685 Object.Width = 3825 EndProperty ItemType19 = 3 BeginProperty Item19 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "lblAbreise" Object.Top = 425 Object.Width = 900 Object.Height = 255 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Object.Caption = "Abreise:" EndProperty ItemType20 = 3 BeginProperty Item20 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "lblAnreise" Object.Top = 142 Object.Width = 855 Object.Height = 255 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Object.Caption = "Anreise:" EndProperty ItemType21 = 4 BeginProperty Item21 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "txtAnreise" Object.Left = 992 Object.Top = 142 Object.Width = 990 Object.Height = 255 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} Type = 0 Format = "#.##0,00 ""€""" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1031 SubFormatType = 0 EndProperty EndProperty ItemType22 = 4 BeginProperty Item22 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "txtAbreise" Object.Left = 992 Object.Top = 425 Object.Width = 990 Object.Height = 255 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} Type = 0 Format = "#.##0,00 ""€""" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1031 SubFormatType = 0 EndProperty EndProperty ItemType23 = 4 BeginProperty Item23 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "txtNettoUerbernachtung" Object.Left = 1559 Object.Top = 2976 Object.Width = 1140 Object.Height = 255 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Alignment = 1 BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} Type = 1 Format = "#.##0,00 ""€""" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1031 SubFormatType = 2 EndProperty EndProperty ItemType24 = 4 BeginProperty Item24 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "txtBruttoUerbernachtung" Object.Left = 2693 Object.Top = 2976 Object.Width = 1140 Object.Height = 255 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Alignment = 1 BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} Type = 1 Format = "#.##0,00 ""€""" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1031 SubFormatType = 2 EndProperty EndProperty ItemType25 = 4 BeginProperty Item25 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "txtNettoFruehstueck" Object.Left = 1559 Object.Top = 3260 Object.Width = 1140 Object.Height = 255 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Alignment = 1 BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} Type = 1 Format = "#.##0,00 ""€""" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1031 SubFormatType = 2 EndProperty EndProperty ItemType26 = 4 BeginProperty Item26 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "txtBruttoFruehstueck" Object.Left = 2693 Object.Top = 3260 Object.Width = 1140 Object.Height = 255 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Alignment = 1 BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} Type = 1 Format = "#.##0,00 ""€""" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1031 SubFormatType = 2 EndProperty EndProperty ItemType27 = 5 BeginProperty Item27 {1C13A8E3-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "Linie5" Object.Top = 2551 Object.Width = 3825 EndProperty EndProperty SectionCode2 = 8 BeginProperty Section2 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "Bereich5" Object.Height = 629 NumControls = 2 ItemType0 = 3 BeginProperty Item0 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "lblGesamtSumme" Object.Top = 142 Object.Width = 1365 Object.Height = 283 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 14.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Object.Caption = "Total" EndProperty ItemType1 = 3 BeginProperty Item1 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} _Version = 393216 Name = "lblSummeGesamt" Object.Left = 2268 Object.Top = 142 Object.Width = 1500 Object.Height = 285 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 14.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Object.Caption = "Total" Alignment = 1 EndProperty EndProperty End Attribute VB_Name = "ReportHotelabrechnung" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Sub BerichtHotelAbrechnung() Dim objConn As ADODB.Connection Dim rsHotelAbrechnung As ADODB.Recordset Dim rsMaxCount As ADODB.Recordset Dim strPath As String Set objConn = New ADODB.Connection Set rsHotelAbrechnung = New ADODB.Recordset Set rsMaxCount = New ADODB.Recordset On Error GoTo err_Handler strPath = App.Path If Right$(strPath, 1) <> "\" Then strPath = strPath & "\" With objConn .Provider = "Microsoft Jet 4.0 OLE DB Provider" .Properties("Jet OLEDB:Database Password") = VarPasswordDatenbank .ConnectionString = "Data Source=" & VarDatenbank .CursorLocation = adUseClient .Open End With With rsMaxCount .ActiveConnection = objConn .CursorLocation = adUseClient .LockType = adLockOptimistic .Open "Select max(ID) as wert FROM AbrechnungHotel" End With Set frmSchnellwahltaste.MSHFlexGrid1.DataSource = rsMaxCount VarMaxID = frmSchnellwahltaste.MSHFlexGrid1.Text frmSchnellwahltaste.MSHFlexGrid1.Text = "" With rsHotelAbrechnung .ActiveConnection = objConn .CursorLocation = adUseClient .LockType = adLockOptimistic .Open "Select Anreise, Abreise, TextUerbernachtungen, TextFruehstueck, ZimmerEPÜ AS ZimmerEPÜBrutto, ZimmerGPÜ AS ZimmerGPÜBrutto,ZimmerGPÜBrutto/1.19 AS ZimmerGPÜNetto, ZimmerEPF AS ZimmerEPFBrutto, ZimmerGPF AS ZimmerGPFBrutto, ZimmerGPFBrutto/1.07 AS ZimmerGPFNetto, Gesamt AS SummeGesamt from AbrechnungHotel Where ID = " & VarMaxID & " " '.Open "Select *from AbrechnungHotel Where ID = " & VarMaxID & " " 'SQL = "SELECT * FROM Termine WHERE Datum = #" & Format$(Now, "m-d-yy") & "#" End With Set Me.DataSource = rsHotelAbrechnung Set Me.Sections("Bereich4").Controls("Symbol1").Picture = LoadPicture(App.Path & "\Logos\Logo_Lokal.emf") Me.Sections("Bereich4").Controls("lblAdresse").Caption = "Gutenbergstr. 20 - 67346 Speyer - Tel:74611" Me.Sections("Bereich4").Controls("lblDatum").Caption = Date Me.Sections("Bereich1").Controls("txtAnreise").DataField = rsHotelAbrechnung.Fields("Anreise").Name Me.Sections("Bereich1").Controls("txtAbreise").DataField = rsHotelAbrechnung.Fields("Abreise").Name Me.Sections("Bereich1").Controls("txtUerbernachtungen").DataField = rsHotelAbrechnung.Fields("TextUerbernachtungen").Name Me.Sections("Bereich1").Controls("txtFruehstueck").DataField = rsHotelAbrechnung.Fields("TextFruehstueck").Name Me.Sections("Bereich1").Controls("txtZimmerEPUerbernachtungen").DataField = rsHotelAbrechnung.Fields("ZimmerEPÜBrutto").Name Me.Sections("Bereich1").Controls("txtZimmerGPUerbernachtungen").DataField = rsHotelAbrechnung.Fields("ZimmerGPÜBrutto").Name Me.Sections("Bereich1").Controls("txtZimmerEPFruehstueck").DataField = rsHotelAbrechnung.Fields("ZimmerEPFBrutto").Name Me.Sections("Bereich1").Controls("txtZimmerGPFruehstueck").DataField = rsHotelAbrechnung.Fields("ZimmerGPFBrutto").Name Me.Sections("Bereich1").Controls("txtNettoUerbernachtung").DataField = rsHotelAbrechnung.Fields("ZimmerGPÜNetto").Name Me.Sections("Bereich1").Controls("txtBruttoUerbernachtung").DataField = rsHotelAbrechnung.Fields("ZimmerGPÜBrutto").Name Me.Sections("Bereich1").Controls("txtNettoFruehstueck").DataField = rsHotelAbrechnung.Fields("ZimmerGPFNetto").Name Me.Sections("Bereich1").Controls("txtBruttoFruehstueck").DataField = rsHotelAbrechnung.Fields("ZimmerGPFBrutto").Name Me.Sections("Bereich5").Controls("lblSummeGesamt").Caption = Format(rsHotelAbrechnung.Fields("SummeGesamt").Value, "Currency") Me.Show 1 'me.PrintReport Set objConn = Nothing Set rsHotelAbrechnung = Nothing Set rsMaxCount = Nothing exit_Sub: On Error GoTo 0 Set objConn = Nothing Set rsHotelAbrechnung = Nothing Set rsMaxCount = Nothing Exit Sub err_Handler: MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _ vbCritical, "Fehler" Resume exit_Sub Set objConn = Nothing Set rsHotelAbrechnung = Nothing Set rsMaxCount = Nothing End Sub Sub EintragenHotelAbrechnung() Dim objConn As ADODB.Connection Dim rsHotelAbrechnung As ADODB.Recordset Dim strPath As String Set objConn = New ADODB.Connection Set rsHotelAbrechnung = New ADODB.Recordset On Error GoTo err_Handler strPath = App.Path If Right$(strPath, 1) <> "\" Then strPath = strPath & "\" With objConn .Provider = "Microsoft Jet 4.0 OLE DB Provider" .Properties("Jet OLEDB:Database Password") = VarPasswordDatenbank .ConnectionString = "Data Source=" & VarDatenbank .CursorLocation = adUseClient .Open End With 'Tabelle OffeneTische öffnen With rsHotelAbrechnung .ActiveConnection = objConn .CursorLocation = adUseClient .LockType = adLockOptimistic .Open "Select *from AbrechnungHotel Where Datum = #" & Format$(Date, "mm-dd-yyyy") & "#" 'SQL = "SELECT * FROM Termine WHERE Datum = #" & Format$(Now, "m-d-yy") & "#" End With Set Me.DataSource = rsHotelAbrechnung 'Set Me.Sections("Bereich4").Controls("Symbol1").Picture = LoadPicture(App.Path & "\Logos\Logo_Lokal.emf") Me.Sections("Bereich4").Controls("lblAdresse").Caption = "Gutenbergstr. 20 - 67346 Speyer - Tel:74611" Me.Sections("Bereich4").Controls("lblDatum").Caption = Date 'Me.Sections("Bereich1").Controls("txtAnreise").Text = rsHotelAbrechnung.Fields("Anreise").Value 'Me.Sections("Bereich1").Controls("txtAbreise").Text = rsHotelAbrechnung.Fields("Abreise").Value Me.Sections("Bereich1").Controls("txtUerbernachtungen").DataField = rsHotelAbrechnung.Fields("TextUerbernachtungen").Name Me.Sections("Bereich1").Controls("txtFruehstueck").DataField = rsHotelAbrechnung.Fields("TextFruehstueck").Name Me.Sections("Bereich1").Controls("txtZimmerEPFruehstueck").DataField = rsHotelAbrechnung.Fields("ZimmerEPFBrutto").Name '- rsHotelAbrechnung.Fields("ZimmerEPÜ").Name) Me.Sections("Bereich1").Controls("txtZimmerEPUerbernachtungen").DataField = rsHotelAbrechnung.Fields("ZimmerEPÜBrutto").Name Me.Sections("Bereich1").Controls("txtZimmerGPUerbernachtungen").DataField = rsHotelAbrechnung.Fields("ZimmerGPÜF").Name '- rsHotelAbrechnung.Fields("ZimmerGPÜF").Name Me.Sections("Bereich1").Controls("txtZimmerGPFruehstueck").DataField = rsHotelAbrechnung.Fields("ZimmerGPÜ").Name Me.Sections("Bereich5").Controls("lblNetto").Caption = "Netto" Me.Show 1 'me.PrintReport Set objConn = Nothing Set rsHotelAbrechnung = Nothing exit_Sub: On Error GoTo 0 Set objConn = Nothing Set rsHotelAbrechnung = Nothing Exit Sub err_Handler: MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _ vbCritical, "Fehler" Resume exit_Sub Set objConn = Nothing Set rsHotelAbrechnung = Nothing End Sub