MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Gravar o mesmo produto, porém com cores diferentes

    Compartilhe

    Chamon Consultoria
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 173
    Registrado : 31/08/2012

    [Resolvido]Gravar o mesmo produto, porém com cores diferentes

    Mensagem  Chamon Consultoria em Dom 17 Jul 2016, 23:35

    Boa noite!

    Bd em Access 2010.

    Gostaria de adaptar o código abaixo para que o sistema permita gravar o mesmo produto, porém com cores diferentes.

    A tabela zzz_tbl_OrcamentosItens possui os dois campos distintos: um campo para o produto e outro para a cor.

    Desde já agradeço!

    If DadosCabeçalhoOk() Then
    Set dbs = CurrentDb
    strSQL = "SELECT * FROM zzz_tbl_OrcamentosItens WHERE CODPRO = " & txtCodigo
    strSQL = strSQL & " AND NUMEROORCAMENTO = " & "'" & txtNUMEROORCAMENTO & "'"
    Set rst = dbs.OpenRecordset(strSQL)

    If rst.RecordCount > 0 Then
    Beep
    MsgBox "Atenção! Este produto já está lançado!", vbCritical, "Erro"
    LimpaCampos
    txtVarPro.SetFocus
    BotaoGrava.enabled = False
    Exit Sub
    End If

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5890
    Registrado : 05/11/2009

    Re: [Resolvido]Gravar o mesmo produto, porém com cores diferentes

    Mensagem  Alexandre Neves em Seg 18 Jul 2016, 08:36

    Bom dia,
    strSQL = "SELECT * FROM zzz_tbl_OrcamentosItens WHERE CODPRO = " & txtCodigo
    strSQL = strSQL & " AND NUMEROORCAMENTO ='" & txtNUMEROORCAMENTO & "' and CodCor=" & TxtCodCor

    Se NumeroOrcamento é número devia ter o campo como número na tabela, em vez de texto


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Chamon Consultoria
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 173
    Registrado : 31/08/2012

    Re: [Resolvido]Gravar o mesmo produto, porém com cores diferentes

    Mensagem  Chamon Consultoria em Seg 18 Jul 2016, 13:52

    Bom dia Alexandre!

    Testei sua sugestão mas ela não funcionou. Apresentou erro de variável não definida (CodCor). Também testei com o nome Cor e apresentou o mesmo erro, dentre outros diversos testes.
    Porém me orientou a fazer um novo teste que veio a funcionar. Não sei se é a maneira mais correta, mas funcionou.
    Com esses ajustes, agora o sistema permite gravar o mesmo produto com cores diferentes e não permite inserir o mesmo produto com a mesma cor.
    Quanto a sua observação sobre o campo NumeroOrcamento, realmente ele é do tipo texto.


    Segue como ficou:

    strSQL = "SELECT * FROM zzz_tbl_OrcamentosItens WHERE CODPRO = " & txtCodigo
    strSQL = strSQL & " AND NUMEROORCAMENTO = " & "'" & txtNUMEROORCAMENTO & "'"
    strSQL = strSQL & " AND COR = " & "'" & txtCor & "'"

    No mais, muito obrigado pela orientação!

    Abraço

      Data/hora atual: Sab 10 Dez 2016, 04:58