Combining 2 codes under one button

[ZeidHaddad]

hello everyone

any idea how to combine those 2 codes under 1 button

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

here is the second code where i need to put of them under this one

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

Any help or directions on how to do it would be appreciated

 

[jdraw]

I suggest that you describe what you are trying to accomplish is 3-4 lines in plain simple English. Readers should not have to guess your intent; nor should they have to work through several lines of vba code to get the gist of your post. This is especially true here since your object naming is in German.

You can use Google translate to take such a description in your native tongue (German in this case) and get it in English for posting and communication.

Good luck.

 

[ZeidHaddad]

Good luck for you as well have a nice day