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
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Rosalvo Risso em Sab 30 Set 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 : 934
    Registrado : 08/02/2011

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

    Mensagem  cafpr em Sab 30 Set 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
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Rosalvo Risso em Dom 01 Out 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 : 3672
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Dom 01 Out 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
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Rosalvo Risso em Dom 01 Out 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 : 934
    Registrado : 08/02/2011

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

    Mensagem  cafpr em Dom 01 Out 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
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Rosalvo Risso em Dom 01 Out 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 : 934
    Registrado : 08/02/2011

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

    Mensagem  cafpr em Dom 01 Out 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
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Rosalvo Risso em Dom 01 Out 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 : 934
    Registrado : 08/02/2011

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

    Mensagem  cafpr em Seg 02 Out 2017, 00:46

    teste

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

    Rosalvo Risso
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Rosalvo Risso em Ter 03 Out 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
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Rosalvo Risso em Ter 03 Out 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 : 934
    Registrado : 08/02/2011

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

    Mensagem  cafpr em Qui 05 Out 2017, 00:39

    Conseguiu resolver;;;

    Rosalvo Risso
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Rosalvo Risso em Sab 07 Out 2017, 14:03

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

      Data/hora atual: Ter 21 Nov 2017, 21:13