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]Preencher campo sim/nao com caixa de combinação

    avatar
    brunopmelo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 96
    Registrado : 20/05/2011

    [Resolvido]Preencher campo sim/nao com caixa de combinação Empty [Resolvido]Preencher campo sim/nao com caixa de combinação

    Mensagem  brunopmelo 4/12/2011, 17:37

    Boa tarde...

    tenho uma caixa de combinação que exibe os resultados
    de uma consulta de requisiçoes pendentes, queria que
    apos selecionar uma das opções, e preencher um sub formulario
    abaixo da caixa de combinação, preenchesse o campo sim/nao
    da tabela, pois no proximo registro, a requisição que editei
    nao aparecesse mais...
    avatar
    Convidado
    Convidado


    [Resolvido]Preencher campo sim/nao com caixa de combinação Empty Re: [Resolvido]Preencher campo sim/nao com caixa de combinação

    Mensagem  Convidado 4/12/2011, 18:18

    Boa tarde Bruno...dê uma olhada neste exemplo se lhe serve......
    http://speedy.sh/8E7Ge/Clovis-OLD.rar
    avatar
    brunopmelo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 96
    Registrado : 20/05/2011

    [Resolvido]Preencher campo sim/nao com caixa de combinação Empty Re: [Resolvido]Preencher campo sim/nao com caixa de combinação

    Mensagem  brunopmelo 8/12/2011, 21:30

    esse exemplo e otimo, mais sou iniciante
    nao entendo muito de progamação, tentei
    adaptar mais nao fui feliz...
    sera que nao teria algo mais simples?
    avatar
    Convidad
    Convidado


    [Resolvido]Preencher campo sim/nao com caixa de combinação Empty Re: [Resolvido]Preencher campo sim/nao com caixa de combinação

    Mensagem  Convidad 8/12/2011, 22:17

    Olá

    Entendi que você tem um formulário, baseado na tabela que tem o campo Sim/Não, e que neste form tem uma combo que, quando atualiza, exibe dos dados desta tabela.
    E que este form também tem um subform com dados relacionados.

    Neste caso, se o campo S/N estiver no form principal, coloque este código no evento AfterUpdate do subform:

    Private Sub Form_AfterUpdate()
    Forms!SeuFormPrincipal.SeuCampoSimNao = True
    End Sub
    avatar
    brunopmelo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 96
    Registrado : 20/05/2011

    [Resolvido]Preencher campo sim/nao com caixa de combinação Empty Re: [Resolvido]Preencher campo sim/nao com caixa de combinação

    Mensagem  brunopmelo 9/12/2011, 19:42

    amigo muito obrigado pela atenção nao deu muito certo...

    deixa explicar melhor,
    eu mecho com cultivo de peixes, e tenho as tabelas
    coleta que numera as coletas de um certo dia, que esta relacionada
    com a tabela descrição da coleta, que diz em qual viveiro foi feita
    a quantidade, e outros dados de uma coleta, tenho varias desc_coleta para uma coleta
    e na tabela coleta tenho os campos sim/nao, o form da coleta tem os campo data,id_coleta,
    e um sub-form desc_coleta, depois que ovos de peixe sao coletados e nascem
    eles vao para o sistema de reversao, a reversao tb e do mesmo jeito, tem a tab
    reversao e a tab desc_reversao, mais no form tem o campo data o campo id, e a cbo
    que mostra as coletas realizadas, por exemplo uma reversao tem varias descriçoes,
    mais ela origina de uma coleta, entao quando for fazer uma reversao eu selecionaria
    na cbo a coleta correspondente ele preenchesse o campo sim/nao da tabela coleta dando
    baixa naquela coleta... no caso o campo sim/nao nao aparece nos forms, ele serve apenas
    para a consulta retornar as coletas pendentes, para dar saida...
    avatar
    Convidad
    Convidado


    [Resolvido]Preencher campo sim/nao com caixa de combinação Empty Re: [Resolvido]Preencher campo sim/nao com caixa de combinação

    Mensagem  Convidad 9/12/2011, 19:58

    Olá

    Talvez assim:

    DoCmd.RunSQL "update SuaTabela set SeuCampoSN=-1"



    Última edição por norbs em 20/1/2012, 15:17, editado 1 vez(es)
    avatar
    brunopmelo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 96
    Registrado : 20/05/2011

    [Resolvido]Preencher campo sim/nao com caixa de combinação Empty Re: [Resolvido]Preencher campo sim/nao com caixa de combinação

    Mensagem  brunopmelo 9/12/2011, 20:04

    eu coloco esse codigo em qual evento
    avatar
    Convidad
    Convidado


    [Resolvido]Preencher campo sim/nao com caixa de combinação Empty Re: [Resolvido]Preencher campo sim/nao com caixa de combinação

    Mensagem  Convidad 9/12/2011, 20:30

    No evento AfterUpdate do subform:

    Private Sub Form_AfterUpdate()
    DoCme.RunSQL "update SuaTabela set SeuCampoSN=-1 WHERE SuaTabela.CampoID=[Forms]![SeuFormPrincipal]![SeuSubForm]![CampoIDcorrespondente]"
    End Sub


    Última edição por norbs em 20/1/2012, 15:19, editado 1 vez(es)
    avatar
    brunopmelo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 96
    Registrado : 20/05/2011

    [Resolvido]Preencher campo sim/nao com caixa de combinação Empty Re: [Resolvido]Preencher campo sim/nao com caixa de combinação

    Mensagem  brunopmelo 11/12/2011, 20:47

    amigo nao tive susseso

    colquei uma copia do bd aqui
    http://dl.dropbox.com/u/41880754/brunopmelo.rar

    nao estou sabendo se esta montado certo para dar esse comando...
    os processos sao: cada coleta gera varias reversoes, e cada reversao originada de uma coleta tem que dar baixa na coleta pra nao ficar pendente, e do mesmo modo cada reversao gera varias selecoes que precisa dar baixa nas reversoes, cada seleção gera varias projeçoes que da baixa nas seleçoes, com esses registros posso contabilizar
    todo processo de produção e progamar as tarefas dos funcionarios, e saber
    quais tarefas que estao atrazadas...

    obrigado pela atenção...
    avatar
    Convidad
    Convidado


    [Resolvido]Preencher campo sim/nao com caixa de combinação Empty Re: [Resolvido]Preencher campo sim/nao com caixa de combinação

    Mensagem  Convidad 11/12/2011, 21:17

    Olá

    Eu uso Access2003, então a cópia do seu bd deve ser convertida neste formato.
    avatar
    brunopmelo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 96
    Registrado : 20/05/2011

    [Resolvido]Preencher campo sim/nao com caixa de combinação Empty Re: [Resolvido]Preencher campo sim/nao com caixa de combinação

    Mensagem  brunopmelo 17/12/2011, 13:42

    amigo desculpe pela demora, tive que passar uns dias fora
    nao estou conseguindo converter o bd para o 2003, quando tento
    salvar uma copia como formato para 2003 da um erro, e diz que o
    2003 nao tem suporte para certas configurações, mais o bd esta sendo
    montado agora, nao tem nada de mais esta tudo como a configuração padrao...
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Preencher campo sim/nao com caixa de combinação Empty Re: [Resolvido]Preencher campo sim/nao com caixa de combinação

    Mensagem  vieirasoft 20/1/2012, 09:34

    Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.
    avatar
    brunopmelo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 96
    Registrado : 20/05/2011

    [Resolvido]Preencher campo sim/nao com caixa de combinação Empty Re: [Resolvido]Preencher campo sim/nao com caixa de combinação

    Mensagem  brunopmelo 20/1/2012, 14:58

    nao consegui resolver ainda nao,

    fiz um bd para o 2003 mais ou menos nao ficou muito bom
    tem apenas duas tabelas e apenas uma combox, no bd original
    sao 4 combox que execultaram a mesma função nas tabelas correspondentes...

    segue o link do bd

    http://dl.dropbox.com/u/41880754/exemploBrunopmelo.mdb

    desculpem a demora...
    avatar
    Convidad
    Convidado


    [Resolvido]Preencher campo sim/nao com caixa de combinação Empty Re: [Resolvido]Preencher campo sim/nao com caixa de combinação

    Mensagem  Convidad 20/1/2012, 15:22

    Por favor, estabeleça os relacionamentos, e reenvie.
    avatar
    brunopmelo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 96
    Registrado : 20/05/2011

    [Resolvido]Preencher campo sim/nao com caixa de combinação Empty Re: [Resolvido]Preencher campo sim/nao com caixa de combinação

    Mensagem  brunopmelo 20/1/2012, 20:05

    caro norbs desculpe a falta de atenção...

    http://dl.dropbox.com/u/41880754/exemploBrunopmelo.mdb
    avatar
    Convidad
    Convidado


    [Resolvido]Preencher campo sim/nao com caixa de combinação Empty Re: [Resolvido]Preencher campo sim/nao com caixa de combinação

    Mensagem  Convidad 20/1/2012, 20:27

    Ok, recebido.

    Assim que der um tempinho vou examinar.
    Depois retorno.
    avatar
    brunopmelo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 96
    Registrado : 20/05/2011

    [Resolvido]Preencher campo sim/nao com caixa de combinação Empty Re: [Resolvido]Preencher campo sim/nao com caixa de combinação

    Mensagem  brunopmelo 20/1/2012, 20:38

    desde ja muito obrigado pela paciência
    e atenção...
    avatar
    Convidad
    Convidado


    [Resolvido]Preencher campo sim/nao com caixa de combinação Empty Re: [Resolvido]Preencher campo sim/nao com caixa de combinação

    Mensagem  Convidad 24/1/2012, 13:40


    Ok, tudo nos conformes...

    Não sei se seu bd está igual a cópia que enviou, mas os vínculos entre os forms e subforms não existiam, então os estabeleci. Só assim para o subform exibir os registros relacionados quando o form muda de registro.

    O campo Sim/Não que quer atualizar é rev_baixa na tabela Reversão, certo?

    E quando vc quer atualizá-lo? Quando preencher qual campo?
    avatar
    brunopmelo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 96
    Registrado : 20/05/2011

    [Resolvido]Preencher campo sim/nao com caixa de combinação Empty Re: [Resolvido]Preencher campo sim/nao com caixa de combinação

    Mensagem  brunopmelo 24/1/2012, 18:36

    bom o exemplo nao ficou completo, realmente esqueci dos vinculos,
    nem sei se estou realmente certo mais oque pensei foi o seguinte,
    quando faço uma coleta e seus detalhes, ela vai dar origem a uma
    reversao que tem varias descriçoes, no form reversao coloquei uma combox
    que exibe os resultados de uma consulta das coletas que foram feitas e cujo o campo sim/nao
    da tab coleta nao estao marcados, exemplo: hj foi realizado a coleta 1 apos 5
    dias os ovos de peixe nascem e vão para o processo de reversão sexual para tornarem
    todos machos, então essa coleta vai sair do laboratório e ir para os viveiros, então
    ao dar entrada na reversão, no form reversão vai ter a combo com a coleta 1
    e ao selecionar e preencher o subformulário com os destinos da coleta a combo preencheria
    o campo sim/não da tabcoleta, e no próxima reversão a cadastrar, ela não apareceria mais
    na combo, dando baixa na coleta automaticamente... esse mesmo processo de dar baixa ainda
    vou precisar colocar em outros processos apos a reversão!
    avatar
    Convidad
    Convidado


    [Resolvido]Preencher campo sim/nao com caixa de combinação Empty Re: [Resolvido]Preencher campo sim/nao com caixa de combinação

    Mensagem  Convidad 24/1/2012, 22:00


    De acordo com os Nomes dos objetos no exemplo enviado, você quer atualizar o campo coleta_baixa da tabela
    tbcoleta para Sim quando for atualizado o subformulário Filho8 (que é baseado na tabela reversao_desc), que está no formulário frmReversao (que é baseado na tabela reversao).

    O código abaixo seria para o evento Após Atualizar do subformulário Filho8.
    O evento ocorre quando muda o registro e se alguma alteração tiver sido feita.

    Private Sub Form_AfterUpdate()
    DoCmd.RunSQL "UPDATE tbcoleta SET coleta_baixa = -1 WHERE coleta_id = Forms!frmReversao!Filho8!reversao_fk"
    End Sub

    O Problema é que não dá pra relacionar coleta_id com reversão_fk

    A estrutura do form não está correta. Veja nos Relacionamentos: Há uma tabela intermediária!
    avatar
    Convidad
    Convidado


    [Resolvido]Preencher campo sim/nao com caixa de combinação Empty Re: [Resolvido]Preencher campo sim/nao com caixa de combinação

    Mensagem  Convidad 25/1/2012, 21:32



    Teste assim, nas mesma cópia que me enviou, com os relacionamentos ok e o subform vinculado ao form:

    Private Sub Form_AfterUpdate()

    DoCmd.RunSQL "UPDATE tbcoleta INNER JOIN (reversao INNER JOIN reversao_desc ON reversao.rev_id = reversao_desc.reversao_fk) ON tbcoleta.coleta_id = reversao.coleta_fk SET tbcoleta.coleta_baixa = -1
    WHERE (((reversao.rev_id)=[Forms]![frmReversao]![Filho8]![reversao_fk]) AND ((tbcoleta.coleta_id)=[Forms]![frmReversao]![coleta_fk]))"

    End Sub
    avatar
    brunopmelo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 96
    Registrado : 20/05/2011

    [Resolvido]Preencher campo sim/nao com caixa de combinação Empty Re: [Resolvido]Preencher campo sim/nao com caixa de combinação

    Mensagem  brunopmelo 28/1/2012, 21:36

    amigo desculpe pela demora para retornar...
    nao estou dando conta para colocar para funcionar,
    quando coloco o codico no evento apos atualizar,
    ta dando erro de sintese e no vba destaca em vermelho
    esse pedaço do codico:

    WHERE (((reversao.rev_id)=[Forms]![frmReversao]![Filho8]![reversao_fk]) AND ((tbcoleta.coleta_id)=[Forms]![frmReversao]![coleta_fk]))"

    nao sei bem, e so uma duvida, esse evento nao seria melhor se fosse na combox, apos atualizar?
    avatar
    brunopmelo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 96
    Registrado : 20/05/2011

    [Resolvido]Preencher campo sim/nao com caixa de combinação Empty Re: [Resolvido]Preencher campo sim/nao com caixa de combinação

    Mensagem  brunopmelo 28/1/2012, 21:49

    bom nao sei se entendi uma questao que me deixou em duvida
    vc disse:

    O Problema é que não dá pra relacionar coleta_id com reversão_fk
    A estrutura do form não está correta. Veja nos Relacionamentos: Há uma tabela intermediária!

    realmente esta certo essa questao, mais o campo rev_fk seria apenas para receber o numero de cada reversao,
    para relacionar a tab reversao_desc a tab reversao, ou seja a tab reversao_desc seria apenas os detalhes
    da tab reversao, e a tab reversao relaciona com a tbColeta atravez do coleta_fk que recebe o numero das coletas
    feitas... Para fazer esse procedimento terei que relacionar tambem os detalhes das coleta aos detalhes da reversao?
    avatar
    Convidad
    Convidado


    [Resolvido]Preencher campo sim/nao com caixa de combinação Empty Re: [Resolvido]Preencher campo sim/nao com caixa de combinação

    Mensagem  Convidad 28/1/2012, 22:16


    Não é que seus relacionamentos estejam mal, mas demorei pra construir uma sql que funcionasse.
    Aliás, aqui funciona, só que está marcando como sim todos os itens que aparecem no subform.
    Não achei jeito de ele marcar apenas o item com o foco. Para isso o evento está no AfterUpdate do subform, mas não puxa apenas o item selecionado pois todos itens tem o mesmo código.

    Com mais tempo, continuo...

    Anexei a cópia que vc enviou com as alterações.



    Anexos
    [Resolvido]Preencher campo sim/nao com caixa de combinação AttachmentexemploBrunopmelo.zip
    (26 Kb) Baixado 28 vez(es)

    Conteúdo patrocinado


    [Resolvido]Preencher campo sim/nao com caixa de combinação Empty Re: [Resolvido]Preencher campo sim/nao com caixa de combinação

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 05:59