[Resolvido]Fonte de Registro

Boa tarde Srs.

Gostaria de "empurrãozinho" para uma comando que estou desenvolvendo.

Tenho uma listBox que armazena valores onde a origem é a tab_solicitacoes, e preciso da seguinte ajuda:

1: Na minha listbox no evento "ao clicar" abre o relatório referente ao registro. E ao fechar o relatório exibe uma MsgBox pedindo se deve dar baixa ou não.

Caso sim, armazena o valor "Aprovado" na caixa txt_status do Formulário onde possuo a ListBox.

No mesmo formulário possuo uma segunda caixa de texto chamada txt_id que ao clicar na listbox, me traz o id do registro.


Gostaria que na tab_solicitacoes todos registro com o mesmo id da caixa txt_id recebessem o valor no campo Status da caixa do Formulário txt_status.

Lembrando que o ID pode ser duplicado ou não.

Boa noite,
Não entendi o que tem e o que pretende

Basicamente é fazer com que todos registros do campo Status da tab_solicitacoes fique igual à caixa txt_status.
Tomando como referencia o n° do registro que também está na tab_solicitacoes.
Ambas caixaDeTexto ficam no formulário, e são preenchidas clicando na listbox.

Boa noite,
currentdb.execute "UPDATE tab_solicitacoes SET Status='" txt_status & "' WHERE ID=" & txt_id

"Era esperado fim da Instrução."

currentdb.execute "UPDATE tab_solicitacoes SET Status='" txt_status & "' WHERE ID=" & txt_id

Olá Caio,

Uma pequena correção no código do mestre Alexandre. Acrescentei um "&" antes de txt_status.

Código:


currentdb.execute "UPDATE tab_solicitacoes SET Status='" & txt_status & "' WHERE ID=" & txt_id

"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)

Dá o erro:


Erro em tempo de execução '3075':

Erro de sintaxe (operador faltando) na expressão de consulta
'ID='.

Devo comunica-lo que o código esta no evento ao fechar de um Relatório.

Código:

Private Sub Report_Close()
'Dar baixa
If CurrentProject.AllForms("fml_solicitacoes").IsLoaded = True Then
    X = Msgbox("Deseja dar Baixa na Solicitação " & Forms!fml_solicitacoes.NumeroSolicitação & "?", vbYesNo)
If X = vbNo Then
    Forms!fml_solicitacoes.txt_status = "Reprovado"
    CurrentDb.Execute "UPDATE tab_solicitacoes SET Status='" & txt_status & "' WHERE Solicitacao=" & Me.txt_Solicitacao
Else
    Forms!fml_solicitacoes.txt_status = "Aprovado"
    CurrentDb.Execute "UPDATE tab_solicitacoes SET Status='" & txt_status & "' WHERE Solicitacao=" & Me.txt_Solicitacao
End If
End If
End Sub

Fiz o seguinte, o relatório coloca o valor em um campo e inserir um botão no form para executar o código.

Deu certo!

Caso não consiga adaptar o código que enviei, deixarei assim mesmo. Da forma que está funciona, porém com duas atividades.

Tópico resolvido!