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]Impedir exclusão de registros vinculados

    Krauss
    Krauss
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 254
    Registrado : 23/12/2011

    [Resolvido]Impedir exclusão de registros vinculados Empty Impedir exclusão de registros vinculados

    Mensagem  Krauss 11/2/2012, 13:59

    Caro amigos,

    Imaginando duas tabelas: 'Produtos' e 'Marcas'.. gostaria de saber como impedir que uma marca seja excluída caso já esteja atribuída há algum produto.

    Por exemplo, vc tem um produto cadastrado e atribuiu a marca Philips a ele. Daí vc vai no form 'Marcas' e ao tentar excluir a marca o sistema exibe uma mensagem tipo "Esta marca não pode ser excluída, pois está ligada a um produto!".

    Resumindo, se uma determinada marca estiver em algum cadastro de algum produto, não permitir excluir, caso a marca esteja cadastrada porém não foi atribuída a nenhum produto, o sistema permite excluir normalmente.

    Lembrando que no botão 'Excluir' tenho uma MsgBox vbYesNo.

    Abraço!


    .................................................................................
    Trabalho com Access 2013

    "A dúvida é o princípio da sabedoria"
    avatar
    Convidad
    Convidado


    [Resolvido]Impedir exclusão de registros vinculados Empty Re: [Resolvido]Impedir exclusão de registros vinculados

    Mensagem  Convidad 11/2/2012, 15:01

    Olá Krauss

    Conforme o prometido:
    Código:

    If msgBox("Deseja Excluir ?", vbQuestion + vbYesNo, "Excluir Registro", , , 0) = vbYes Then
          If DCount("*", "tblProdutos", "CódigoMARCA = " & Me.CódigoMARCA) <> 0 Then
            msgBox "Esta marca não pode ser excluída, pois está ligada a um produto!", vbCritical, "Impossível Excluir", , , 1
            Exit Sub
          End If
    Else
          DoCmd.SetWarnings False
          DoCmd.RunCommand acCmdDeleteRecord
          DoCmd.SetWarnings True
         
         
    End If

    Abraços


    Última edição por Balem em 13/2/2012, 14:09, editado 1 vez(es)
    Krauss
    Krauss
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 254
    Registrado : 23/12/2011

    [Resolvido]Impedir exclusão de registros vinculados Empty Re: [Resolvido]Impedir exclusão de registros vinculados

    Mensagem  Krauss 11/2/2012, 16:06

    Opa, agradeço a gentileza!

    O código parece ótimo, porém gerou um erro de compilação: "Número de argumentos incorreto ou atribuição de propriedade inválida"

    E agora amigo?


    .................................................................................
    Trabalho com Access 2013

    "A dúvida é o princípio da sabedoria"
    avatar
    Convidad
    Convidado


    [Resolvido]Impedir exclusão de registros vinculados Empty Re: [Resolvido]Impedir exclusão de registros vinculados

    Mensagem  Convidad 11/2/2012, 17:10

    Verifique os nomes do campo na tabela e o do controle do formulário.
    No Exemplo que te passei,Me.CódigoPRODUTO é numérico, se teu código de produto for string terá que colocar aspas simples (')

    If DCount("*", "tblProdutos", "CódigoMARCA = '" & Me.CódigoMARCA & "'")

    O Código funciona,faça uma depuração do código, usando ponto de interrupção e executando linha a linha para verificar onde está o erro.

    Abraços


    Última edição por Balem em 13/2/2012, 14:08, editado 1 vez(es)
    Krauss
    Krauss
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 254
    Registrado : 23/12/2011

    [Resolvido]Impedir exclusão de registros vinculados Empty Re: [Resolvido]Impedir exclusão de registros vinculados

    Mensagem  Krauss 11/2/2012, 17:33

    Balem, me parece que o erro está no MsgBox:

    Por favor, dê uma olhada no print em anexo.
    Anexos
    [Resolvido]Impedir exclusão de registros vinculados AttachmentPrint.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (124 Kb) Baixado 23 vez(es)


    .................................................................................
    Trabalho com Access 2013

    "A dúvida é o princípio da sabedoria"
    avatar
    Convidad
    Convidado


    [Resolvido]Impedir exclusão de registros vinculados Empty Re: [Resolvido]Impedir exclusão de registros vinculados

    Mensagem  Convidad 11/2/2012, 19:18

    Sim, é verdade

    É que uso o Dialog.box e esqueci de tirar os últimos parâmetros ao enviar.

    retire as partes em vermelho:

    If msgBox("Deseja Excluir ?", vbQuestion + vbYesNo, "Excluir Registro", , , 0) = vbYes Then
    If DCount("*", "tblProdutos", "CódigoMARCA = " & Me.CódigoMARCA) <> 0 Then
    msgBox "Esta marca não pode ser excluída, pois está ligada a um produto!", vbCritical, "Impossível Excluir", , , 1

    Agora vai funfar Razz

    Abraços


    Última edição por Balem em 13/2/2012, 14:08, editado 1 vez(es)
    Krauss
    Krauss
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 254
    Registrado : 23/12/2011

    [Resolvido]Impedir exclusão de registros vinculados Empty Re: [Resolvido]Impedir exclusão de registros vinculados

    Mensagem  Krauss 13/2/2012, 13:47

    Caro amigo Balem,

    Parece que agora vai funfar mesmo... só mais uma dúvida:

    Na linha do código: If DCount("*", "tblProdutos", "CódigoMARCA = " & Me.CódigoPRODUTO) <> 0 Then
    Sei que tblProdutos se refere à tabela onde o sistema irá verificar. E os próximos campos "CódigoMARCA" e "CódigoPRODUTO" se referem a exatamente oq?

    Abraço!


    .................................................................................
    Trabalho com Access 2013

    "A dúvida é o princípio da sabedoria"
    avatar
    Convidad
    Convidado


    [Resolvido]Impedir exclusão de registros vinculados Empty Re: [Resolvido]Impedir exclusão de registros vinculados

    Mensagem  Convidad 13/2/2012, 14:06

    Olá Krauss

    Amigão eu devia estar dormindo quando escrevi esse código.
    O correto é:

    DCount("*", "tblProdutos", "CódigoMARCA = " & Me.CódigoMARCA) <> 0

    Por favor, substitua a parte que está em azul.
    O Dcount() então irá contar quantas vezes tem essa marca na tabela de produtos, se for diferente de 0 irá gritar, hehehe

    Obs.: Editei os outros posts para que outros não peguem o código errado.

    Abração
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Impedir exclusão de registros vinculados Empty Re: [Resolvido]Impedir exclusão de registros vinculados

    Mensagem  criquio 7/3/2012, 21:03

    Estou passando o tópico a Resolvido. Se necessário, reabra por gentileza.
    Caso já tenha resolvido, favor dar um retorno.
    Grato:

    A moderação.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Conteúdo patrocinado


    [Resolvido]Impedir exclusão de registros vinculados Empty Re: [Resolvido]Impedir exclusão de registros vinculados

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 07:31