MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Ajuda com sub formulário

    AndrePeteca
    AndrePeteca
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 128
    Registrado : 24/02/2015

    [Resolvido]Ajuda com sub formulário Empty [Resolvido]Ajuda com sub formulário

    Mensagem  AndrePeteca Ter 1 Set - 10:45

    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
    LiveBrain
    LiveBrain
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

    [Resolvido]Ajuda com sub formulário Empty Re: [Resolvido]Ajuda com sub formulário

    Mensagem  LiveBrain Ter 1 Set - 19:24

    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


    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"
    AndrePeteca
    AndrePeteca
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 128
    Registrado : 24/02/2015

    [Resolvido]Ajuda com sub formulário Empty Re: [Resolvido]Ajuda com sub formulário

    Mensagem  AndrePeteca Qua 2 Set - 8:31

    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.
    AndrePeteca
    AndrePeteca
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 128
    Registrado : 24/02/2015

    [Resolvido]Ajuda com sub formulário Empty Re: [Resolvido]Ajuda com sub formulário

    Mensagem  AndrePeteca Qua 9 Set - 12:47

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

    Conteúdo patrocinado


    [Resolvido]Ajuda com sub formulário Empty Re: [Resolvido]Ajuda com sub formulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Qui 28 Mar - 9:31