MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]Não duplicar registro subformulário.

    wltsilva
    wltsilva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 79
    Registrado : 29/11/2012

    [Resolvido]Não duplicar registro subformulário. Empty Não duplicar registro subformulário.

    Mensagem  wltsilva 14/12/2012, 02:11

    Será que algum Jedi, poderia me ajudar? É o seguinte, eu criei um sistemia de vendas simples, porém me deparei com um problema.
    No cadastro de vendas (Tabela 1) está tudo correto, formulário principal; no subformulário (Tabela 2) onde os produtos que irei vender são incluídos eu preciso que a combo não deixasse repetir os que já foram incluídos. Não tenho como usar para isso o campo chave, pois esse campo é usado na composição da tabela e a inclusão nas outras vendas!

    BD:
    http://dl.dropbox.com/u/81000360/Banco%20de%20Dados%20-%20Vendaswww.rar


    .................................................................................
    "Amigos de verdade não se separam apenas seguem caminhos diferentes."
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Não duplicar registro subformulário. Empty Re: [Resolvido]Não duplicar registro subformulário.

    Mensagem  Silvio 14/12/2012, 11:45

    Bom dia...

    Espero que seja isso, veja no anexo.



    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    wltsilva
    wltsilva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 79
    Registrado : 29/11/2012

    [Resolvido]Não duplicar registro subformulário. Empty Obrigado Silvião!!!

    Mensagem  wltsilva 14/12/2012, 12:29

    Muito Obrigado pela ajuda Silvio!!!

    Mas fui testar e continua duplicando olha o print anexo:

    http://dl.dropbox.com/u/81000360/BD.PNG


    .................................................................................
    "Amigos de verdade não se separam apenas seguem caminhos diferentes."
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Não duplicar registro subformulário. Empty Re: [Resolvido]Não duplicar registro subformulário.

    Mensagem  Silvio 14/12/2012, 13:15

    Tenta dessa forma...

    Private Sub cboproduto_AfterUpdate()
    Me.ValorProdutoVenda = Me.cboproduto.Column(2)
    Select Case Me.cboproduto.Value
    Case "1" ' onde 1 é o código do produto
    MsgBox "(venda feita,vbInformation)"
    End Select


    Para adicionar mais produtos, terás que repetir o comando Select case:

    Me.ValorProdutoVenda = Me.cboproduto.Column(2)
    Select Case Me.cboproduto.Value
    Case "2" ' onde 2 é o código do produto
    MsgBox "(venda feita,vbInformation)"
    End Select

    Bons estudos !


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    wltsilva
    wltsilva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 79
    Registrado : 29/11/2012

    [Resolvido]Não duplicar registro subformulário. Empty Tanks!

    Mensagem  wltsilva 17/12/2012, 18:52

    Valeu Silvio, tudo resolvido. Obrigado!


    .................................................................................
    "Amigos de verdade não se separam apenas seguem caminhos diferentes."

    Conteúdo patrocinado


    [Resolvido]Não duplicar registro subformulário. Empty Re: [Resolvido]Não duplicar registro subformulário.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 10:58