[Resolvido]Como identificar se valor inserido no campo é igual ao anterior

Numa combobox, ao inserir um novo valor, como identificar se o novo valor é ou não igual no anterior?

Não entendi bem. Qual seria o "valor anterior"? De onde ele vem? Da própria combo? No caso você selecionaria um valor e depois, ao selecionar outro na mesma combo, fazer a comparação?

Nesta combobox, por exemplo, os valores são números.
Então selecionei o valor 001 - e a atualização é salva.

Retorno a combo para alterá-la: se seleciono o valor 001, quero identificar que o novo valor é igual ao anterior (no caso, 001).

Tente colocando uma variável de nome vAnterior por exemplo no escopo do módulo do formulário. Depois, no evento "Ao receber foco" da combo, coloque:

vAnterior = Me.NomeDaCombo.Value

No evento "Após atualizar" da combo:

If Me.NomeDaCombo.Value = vAnterior Then
    MsgBox "Esse valor é igual ao anterior", vbInformation, "Atenção"
Else
    MsgBox "Esse valor é diferente do anterior", vbInformation, "Atenção"
End If

Não funcionou.
O valor retornado pela variável é sempre 0.

Você declarou a variável no escopo do formulário?

Option Compare Database
Option Explicit

Dim vAnterior As Integer

Essa linha deve ser a segunda caso não tenha a segunda linha acima ou a terceira caso tenha a segunda linha acima, a Option Explicit. Caso não tenha essa linha, melhor colocar tambem. Ela garante o correto uso das variáveis.

Com licença, dando o meu pitaco

Experimente:

No evento antes de atualizar da combo
If me!NomeDaCombo.OldValue = me!NomeDaCombo.Value Then
MsgBox "igual"
Else
MsgBox "Diferente"
End If


Abraços

Criquio,

havia feito como você orientou, incluindo a declaração de variável no escopo. Não funcionou.

A dica do Balem deu certo.

A ambos, muito obrigado, mesmo!

boas

Numa combobox, ao inserir um novo valor, como identificar se o novo valor é ou não igual no anterior?

não é identificar se o novo valor é ou não igual no anterior, mas sim se existe em algum registo.

eu costumo fazer diferente:

no evento lostfocus da combo.
1- fazer um select à tabela filtrando pelo valor da combo.
2. se existe algum valor igual emite-se msgbox que existe.

isto também pode ser feito no botão gravar ou actualizar,e no else faz-se «insert into» ou «update». mas normalmente é no lostfocus, porque ao passar o foco temos logo essa informação para podermos alterar.

não esquecer que se deve ordenar a tabulação.

ps: se for necessário um exemplo é só pedir.
cumps
acao

Gondim

Valeu pelo retorno.

O fórum agradece.

Boa sorte!

Acao,

gostaria de ver o exemplo. Não entendi bem sua explicação.
No meu caso, tenho um procedimento usando DAO.Recordclone para verificar se há outro registro igual.
O que eu precisava era: se no campo CodEvento1 = 001, for feita uma alteração para o mesmo valor (001), a busca por um valor já cadastrado não é realizada. Para quê isso? Ao inserir um novo valor, vários campos recebem valores calculados. Então, alterar para o mesmo valor seria algo como dar um recalc.

boas
talvez não percebesse bem a tua questão e o que pertendesses fosse diferente, mas deixo aqui a minha ideia.
imagina que tens um campo que não pode ter dados repetidos.(foi o que eu pensei na tua questao)
então no evento lostfocus do controle referente ao campo sem dados repetidos fazes assim:

Private Sub Texto0_LostFocus()
Dim com As New ADODB.Command
Dim rst As New ADODB.Recordset
com.ActiveConnection = CurrentProject.Connection
com.CommandText = "SELECT *FROM Tabela1 WHERE nome = '" & Texto0.Text & "';"
com.CommandType = adCmdText: Set rst = com.Execute
With rst
If .BOF And .EOF Then ' se o recordset está fora dos registo
MsgBox ("se quiser que informe que ainda não existe registo com o valor da cx de texto.")
Else
MsgBox ("o valor já existe")
'ou
MsgBox (" O valor já existe no resgito nº. " & rst!ID & "")

End If
End With


Set rst = Nothing
Set com = Nothing
End Sub
não esquecer de adicionar a referencia ado, em «tela codigo/tools/references»(microsft activex data objectos ???)

em ado é assim, eu gosto de ado e penso que quem nao usa devia usar pois a base de programação em geral é ado, ado facilita mais as coisas.

não se esqueça que a dica do criquio foi correcta você e que não conseguiu implementar.

veja aqui...


cumps
acao