carolinesilva115

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 porque? vou colocar o código e o arquivo. Meu arquivo: https://www.maximoaccess.com/download?id=22496 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

O formulário é esse "FormNavegacao". Eu quero que ao selecionar uma operação no Menu, abra o FormNavegacao com os dados da TabOperacoes.

Criei um formulário de pesquisa, no qual ao selecionar uma operação específica e clicar no botão, deverá aparecer uma tela com todas as informações dessa operação. Além disso, o usuário também poderá ser capaz de alterar os dados e eles serem salvos na tabela de origem. O problema é q eu não tenho ideia de como fazer isso kkk Alguém me ajuda? O arquivo está no link abaixo https://drive.google.com/open?id=1tET1XhxiGf18EEfoBhyY9nI4vH1tDRHj