Estou batendo cabeça com a seguinte situação. Tenho uma tabela chamada "Propostas" com os seguintes campos:
Proposta
Autorizacao
Despacho
Criei uma consulta para mostrar as propostas com o campo Despacho = "Pendente" e vinculei a um formulário FConsPropostasPendentes. Coloquei um botão no formulário para o administrador despachar. Segue o código do botão:
Private Sub Comando7_Click()
If getGrupoUsuarioAtual <> "Administradores" Then
MsgBox "Você não tem autorização para despachar", vbInformation, "Despacho"
Else
CurrentDb.Execute "Update Propostas set Despacho = 'Despachado' "
MsgBox "Registro descpachado com sucesso!", vbInformation, "Despachado"
DoCmd.GoToRecord , , acNext
End If
End Sub
O problema é: Quando o administrador despacha o primeiro registro, todos os outros são despachados, e eu queria que fosse feito um por vez. Se alguém puder me ajudar eu agradeço.
Proposta
Autorizacao
Despacho
Criei uma consulta para mostrar as propostas com o campo Despacho = "Pendente" e vinculei a um formulário FConsPropostasPendentes. Coloquei um botão no formulário para o administrador despachar. Segue o código do botão:
Private Sub Comando7_Click()
If getGrupoUsuarioAtual <> "Administradores" Then
MsgBox "Você não tem autorização para despachar", vbInformation, "Despacho"
Else
CurrentDb.Execute "Update Propostas set Despacho = 'Despachado' "
MsgBox "Registro descpachado com sucesso!", vbInformation, "Despachado"
DoCmd.GoToRecord , , acNext
End If
End Sub
O problema é: Quando o administrador despacha o primeiro registro, todos os outros são despachados, e eu queria que fosse feito um por vez. Se alguém puder me ajudar eu agradeço.