[Resolvido]desaparecer valores da combo box

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)

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


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.

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


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

UP (Veja acima, por favor)

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

#Eduardo Machado(Good Guy)

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

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


Bom dia Sr. Eduardo

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

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)