Combining 2 codes under one button (1 Viewer)

Private Sub Befehl396_Click()
   
Dim rs As DAO.Recordset
    Dim StrSQL As String
    On Error GoTo cmdRefresh_Click_Err
    If Me.Vertragsnummer <> "" Then
        'commentary
        StrSQL = "SELECT * FROM Dokumentation WHERE Vertragsnummer = '" & Me.Vertragsnummer & "'"
        Set rs = CurrentDb.OpenRecordset(StrSQL)
        If Not (rs.EOF And rs.BOF) Then
            rs.MoveLast
            rs.MoveFirst
        End If
        
        Me.txtAnruf_1 = rs("Anruf_1")
        Me.txtAnruf_2 = rs("Anruf_2")
        Me.txtAnruf_3 = rs("Anruf_3")
        Me.txtBearbeiter_VU = rs("Bearbeiter_VU")
        Me.txtKunde_erreicht = rs("Kunde_erreicht")
        Me.txtInteresse = rs("Interesse")
        Me.txtDirektgeschaeft = rs("Direktgeschaeft_versendet")
        Me.txtNeu_Abschluss = rs("Datum_Neuabschluss")
        Me.txtFuer_Outbound_nutzbar = rs("Fuer_Outbound_nutzbar")
        Me.txtTarif_versendet = rs("Tarif_versendet")
        Me.txtNeue_Vertragsnummer = rs("Neue_Vertragsnummer")
        Me.txtKontaktweg = rs("Kontaktweg")
        Me.txtFolgetermin = rs("Folgetermin")
        Me.txtReaktion_Angebot = rs("Reaktion_Angebot")
        Me.txtInsign_Flexperto = rs("Insign_Flexperto")
        Me.txtOhne_Unterschrift = rs("Ohne_Unterschrift")
        Me.txtBerater_Beteiligung = rs("Berater_Beteiligung")
        Me.Vertrag_eingerichtet = rs("Vetrag_eingerichtet")
        Me.Bausparsumme_angelegt = rs("Bausparsumme_angelegt")
        
        
        Me.Vertragsnummer.Enabled = False
        
        
        rs.Close
    Set rs = Nothing
    Else
        MsgBox ("Bitte eine Vertragsnummer wählen.")
    End If
    
    
cmdRefresh_Click_Exit:
    Exit Sub


cmdRefresh_Click_Err:
    MsgBox Error$
    Resume cmdRefresh_Click_Exit
    


End Sub

Private Sub cmdRefresh_Click()
 Dim Vertragsnummer As String
Dim stlinkcriteria As String
Vertragsnummer = Nz(Me.Vertragsnummer.Value)
stlinkcriteria = "[Vertragsnummer] = " & "'" & Vertragsnummer & "'"
If Me.Vertragsnummer = DLookup("[Vertragsnummer]", "Dokumentation", stlinkcriteria) Then

MsgBox "Dokumentation der Vertragsnummer " & Vertragsnummer & " ist schon vorhanden!" _
& vbCr & vbCr & "Bitte in Dokumentation ändern.", vbInformation, "Dokumentation vorhanden"

'Me.Undo
End If
   
Dim rs As DAO.Recordset
    Dim StrSQL As String
    On Error GoTo cmdRefresh_Click_Err
    If Me.Vertragsnummer <> "" Then
        'commentary
        StrSQL = "SELECT *  " & _
                    " FROM EigenerBestand WHERE Vertragsnummer = " & Me.Vertragsnummer & ""
        Set rs = CurrentDb.OpenRecordset(StrSQL)
        If Not (rs.EOF And rs.BOF) Then
            rs.MoveLast
            rs.MoveFirst
        End If
        
        
        
        Me.txtName = rs("Name")
        Me.txtVorname = rs("Vorname")
        Me.txtTELEFONNR = rs("TELEFONNR_Kunde")
        Me.txtE_Mail = rs("E_Mail")
        Me.txtBausparsumme = rs("Bausparsumme")
        Me.txtAbschlussdatum = rs("Abschlussdatum")
        Me.txtSaldo_EUR = rs("Saldo_EUR")
        Me.txtSaldo_3112_Vorjahr_EUR = rs("Saldo_3112_Vorjahr_EUR")
        Me.TXTSollzins_Gebunden_Fest_JAEhrlic = rs("SOLLZINS_GEBUNDEN_FEST_JAEHRLIC")
        Me.txtGuthabenszins_Jaehrlich = rs("GUTHABENZINS_JAEHRLICH")
        Me.txtAnrede = rs("ANREDE_KUNDE")
        Me.txtGeburtsdatum_KUNDE = rs("GEBURTSDATUM_KUNDE")
        Me.txtEinwilligung_Werbung_Tel_W_W = rs("Einwilligung_Werbung_Tel_W&W")
        Me.txtTarifgeneration = rs("PRODNR_BEZEICHNUNG1")
        Me.txtTarif = rs("Tarif")
        Me.txtStrasse_Kunde = rs("STRASSE")
        Me.txtHNR_Kunde = rs("HNR")
        Me.txtPLZ_KUNDE = rs("PLZ5")
        Me.txtORT_KUNDE = rs("ort")
        Me.txtVL_Eingang = rs("VL_EINGANg")
        Me.txtDatum_Letzter = rs("Datum_letzter_Zahlungseingang")
        Me.txtZK_vorhanden = rs("ZK_vorhanden")
        Me.txtAbtretung_vorhanden = rs("Abtretung_vorhanden")
        Me.txtStruktur = rs("Strukturnummer")
        Me.Kundennummer_Wüstenrot = rs("Kundennummer")
        Me.txtTELEFONNR = rs("TELE_AUSPRAEGUNG")
        Me.txtAktion = rs("Aktion")
        Me.txtAktionsdatum = rs("AktionsDatum")
        Me.txtVD_Wuestenrot_Gebiet = rs("GEBIET")
        Me.txtVertreternr = rs("Vertreternummer")

        
        Me.Vertragsnummer.Enabled = False
        
        
        rs.Close
    Set rs = Nothing
    Else
        MsgBox ("Bitte eine Vertragsnummer wählen.")
    End If
    
    
cmdRefresh_Click_Exit:
    Exit Sub


cmdRefresh_Click_Err:
    MsgBox Error$
    Resume cmdRefresh_Click_Exit
    


End Sub