Experimente alterar o trecho da sua rotina de excluir, conforme segue:

Dim result As VbMsgBoxResult
Dim sql As String
    
        result = MsgBox("Deseja excluir o Funcionário(a): " & Me.TextBoxNome & " ?", vbYesNo, "Confirmação")

        If result = vbYes Then
            sql = "DELETE * FROM Funcionários WHERE CódigoFuncional=" & LabelNumero
            MinhaDatabase.Open sql & ";", MinhaConexão, adOpenKeyset, adLockOptimistic, adCmdText
        Else
            Cancel = True
        End If

Funcionou...Obrigado Reinaldo !

Reinaldo...
Pode me ajuda agora para inserir registro ?

Att,

Francisco

Experimente alterar na rotina de gravar o trecho abaixo

Private Sub CommandButton7_Click()
'Sub Incluir_Registro()
On Error GoTo Aviso

Dim MinhaConexão As New ADODB.Connection
Dim MinhaDatabase As New ADODB.Recordset
Dim Sql As String
    Sql = "INSERT INTO Funcionários(CódigoFuncional, Nome, cpf, HorárioEntrada, HorárioSaída, InícioIntervalo, FimIntervalo, Foto, senha)"
    Sql = Sql & " Values ('" & Me.LabelNumero & "'"
    Sql = Sql & ", '" & Me.TextBoxNome.Value & "'"
    Sql = Sql & ", '" & Me.TextBoxcpf.Value & "'"
    Sql = Sql & ", '" & Me.TextBoxEntrada.Value & "'"
    Sql = Sql & ", '" & Me.TextBoxSaida.Value & "'"
    Sql = Sql & ", '" & Me.TextBoxInicioIntervalo.Value & "'"
    Sql = Sql & ", '" & Me.TextBoxFimIntervalo.Value & "'"
    Sql = Sql & ", '" & Me.TextBoxFoto.Value & "'"
    Sql = Sql & ", '" & Me.TextBoxSenha.Value & "'"
    Sql = Sql & " )"
'Cria a conexão
MinhaConexão.CursorLocation = adUseClient
MinhaConexão.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=" & ThisWorkbook.Path & "relogio ponto.MDB;Jet " & _
           "OLEDB:Database Password=abo;"
MinhaDatabase.Open Sql, MinhaConexão

Me.TextBoxNumero = ""
Me.LabelNumero = ""
Me.TextBoxNome = ""
Me.TextBoxcpf = ""
Me.TextBoxEntrada = ""
Me.TextBoxSaida = ""
Me.TextBoxInicioIntervalo = ""
Me.TextBoxFimIntervalo = ""
Me.TextBoxFoto = ""
Me.TextBoxSenha = ""
Me.LabelSenha = ""
Me.Imagefoto.Picture = Nothing

        'Exibe mensagem de sucesso na inclusão do registro
        MsgBox "Dados Inseridos com Sucesso!", vbDefaultButton1, "Novo Registro"
        
        'Abandona a subrotina
        Exit Sub

Funcionou...Vlw...!!!

Tenho mais um ou dois "probleminhas" em um outro formulário, estou tentando resolver, caso não consiga vou pedir uma ajuda.

Att,

Francisco

Boa-tarde,

No formulário quando digito meu código pela manhã (por exemplo) ele gera a entrada na base de dados e ao final do expediente faço o mesmo procedimento para registrar minha saída. Estou tentando inserir no código a saída para o intervalo e a volta do intervalo, mais sem sucesso.

Se puder me ajudar, agradeço.

Att,

Francisco

Creio que no momento essa e a anterior são duvidas diferentes do escopo inicial, e deveriam ser tratadas em tópicos distintos,facilitando assim a pesquisa de usuarios interessados.
Contudo não entendi a logica que pretende aplicar, nessa nova demanda.