MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Produto não cadastrado código não funciona.

    Compartilhe

    Rosalvo Risso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 21/05/2015

    [Resolvido]Produto não cadastrado código não funciona.

    Mensagem  Rosalvo Risso em 30/9/2017, 15:35

    Bom dia amigos!

    Testei o seguinte código que copiei do Mestre JPaulo mas não está funcionando. coloquei o código no evento "Se não estiver na lista" da minha caixa de combinação, mas nada, nenhum sinal. Quando digito um produto ainda não cadastrado ele somente me dá o retorno de mensagem do windows "não é possível adicionar ou alterar registros, pois é necessário que eles tenham um registro relacionado na 'TabelaMercadoria'. Alguém sabe me dizer o porquê?
    Grato!!!

    Private Sub SuaCaixaCombinação_NotInList(NewData As String, Response As Integer)
    If MsgBox("Item não cadastrado: '" & NewData & "'" & vbCrLf _
    & "Deseja Cadastrar?", 32 + vbYesNo) = 6 Then
    DoCmd.OpenForm "SeuSegundoForm", , , , acFormAdd, _
    acDialog, NewData
    ' A execução deste código fica interrompida aqui até o
    ' fechamento do segundo formulário.
    Cidade = UCase(NewData) ' Converte o texto para maiúsculas.
    Response = acDataErrAdded
    Else
    Response = acDataErrContinue
    End If
    End Sub
    avatar
    cafpr
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 963
    Registrado : 08/02/2011

    Re: [Resolvido]Produto não cadastrado código não funciona.

    Mensagem  cafpr em 30/9/2017, 22:41

    Substitua o que está em negrito.

    cbFuncionário: Nome da combo
    tbl_Funcionario: Nome da tabela
    Funcionario: Nome do campo da tabela.

    Private Sub cbFuncionario_NotInList(NewData As String, Response As Integer)
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim Msg As String

    On Error GoTo Err_cbFuncionario_NotInList
       If NewData = "" Then Exit Sub
       Msg = "'" & NewData & "' não esta cadastrado no Sistema." & vbCr & vbCr
       Msg = Msg & "Gostaria de adicioná-lo?"
       If MsgBox(Msg, vbQuestion + vbYesNo) = vbNo Then
           Response = acDataErrContinue
       MsgBox "Não adicionado. Tente novamente ou escolha um item da lista"
       Else
           Set db = CurrentDb
           Set rs = db.OpenRecordset("tbl_Funcionario", dbOpenDynaset)
           rs.AddNew
           rs![Funcionario] = NewData
           rs.Update
           Response = acDataErrAdded
       End If
    Exit_cbFuncionario_NotInList:
          Exit Sub
    Err_cbFuncionario_NotInList:
          MsgBox Err.Description
          Response = acDataErrContinue
    End Sub

    Rosalvo Risso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 21/05/2015

    Produto não cadastrado código não funciona.

    Mensagem  Rosalvo Risso em 1/10/2017, 03:26

    Agradeço a sua atenção cafpr, mas nem sinal. Nada acontece. Nem mensagem de erro. Somente a mensagem do windows.
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4153
    Registrado : 20/04/2011

    Re: [Resolvido]Produto não cadastrado código não funciona.

    Mensagem  Silvio em 1/10/2017, 12:22

    Bom dia, com a permissão dos colegas.

    Anexe  a base de dados, com as partes ( consulta, tabela, formulário ) envolvidas na tua duvida Rosalvo.

    Rosalvo Risso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 21/05/2015

    Produto não cadastrado código não funciona.

    Mensagem  Rosalvo Risso em 1/10/2017, 14:56

    Não estou conseguindo enviar por aqui - WinRAR - Tem outra maneira?
    avatar
    cafpr
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 963
    Registrado : 08/02/2011

    Re: [Resolvido]Produto não cadastrado código não funciona.

    Mensagem  cafpr em 1/10/2017, 15:40

    [Você precisa estar registrado e conectado para ver este link.]

    [Você precisa estar registrado e conectado para ver este link.]

    Rosalvo Risso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 21/05/2015

    Produto não cadastrado código não funciona.

    Mensagem  Rosalvo Risso em 1/10/2017, 16:43

    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    cafpr
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 963
    Registrado : 08/02/2011

    Re: [Resolvido]Produto não cadastrado código não funciona.

    Mensagem  cafpr em 1/10/2017, 22:29

    Reveja os relacionamentos.

    O que foi alterado:

    1- Excluido o relacionamento entre as tbls Mercadoria e Compras dos campos Mercadoria e MercadoriaCpr

    2. Alterado as chave primaria do campo Mercadoria para CodMerc da tblMercadoria e o nome de MercadoriaCpr por CodMerc na tblCompras.

    3. Refeito o relacionamento entre os campos CodMerc (tbls Mercadoria e Compras)

    4 Criado o frm_Mercadoria para digitar a Mercadoria em qual o codigo no list no fmiCompras (sugestão altere o fmi por frmCompras).

    [Você precisa estar registrado e conectado para ver este link.]

    Rosalvo Risso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 21/05/2015

    Produto não cadastrado código não funciona.

    Mensagem  Rosalvo Risso em 1/10/2017, 23:46

    Estou recebendo a mensagem que a pasta database21 não existe
    avatar
    cafpr
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 963
    Registrado : 08/02/2011

    Re: [Resolvido]Produto não cadastrado código não funciona.

    Mensagem  cafpr em 2/10/2017, 00:46

    teste

    [Você precisa estar registrado e conectado para ver este link.]

    Rosalvo Risso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 21/05/2015

    Produto não cadastrado código não funciona.

    Mensagem  Rosalvo Risso em 3/10/2017, 12:51

    Olá Bom dia!

    Me desculpe pela demora da resposta.

    Abri o database21 e o que acontece:

    Agora realmente o código funciona perfeitamente.
    Mas quando vou inserir os dados do fornecedor, no formulário principal, recebo a seguinte mensagem:
    "Não é possível adicionar ou alterar registros, pois é necessário que eles tenham um registro relacionado na tabela Mercadoria"
    Isso aconteceu com você também?
    Abraço!

    Rosalvo Risso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 21/05/2015

    Produto não cadastrado código não funciona.

    Mensagem  Rosalvo Risso em 3/10/2017, 13:12

    Agora percebi que se eu não inserir o nº da nota fiscal ele aceita o registro.
    avatar
    cafpr
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 963
    Registrado : 08/02/2011

    Re: [Resolvido]Produto não cadastrado código não funciona.

    Mensagem  cafpr em 5/10/2017, 00:39

    Conseguiu resolver;;;

    Rosalvo Risso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 21/05/2015

    Produto não cadastrado código não funciona.

    Mensagem  Rosalvo Risso em 7/10/2017, 14:03

    Agora sim. Muito obrigado a todos pela atenção e dedicação!

      Data/hora atual: 15/12/2018, 09:38