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]desaparecer valores da combo box

    Oliveira89
    Oliveira89
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 159
    Registrado : 07/09/2016

    [Resolvido]desaparecer valores da combo box Empty [Resolvido]desaparecer valores da combo box

    Mensagem  Oliveira89 19/10/2016, 17:38

    Boa tarde

    criei uma combo box através de uma tabela e seguidamente de um formulário. Seguidamente tentei fazer com que um valor que fosse guardado através de um botão depois de ser seleccionado pela combo desaparece-se através de um campo sim ou não, porem não estou a comseguir alterar o valor do campo sim ou não. alguém me consegue dizer o que está errado?

    Private Sub yuy_Click()
    DoCmd.RunCommand acCmdSaveRecord
    CurrentDb.Execute "update registos set saida = -1 where data and hora and cliente1 = " & Me.consulta_saida & ""
    DoCmd.GoToRecord , , acNewRec
    Me.consulta_saida.Requery
    End Sub

    mando tambem a bd, caso seja necessario, (formulário utilizadores)
    Anexos
    [Resolvido]desaparecer valores da combo box AttachmentBase de dados placard.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (890 Kb) Baixado 11 vez(es)


    .................................................................................
    Muito Obrigado
    Com os melhores Cumprimentos
    此致
    Oliveira
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]desaparecer valores da combo box Empty desaparecer valores da combo box

    Mensagem  good guy 19/10/2016, 19:36

    Olá Oliveira,

    Se você inserir uma MsgBox no código para verificar retorno de valor do código.O valor aparece na MsgBox.

    Código:

    Private Sub yuy_Click()
    DoCmd.RunCommand acCmdSaveRecord
    Dim strReg As String

    strReg = Me.consulta_saida.Column(0)
    MsgBox strReg    'RETORNA APENAS A DATA. MAS O QUE VOCÊ QUER É QUE O CAMPO BOLEANO DO REGISTRO SELECIONADO SEJA ALTERADO.
    PORTANTO NÃO IMPORTA QUANTAS VARIÁVEIS ENTRARÃO NA SUA CLÁUSULA UPDATE DE ATUALIZAÇÃO, MAS SÓ A QUE APARECE NA SUA
    MSGBOX. ENTENDEU?

    CurrentDb.Execute "update registos set saida = -1 where data and hora and cliente1 = " & Me.consulta_saida & ""
    DoCmd.GoToRecord , , acNewRec
    Me.consulta_saida.Requery
    End Sub

    Para atender a sua solicitação o código fica assim:

    Código:
    Private Sub yuy_Click()
    DoCmd.RunCommand acCmdSaveRecord
    Dim strReg As Date

    strReg = Me.consulta_saida.Column(0)

    CurrentDb.Execute "update registos set saida = -1 where data = #" & strReg & "#"
    DoCmd.GoToRecord , , acNewRec
    Me.consulta_saida.Requery
    End Sub
    Oliveira89
    Oliveira89
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 159
    Registrado : 07/09/2016

    [Resolvido]desaparecer valores da combo box Empty Re: [Resolvido]desaparecer valores da combo box

    Mensagem  Oliveira89 20/10/2016, 09:15

    Bom dia good guy

    Antes de mais quero agradecer a sua disponibilidade.
    Sim entendi, resumidamente o strReg = Me.consulta_saida.Column(0) vai seleccionar o meu campo data que neste caso é a coluna 0 da minha consulta é isso?
    A minha duvida é = #" & strReg & "#" ;  os # ao fim ao cabo fazem o quê?

    Caso me pudesse ajudar também na minha ultima duvida que era no relatório "Relregistos" apenas aparecer os registos que no campo saida ainda não tenham o visto, ou seja, os registos que ainda não deram saída.


    .................................................................................
    Muito Obrigado
    Com os melhores Cumprimentos
    此致
    Oliveira
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]desaparecer valores da combo box Empty desaparecer valores da combo box

    Mensagem  good guy 20/10/2016, 15:10

    Olá Oliveira,

    Para variáveis do tipo Date, intercalamos com "#" no código:

    data = #" & strReg & "#"    'No entanto, evite nomear variáveis com nomes reservados do Access como data para evitar conflitos no fluxo do código


    Quanto ao relatório fica assim:

    Código:

    Private Sub Report_Open(Cancel As Integer)

    Me.RecordSource = "SELECT * FROM Registos WHERE transporte_extra_nao_planeado = FALSE"  'Ou TRUE, caso queira exibir as assinaladas no checkbox.

    End Sub


    Última edição por good guy em 20/10/2016, 15:50, editado 2 vez(es)
    Oliveira89
    Oliveira89
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 159
    Registrado : 07/09/2016

    [Resolvido]desaparecer valores da combo box Empty Re: [Resolvido]desaparecer valores da combo box

    Mensagem  Oliveira89 20/10/2016, 15:17

    Entendo agora, pois nunca tinha declarado uma variável data, mas faz todo o sentido Smile agora já sei.


    .................................................................................
    Muito Obrigado
    Com os melhores Cumprimentos
    此致
    Oliveira
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]desaparecer valores da combo box Empty desaparecer valores da combo box

    Mensagem  good guy 20/10/2016, 15:38

    UP (Veja acima, por favor)

    Caso tenha outras dúvidas procure pelo Buscar do fórum MaximoAccess.
    Um abs,

    #Eduardo Machado(Good Guy)
    Oliveira89
    Oliveira89
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 159
    Registrado : 07/09/2016

    [Resolvido]desaparecer valores da combo box Empty Re: [Resolvido]desaparecer valores da combo box

    Mensagem  Oliveira89 20/10/2016, 17:04

    depois quando poder podia ajudar-me com a duvida quanto ao relatório?


    .................................................................................
    Muito Obrigado
    Com os melhores Cumprimentos
    此致
    Oliveira
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]desaparecer valores da combo box Empty desaparecer valores da combo box

    Mensagem  good guy 20/10/2016, 18:04

    Olá Oliveira,

    Já postei acima a solução. Mas para facilitar...

    Código:

    Private Sub Report_Open(Cancel As Integer)

    Me.RecordSource = "SELECT * FROM Registos WHERE transporte_extra_nao_planeado = FALSE"  'Ou TRUE, caso queira exibir as assinaladas no checkbox.

    End Sub

    Oliveira89
    Oliveira89
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 159
    Registrado : 07/09/2016

    [Resolvido]desaparecer valores da combo box Empty Re: [Resolvido]desaparecer valores da combo box

    Mensagem  Oliveira89 21/10/2016, 09:00

    Bom dia Sr. Eduardo

    Muito Obrigado pela sua ajuda, acompanhamento e paciência.
    cheers


    .................................................................................
    Muito Obrigado
    Com os melhores Cumprimentos
    此致
    Oliveira
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]desaparecer valores da combo box Empty desaparecer valores da combo box

    Mensagem  good guy 24/10/2016, 21:45

    Olá Oliveira,

    O fórum todo agradece.


    "O temor do Senhor é o princípio da sabedoria; têm bom entendimento todos os que cumprem os seus preceitos; o seu louvor subsiste para sempre."(Salmos 111.10 - v. João Ferreira de Almeida)

    Se quiser aprender mais adquira os meus dois livros DOMINE O ACCESS VBA e TÉCNICAS ESPECIAIS DE ACCESS VBA e você vai aprender isto e muito mais.

    Editora Livrorama(DOMINE ...):
    www.livrorama.com.br

    Editora Ciência Moderna(TÉCNICAS...):
    www.lcm.com.br


    Um grande abraço.

    "O temor do Senhor(respeito pela Palavra de Deus, leitura e obediência) é o princípio do conhecimento" (Prov. 1.7)
    Disse Jesus: "E conhecereis a Verdade e a Verdade vos libertará". (Jo 8.32)
    Disse Jesus: “Eu sou a luz do mundo; aquele que me segue, não andará em trevas, mas terá a luz da vida.” (Jo. 8.12)

      Data/hora atual: 5/12/2022, 18:14