Version =20
VersionRequired =20
Checksum =172622274
Begin Form
    PopUp = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    TabularFamily =48
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =22961
    DatasheetFontHeight =10
    ItemSuffix =2
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0x70837870aac7e440
    End
    OnOpen ="Mkr_Max"
    DatasheetFontName ="Arial"
    Begin
        Begin Label
            BackStyle =0
            FontName ="Tahoma"
        End
        Begin CommandButton
            Width =1701
            Height =283
            FontSize =8
            FontWeight =400
            ForeColor =-2147483630
            FontName ="Tahoma"
        End
        Begin Subform
            SpecialEffect =2
            Width =1701
            Height =1701
        End
        Begin FormHeader
            Height =566
            BackColor =16777164
            Name ="Formularkopf"
            GUID = Begin
                0xe769c761c7c14b4584c977768f9b5b2e
            End
        End
        Begin Section
            CanGrow = NotDefault
            Height =7811
            Name ="Detailbereich"
            GUID = Begin
                0x648bbe2858e7714f829bb5e52ab4d179
            End
            Begin
                Begin Subform
                    OverlapFlags =215
                    Left =56
                    Top =56
                    Width =22905
                    Height =7755
                    Name ="qry_EmpfehlungenEnergieBearbeiten1"
                    SourceObject ="Form.frm_EmpfehlungenEnergieBearbeiten1"
                    GUID = Begin
                        0x66ad7e9f1157984188867858517a8392
                    End
                    Begin
                        Begin Label
                            OverlapFlags =93
                            Left =56
                            Width =2835
                            Height =240
                            Name ="Bezeichnungsfeld0"
                            Caption ="qry_EmpfehlungenEnergieBearbeiten1"
                            GUID = Begin
                                0xbe5f2b845952874cb43877914d6f49a8
                            End
                        End
                    End
                End
            End
        End
        Begin FormFooter
            Height =566
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0xd302f0dc223c2b4e96124b83a31f08a1
            End
            Begin
                Begin CommandButton
                    OverlapFlags =85
                    Left =285
                    Top =120
                    Width =8400
                    Height =405
                    Name ="Befehl1"
                    Caption ="Empfehlungen anlegen -> Haupt Formular Agent APR Lead System wählen und WV Art W"
                        "V Energie Empfehlungen"
                    OnClick ="[Event Procedure]"
                    GUID = Begin
                        0x2ff986f777e1aa4bb932dc33cfec6d01
                    End
                End
            End
        End
    End
End
CodeBehindForm
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Compare Database

Private Sub Befehl1_Click()
On Error GoTo Err_Befehl1_Click

    Dim stDocName As String

    stDocName = "qry_EmpfehlungenEnergieBearbeiten2"
    DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Befehl1_Click:
    Exit Sub

Err_Befehl1_Click:
    MsgBox Err.Description
    Resume Exit_Befehl1_Click
    
End Sub