Version =20
VersionRequired =20
Checksum =-1248941718
Begin Form
    PopUp = NotDefault
    Modal = NotDefault
    RecordSelectors = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    AutoCenter = NotDefault
    AllowDeletions = NotDefault
    CloseButton = NotDefault
    AllowAdditions = NotDefault
    DataEntry = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    ScrollBars =0
    ViewsAllowed =1
    TabularFamily =48
    BorderStyle =3
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =24120
    DatasheetFontHeight =10
    ItemSuffix =139
    Left =4110
    Top =7485
    Right =21990
    Bottom =18480
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0xc682d54bf8a3e340
    End
    Caption ="IT-Max GmbH Terminierung"
    OnCurrent ="Mkr_Max"
    OnOpen ="Mkr_Max"
    DatasheetFontName ="Arial"
    PrtMip = Begin
        0xae050000a9050000a9050000a90500000000000094390000041f000001000000 ,
        0x010000006801000000000000a10700000100000001000000
    End
    PrtDevMode = Begin
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x010406039c003c091fd30100010009009a0b3408640001000700580201000100 ,
        0x5802010000004134000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000010060b00 ,
        0x5052495600200000049808000000010101100000180000000000102710271027 ,
        0x000010270000000000000000ff00000000000100000002000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x000000000000000000000000e80f010001000100010000000000000000000001 ,
        0x0200000000000000000064000000000000000000010001000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0xbb02880400000300000000000000000000000000000001000000750701000000 ,
        0x09000900000000000000ffff2000070007000700000000000000000081000000 ,
        0x000000000000000002000000070000000000000000190000e40c000000000000 ,
        0xb80b00007017000000000000dc05000058020000000000000000000000000000 ,
        0xfeff0000000000000000000000000000000000000000000000000000370c0000 ,
        0xda0c000010270000102700001027000010270000a00a0000c2060000b8060000 ,
        0x2c04000040010000d20000000000000000000000000000000000000000000000 ,
        0x000000000000ffff000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x000000000000000041004300450052002d003000310000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x00000000000000000000000000000000fffffffffefffffffefffffffeffffff ,
        0xfefffffffefffffffefffffffefffffffefffffffefffffffefffffffeffffff ,
        0xfefffffffefffffffefffffffefffffffefffffffefffffffefffffffeffffff ,
        0xfefffffffefffffffffffffffeffffff4745524d414e00000000000000000000 ,
        0x420052004d00530031003000340042002e004500580045000000000000000000 ,
        0x420052004c004d0046003000340042002e0044004c004c000000000000000000 ,
        0x420052004200370035003000340042002e0044004c004c000000000000000000 ,
        0x42004f0037003800320030004e002e0049004e00490000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000007000804000000000000000000000000 ,
        0x0100ffff000000000e0100000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x00000000c6008800000064000000000001010000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x000000000000000000000000000000000000000006000000f5ffffff00000000 ,
        0x000000000000000000000000000000010000000041007200690061006c000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x000000000000000000000000000000000000000000000000ffffff0001000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x000000000000000000000000000000000000000000000000ffffffff64000000 ,
        0x0000000000000080460061006200690061006e002e004c00650069006e006800 ,
        0x6f00730000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000010000000000000000000000000000000100000042524c4d ,
        0x463034422e444c4c000000000000000000000000454f5343
    End
    PrtDevNames = Begin
        0x080022003c000100000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000049505f31 ,
        0x39322e3136382e3130302e323100
    End
    Moveable =0
    AllowDatasheetView =0
    AllowPivotTableView =0
    AllowPivotChartView =0
    AllowPivotChartView =0
    Begin
        Begin Label
            BackStyle =0
            FontName ="Tahoma"
        End
        Begin Line
            Width =1701
        End
        Begin Image
            BackStyle =0
            OldBorderStyle =0
            PictureAlignment =2
            Width =1701
            Height =1701
        End
        Begin CommandButton
            Width =1701
            Height =283
            FontSize =8
            FontWeight =400
            ForeColor =-2147483630
            FontName ="Tahoma"
        End
        Begin CheckBox
            SpecialEffect =2
            LabelX =230
            LabelY =-30
        End
        Begin TextBox
            FELineBreak = NotDefault
            SpecialEffect =2
            OldBorderStyle =0
            Width =1701
            LabelX =-1701
            FontName ="Tahoma"
            AsianLineBreak =255
        End
        Begin ListBox
            SpecialEffect =2
            Width =1701
            Height =1417
            LabelX =-1701
            FontName ="Tahoma"
        End
        Begin ComboBox
            SpecialEffect =2
            Width =1701
            LabelX =-1701
            FontName ="Tahoma"
        End
        Begin Subform
            SpecialEffect =2
            Width =1701
            Height =1701
        End
        Begin Tab
            Width =5103
            Height =3402
            FontName ="Tahoma"
        End
        Begin Page
            Width =1701
            Height =1701
        End
        Begin FormHeader
            CanGrow = NotDefault
            Height =570
            BackColor =16777164
            Name ="Formularkopf"
            GUID = Begin
                0xa5b7d4600a4ddc4bbdc71db69db69de3
            End
            Begin
                Begin Label
                    OverlapFlags =93
                    Left =4200
                    Top =330
                    Width =1680
                    Height =225
                    Name ="Bezeichnungsfeld95"
                    Caption ="AD auswählen"
                    FontName ="Arial"
                    GUID = Begin
                        0xc214da36ba18e94eba1fdfcfdc4bd802
                    End
                End
                Begin ComboBox
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =215
                    BackStyle =0
                    IMESentenceMode =3
                    Left =4200
                    Width =3960
                    Height =345
                    FontSize =12
                    BorderColor =16777164
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0x11f8873003384249aea5a3a157975ea6
                    End
                    Name ="AD"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_ADAktiv2"
                    DefaultValue ="=\"*\""
                    FontName ="Arial"
                End
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =93
                    BackStyle =0
                    IMESentenceMode =3
                    Left =13039
                    Top =8
                    Width =1695
                    Height =330
                    FontSize =12
                    TabIndex =1
                    BorderColor =16777164
                    Name ="Von"
                    Format ="Short Date"
                    DefaultValue ="=Date()"
                    FontName ="Arial"
                    InputMask ="00,00,0000;0;_"
                    GUID = Begin
                        0x6299c144179e8044b76762ef9013ca8f
                    End
                End
                Begin Label
                    OverlapFlags =87
                    Left =13035
                    Top =345
                    Width =1530
                    Height =225
                    Name ="Bezeichnungsfeld97"
                    Caption ="Von Datum"
                    FontName ="Arial"
                    GUID = Begin
                        0xbdd2fb66c32e7141a5cb3b71de3a8a57
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =85
                    BackStyle =0
                    IMESentenceMode =3
                    Left =15300
                    Width =1695
                    Height =330
                    FontSize =12
                    TabIndex =2
                    BorderColor =16777164
                    Name ="Bis"
                    Format ="Short Date"
                    DefaultValue ="=Date()"
                    FontName ="Arial"
                    InputMask ="00,00,0000;0;_"
                    GUID = Begin
                        0x962e935cec39214698f4f45e067b6b85
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =15300
                            Top =340
                            Width =1530
                            Height =225
                            Name ="Bezeichnungsfeld101"
                            Caption ="Bis Datum"
                            FontName ="Arial"
                            GUID = Begin
                                0x8f934a77239b564d8da7d687299facff
                            End
                        End
                    End
                End
                Begin Label
                    OverlapFlags =93
                    Top =330
                    Width =2085
                    Height =225
                    Name ="Bezeichnungsfeld135"
                    Caption ="Tabelle Abfrage auswählen"
                    FontName ="Arial"
                    GUID = Begin
                        0x1e47117880205a4ab2c9f7e2d3e575ad
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =215
                    BackStyle =0
                    IMESentenceMode =3
                    Width =3960
                    Height =345
                    FontSize =12
                    TabIndex =3
                    BorderColor =16777164
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0xdede5d355c48344597a070c30d102a5d
                    End
                    Name ="Tabelle Abfrage"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_FilterAuswahlAuswertungen"
                    FontName ="Arial"
                    EventProcPrefix ="Tabelle_Abfrage"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =17265
                    Width =351
                    Height =345
                    TabIndex =4
                    Name ="Befehl137"
                    Caption ="OK"
                    OnClick ="Mkr_Terminauswertung"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                        0xffff0000ffffff00dadadadadadadadaadadadadadadadad00000000000adada ,
                        0x003333333330adad0b03333333330ada0fb03333333330ad0bfb03333333330a ,
                        0x0fbfb000000000000bfbfbfbfb0adada0fbfbfbfbf0dadad0bfb0000000adada ,
                        0xa000adadadad000ddadadadadadad00aadadadad0dad0d0ddadadadad000dada ,
                        0xadadadadadadadad
                    End
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    ControlTipText ="Befehl ausführen"
                    GUID = Begin
                        0x1e989072a9407a4782ba45893ebc2351
                    End
                End
                Begin Label
                    OverlapFlags =93
                    Left =8280
                    Top =330
                    Width =1545
                    Height =225
                    Name ="Bezeichnungsfeld105"
                    Caption ="Agent auswählen"
                    FontName ="Arial"
                    GUID = Begin
                        0x832cb941e598b74aa1e87f9bd3bfddac
                    End
                End
                Begin ComboBox
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =215
                    BackStyle =0
                    IMESentenceMode =3
                    Left =8280
                    Width =3960
                    Height =345
                    FontSize =12
                    TabIndex =5
                    BorderColor =16777164
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0x4bc1d0632739a046a56641b44b090279
                    End
                    Name ="Agent"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_AgentAktiv"
                    DefaultValue ="=\"*\""
                    FontName ="Arial"
                End
            End
        End
        Begin Section
            CanGrow = NotDefault
            Height =12593
            Name ="Detailbereich"
            GUID = Begin
                0xb66b55a96fcc404abb929e26fd05e9c0
            End
            Begin
                Begin Subform
                    OverlapFlags =85
                    Width =24060
                    Height =12480
                    Name ="IT-Max GmbH Terminierung"
                    SourceObject ="Form.frmAuswertungADsupportdatenfrm"
                    EventProcPrefix ="IT_Max_GmbH_Terminierung"
                    GUID = Begin
                        0xe75688e51f5a404fbb280d22a3627ad2
                    End
                End
            End
        End
        Begin FormFooter
            Height =576
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0x61aadeecd58f0b4a9abec9925e0196a5
            End
            Begin
                Begin CommandButton
                    OverlapFlags =85
                    Left =225
                    Top =30
                    Width =531
                    Height =516
                    Name ="Befehl138"
                    Caption ="Befehl138"
                    OnClick ="[Event Procedure]"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                        0xffff0000ffffff00dadad0dadadadadaadad00adadadadaddad030dadadadada ,
                        0xad0330adadadadad0033300000000adaa03330ff0dadadadd03300ff0adad4da ,
                        0xa03330ff0dad44add03330ff0ad44444a03330ff0d444444d03330ff0ad44444 ,
                        0xa0330fff0dad44add030ffff0adad4daa00fffff0dadadadd00000000adadada ,
                        0xadadadadadadadad000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000
                    End
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    ControlTipText ="Formular schließen"
                    GUID = Begin
                        0xa93537922c7fdb479d727206f3e48690
                    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 Liste12_AfterUpdate()
    ' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[KD_NR] = " & Str(Nz(Me![Liste12], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub Befehl21_Click()
On Error GoTo Err_Befehl21_Click


    DoCmd.Close

Exit_Befehl21_Click:
    Exit Sub

Err_Befehl21_Click:
    MsgBox Err.Description
    Resume Exit_Befehl21_Click
    
End Sub



Private Sub Status_setzen_Click()
On Error GoTo Err_Status_setzen_Click

    Dim stDocName As String

    stDocName = "mkr_oeffnen_ungebunden_terminierung_neu"
    DoCmd.RunMacro stDocName

Exit_Status_setzen_Click:
    Exit Sub

Err_Status_setzen_Click:
    MsgBox Err.Description
    Resume Exit_Status_setzen_Click
    
End Sub
Private Sub Emailsenden_Click()
On Error GoTo Err_Emailsenden_Click

    Dim stDocName As String

    stDocName = "Mkr_EmailTerminbestaetigung"
    DoCmd.RunMacro stDocName

Exit_Emailsenden_Click:
    Exit Sub

Err_Emailsenden_Click:
    MsgBox Err.Description
    Resume Exit_Emailsenden_Click
    
End Sub
Private Sub Befehl51_Click()
On Error GoTo Err_Befehl51_Click

    Dim stDocName As String

    stDocName = "qry_Faxbestätigung"
    DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Befehl51_Click:
    Exit Sub

Err_Befehl51_Click:
    MsgBox Err.Description
    Resume Exit_Befehl51_Click
    
End Sub
Private Sub Befehl55_Click()
On Error GoTo Err_Befehl55_Click


    DoCmd.Close

Exit_Befehl55_Click:
    Exit Sub

Err_Befehl55_Click:
    MsgBox Err.Description
    Resume Exit_Befehl55_Click
    
End Sub
Private Sub Befehl66_Click()
On Error GoTo Err_Befehl66_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_terminierung_ungebunden_neu"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Befehl66_Click:
    Exit Sub

Err_Befehl66_Click:
    MsgBox Err.Description
    Resume Exit_Befehl66_Click
    
End Sub

 

Private Sub Mail_Click()
On Error GoTo Err_Mail_Click

    Dim stDocName As String
    
    stDocName = "frm_EmailTerminauswertung"
    DoCmd.OpenForm stDocName
    If ((Not IsNull(Me![Email])) And (Me![Email] <> "")) Then
        Forms![frm_Email]![An] = Me![Email]
    End If

Exit_Mail_Click:
    Exit Sub

Err_Mail_Click:
    MsgBox Err.Description
    Resume Exit_Mail_Click

End Sub
Private Sub StatusSetzen_Click()

End Sub
Private Sub Befehl72_Click()
On Error GoTo Err_Befehl72_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_EmailTerminbestaetigung"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Befehl72_Click:
    Exit Sub

Err_Befehl72_Click:
    MsgBox Err.Description
    Resume Exit_Befehl72_Click
    
End Sub
Private Sub Emails_mit_Kunden_Click()
On Error GoTo Err_Emails_mit_Kunden_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frmEmailText"
    
    stLinkCriteria = "[KD_NR]=" & Me![KD_NR]
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Emails_mit_Kunden_Click:
    Exit Sub

Err_Emails_mit_Kunden_Click:
    MsgBox Err.Description
    Resume Exit_Emails_mit_Kunden_Click
    
End Sub
Private Sub Befehl75_Click()
On Error GoTo Err_Befehl75_Click


    DoCmd.Close

Exit_Befehl75_Click:
    Exit Sub

Err_Befehl75_Click:
    MsgBox Err.Description
    Resume Exit_Befehl75_Click
    
End Sub
Private Sub Suchen_Click()
On Error GoTo Err_Suchen_Click


    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Suchen_Click:
    Exit Sub

Err_Suchen_Click:
    MsgBox Err.Description
    Resume Exit_Suchen_Click
    
End Sub
Private Sub Weitersuchen_Click()
On Error GoTo Err_Weitersuchen_Click


    Screen.PreviousControl.SetFocus
    DoCmd.FindNext

Exit_Weitersuchen_Click:
    Exit Sub

Err_Weitersuchen_Click:
    MsgBox Err.Description
    Resume Exit_Weitersuchen_Click
    
End Sub
Private Sub Befehl78_Click()
On Error GoTo Err_Befehl78_Click

    Dim stDialStr As String
    Dim PrevCtl As Control
    Const ERR_OBJNOTEXIST = 2467
    Const ERR_OBJNOTSET = 91
    Const ERR_CANTMOVE = 2483

    Set PrevCtl = Screen.PreviousControl
    
    If TypeOf PrevCtl Is TextBox Then
      stDialStr = IIf(VarType(PrevCtl) > V_NULL, PrevCtl, "")
    ElseIf TypeOf PrevCtl Is ListBox Then
      stDialStr = IIf(VarType(PrevCtl) > V_NULL, PrevCtl, "")
    ElseIf TypeOf PrevCtl Is ComboBox Then
      stDialStr = IIf(VarType(PrevCtl) > V_NULL, PrevCtl, "")
    Else
      stDialStr = ""
    End If
    
    Application.Run "utility.wlib_AutoDial", stDialStr

Exit_Befehl78_Click:
    Exit Sub

Err_Befehl78_Click:
    If (Err = ERR_OBJNOTEXIST) Or (Err = ERR_OBJNOTSET) Or (Err = ERR_CANTMOVE) Then
      Resume Next
    End If
    MsgBox Err.Description
    Resume Exit_Befehl78_Click
    
End Sub
Private Sub Befehl80_Click()
On Error GoTo Err_Befehl80_Click

    Dim stDialStr As String
    Dim PrevCtl As Control
    Const ERR_OBJNOTEXIST = 2467
    Const ERR_OBJNOTSET = 91
    Const ERR_CANTMOVE = 2483

    Set PrevCtl = Screen.PreviousControl
    
    If TypeOf PrevCtl Is TextBox Then
      stDialStr = IIf(VarType(PrevCtl) > V_NULL, PrevCtl, "")
    ElseIf TypeOf PrevCtl Is ListBox Then
      stDialStr = IIf(VarType(PrevCtl) > V_NULL, PrevCtl, "")
    ElseIf TypeOf PrevCtl Is ComboBox Then
      stDialStr = IIf(VarType(PrevCtl) > V_NULL, PrevCtl, "")
    Else
      stDialStr = ""
    End If
    
    Application.Run "utility.wlib_AutoDial", stDialStr

Exit_Befehl80_Click:
    Exit Sub

Err_Befehl80_Click:
    If (Err = ERR_OBJNOTEXIST) Or (Err = ERR_OBJNOTSET) Or (Err = ERR_CANTMOVE) Then
      Resume Next
    End If
    MsgBox Err.Description
    Resume Exit_Befehl80_Click
    
End Sub
Private Sub Befehl82_Click()
On Error GoTo Err_Befehl82_Click


    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 0, 2, acMenuVer70

Exit_Befehl82_Click:
    Exit Sub

Err_Befehl82_Click:
    MsgBox Err.Description
    Resume Exit_Befehl82_Click
    
End Sub
Private Sub Befehl83_Click()
On Error GoTo Err_Befehl83_Click


    Screen.PreviousControl.SetFocus
    DoCmd.FindNext

Exit_Befehl83_Click:
    Exit Sub

Err_Befehl83_Click:
    MsgBox Err.Description
    Resume Exit_Befehl83_Click
    
End Sub
Private Sub Befehl138_Click()
On Error GoTo Err_Befehl138_Click


    DoCmd.Close

Exit_Befehl138_Click:
    Exit Sub

Err_Befehl138_Click:
    MsgBox Err.Description
    Resume Exit_Befehl138_Click
    
End Sub