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]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 : 196
    Registrado : 31/08/2012

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

    Mensagem  Chamon Consultoria em Dom 17 Jul 2016, 22: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
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves em Seg 18 Jul 2016, 07: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 : 196
    Registrado : 31/08/2012

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

    Mensagem  Chamon Consultoria em Seg 18 Jul 2016, 12: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: Qui 14 Dez 2017, 12:59