[Resolvido]Form no formato de tabela (atualizar)

Olá!

Tenho um formulário no qual uma mesma operação pode possuir vários orçamentos. Gostaria que  na caixa "Status" do menor valor de orçamento aparecesse "Considerar" e no restante aparecesse "Não considerar" para cada alteração no campo "Valor"(isso é para cada operação).

Coloquei o banco em anexo.

Veja o exemplo abaixo:

Veja.

Obg!!

Não tem como passar o texto do campo "Status" pra tabela??

Olá! Tenho um formulário no qual temos o Nº das operações e os valores de orçamentos.
Fiz um código para o Access calcular o menor orçamento de cada operação e retornar o texto "Considerar" no campo "Status", os demais valores ficam "Não considerar".

Obs: Para cada operação deve ter um 'Considerar' que, no caso, seriam os valores do menores orçamentos.

Entretanto, esse código está dando erro ("Conflito de gravação")  ou nem chega a funcionar ao alterarmos os valores. Alguém saberia dizer pq? vou colocar o código e o arquivo.

Código:

Private Sub txtValor_AfterUpdate()

Dim db As dao.Database
Dim tabela, tabmin As String
Dim rs, rs2 As dao.Recordset

'Utilizei comandos do SQL no VBA para que conseguisse separar o menor orçamento de cada operação
tabela = "SELECT Operacao,Valor, Status FROM TabOrcamentos" 'operação e valores
tabmin = "SELECT Operacao, Min(Valor)as minimo FROM TabOrcamentos GROUP BY Operacao" 'consulta com todos os valores mínimo de cada operação

Set db = CurrentDb
Set rs = db.OpenRecordset(tabela)
Set rs2 = db.OpenRecordset(tabmin)

With rs

    rs.MoveFirst ' Ir para a primeira linha da Tab3Orcamentos

    Do Until rs.EOF 'O comando funcionará até chegar na última linha da Tab3Orcamentos. Obs: EOF = true  se você está no fim do recordset(depois do último registro) .
        Do Until rs!Operacao > rs2!Operacao 'Critério para "tabmin" ir para próxima linha
    
            If rs!Operacao & rs!Valor = rs2!Operacao & rs2!minimo Then
             rs.Edit
             rs!Status = "Considerar"
            ElseIf rs!Operacao = rs!Operacao Then
             rs.Edit
             rs!Status = "Não considerar"
            End If
            rs.Update
            rs.MoveNext 'ir para próxima linha da tabela
            If rs.EOF = True Then
                Exit Sub 'se o código chegar na última linha da tabela, a sub será encerrada
            End If
        Loop
        rs2.MoveNext 'ir para próxima linha de tabmin
    Loop
End With
End Sub




Tópico fundido.

Caroline, eu vejo esse comportamento buscado por você como um comportamento característico do Excel. Típico de planilha eletrônica. Alterar um registro e ao mesmo tempo seguir alterando todos os demais registros do banco implicam no conflito de gravação que você está se deparando.

No Access o ideal seria lançar as propostas em uma tabela, solicitar a execução de uma macro que classifique as propostas e após isso fazer abertura de um relatório listando o resultado.

Não foi isso que eu fiz?

Não pode separar minhas duas perguntas novamente?
Ninguém irá me responder aqui pq o post é antigo e as peguntas são diferentes...

Eu fundi os tópicos pois se trata da mesma ideia. É importante que os membros que participarem vejam o início do assunto e o objetivo a ser alcançado.

Sempre que o seu tópico descer, basta adicionar um "UP" para ser listado no topo da sala novamente.

carolinesilva115 escreveu:Não foi isso que eu fiz?

Não, não foi. Você está usando um formulário para o pretendido e não um relatório.
Farei uma adaptação para o resultado ser listado em relatório.

Só pra acompanhar, pois tenho algo semelhante aqui, e talvez consiga adaptar alguma coisa.

Se puder me ajudar com esse relatório, ficarei mt grata!

Uma tabela para armazenar informações.
Um formulário para inserir informações.
Um relatório para exibir as informações.

Assim é o MS Access.

Olá..

Com a licença do querido Amigo DamascenoJr.

Só para compensar o meu tempinho de dedicação a este tópico, deixo um exemplo executando a tarefa em formulário.

Espero que também possa ser aproveitado.

Abraços e sucesso a todos

Grande Celso, obrigado por participar.

Espero que resolva a questão.

Aguardemos.

O Celso fez oq eu queria!!

Mas mt obrigada a ambos!!

Vcs são gênios!!

Olá..

Ficamos felizes por ter ajudado

O fórum agradece o seu retorno

Abraços e sucesso

Olá..

No exemplo que anexei na mensagem 13, deixei o código com alguma sujeiras.
Deixo abaixo o código mais limpo, por favor substitua no seu projeto.

Código:

Public Sub Atualizar()
   
    Dim Rs As DAO.Recordset
    Dim ValorMin As Integer
    Dim VarOperacao As Variant
   
    Set Rs = Me.Recordset
             
        Rs.MoveFirst
        VarOperacao = Me.txtOperacao 'Guarda a operação atual
        ValorMin = DMin("Valor", "TabOrcamentos", "Operacao=" & Me.txtOperacao)  'Guarda o menor valor ref. a operação
               
        Do While Not Rs.EOF
       
        With Rs
        If VarOperacao = Me.txtOperacao Then 'Se valor da variavel for igual a caixa de texto do formulário..
            .Edit
                If Me.txtValor = ValorMin Then 'Se caixa de texto for igual a variavel
                    Me.Status = "Considerar"
                Else 'Caso contrário (Senão)
                    Me.Status = "Não Considerar"
                End If
               
            .Update
            .MoveNext 'Move para próximo registro
           
        Else '(Senão)
           
            'Se valor da variável do próximo registro, for diferente da caixa de texto do formulário,
            'atualiza variável para nova operação encontrada
            VarOperacao = Me.txtOperacao
           
            'Atualiza valor minimo ref. a nova operação encontrada
            ValorMin = DMin("Valor", "TabOrcamentos", "Operacao=" & Me.txtOperacao)  'Busca o maior valor de abastc.
        End If
       
        End With
        Loop
        Me.Refresh
        'Rs.Close
        Set Rs = Nothing
   
End Sub

Abraços e sucesso

Celso, tentei e não consegui. Consegue fazer o foco ficar no registro atual?

Olá DamascenoJr.

Faça o seguinte:

Acrescente o campo Id no formulario e de o nome de txtId

Comente o Me.Refresh no Public Sub Atualizar()

No Após atualizar do txtValor, altere para código abaixo

Código:

Private Sub txtValor_AfterUpdate()
    Dim RegAtual As Integer
    RegAtual = Me.txtId 'Grava registro atual na Variável RegAtual

    Call Atualizar
    Me.Requery
    DoCmd.SearchForRecord , "", acFirst, "[Id] =" & RegAtual 'Vai para Registro definida na Variável RegAtual
    Me.txtValor.SetFocus

End Sub


Abraços e sucesso

Me tirem mais uma dúvida?

Pq em alguns casos a gente tem que colocar as aspas no nome do campo em expressões como o do amigo que comentou aí acima?

Ex:
"[Id] =" & RegAtual

Olá..

As aspas são chamados com delimitadores de caracteres, para entender melhor leia este artigo


Copie e cole no seu navegador
docs.microsoft.com/pt-br/office/vba/access/concepts/criteria-expressions/include-quotation-marks-in-string-expressions

Abraços e sucesso