[Resolvido]Ajuda com sub formulário

Bom dia mestres, estou tentando desenvolver um OS para a gráfica que eu administro para facilitar a minha vida.
vou contar o meu problema e vou deixar o link pata baixar o arquivo.
Eu gostaria de uma ajuda no meu  frm_pesquisaCli, gostaria que ao carregar frm_pesquisaCli o campo código do frm_ClienteSub ficasse no formato 0000, 0001, 0100 e assim por diante. O outro problema e quando faço a pesquisa e não acha nada no frm_ClienteSub e clico no botão excluir ou editar da um erro de depuração eu gostaria de colocar uma mensagem.

lembrando sou muito iniciante em access vba mas tenho muita força de vontade de aprender

OS - GráficaT.rar

Vamos lá... para exibir os códigos no padrão 00000 é só ir em propriedades do campo e em Formato colocar 0000, isso pode ser feito na tabela também

Para o erro é necessário fazer o tratamento desse erro.... eu acrescentei algumas linhas no código do botão excluir

Código:

On Error GoTo aErro
Me.txt_IdCliente.Value = Me.frm_ClienteSub.Form.txt_codigo
Me.txt_NomeCli.Value = Me.frm_ClienteSub.Form.NOME
    'Botão excluir registros
    If MsgBox("Você esta prestes a excluir 1 registro." & vbCrLf & "" & vbCrLf & "CÓDIGO: " & Format(Me.txt_IdCliente, "0000") & " NOME: " & Me.txt_NomeCli & "." & vbCrLf & "Se clicar em Sim, não será possivel desfazer esta operação de exclusão." & vbCrLf & "Tem certeza que deseja excluir este registro?", vbExclamation + vbYesNo, "EXCLUIR REGISTRO") = vbYes Then
        CurrentDb.Execute "DELETE * FROM tbl_CadCliente WHERE IdCliente=" & Me.txt_IdCliente
        MsgBox "Registro excluido com sucesso!", vbExclamation, "SUCESSO"
        Refresh
        totalCliReg
    End If
aErro:
Debug.Print Err.Number
If Err.Number = 2113 Then
    MsgBox "Não Há registros a serem excluídos!", vbYesNo, "Erro"
End If

bom dia LiveBrain, deu muito certo e muito obrigado por me ajuda, só tenho mais uma pergunta antes de colocar como resolvido. Tem como ao abrir o frm_pesquisaCli o meu frm_ClienteSub não venha com um registro selecionado? por q ao abrir frm_pesquisaCli o frm_ClienteSub já vem com o primeiro registro da tabela selecionado.

boa tarde LiveBrain, muito obrigado por me ajudar, deu certo muito obrigado mesmo