[Resolvido]Impedir exclusão de registros vinculados

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!

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

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?

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

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

Por favor, dê uma olhada no print em anexo.

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

Abraços

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!

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

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.