[Resolvido]Verificar se registro já é existente no banco de dados

Estou criando um formulário de entrada de equipamentos para o meu Almoxarifado, porém ao digitar o numero de série do equipamento eu preciso que ele faça uma consulta no banco de dados para ver se aquele serial já existe no banco de dados e se já foi baixado, caso exista e não for baixado deve trazer a mensagem na tela, caso exista e for baixado permitir adição e caso não exista permitir adição. Sou iniciante em Access e criei um código para isso, mas está trazendo a mensagem "Erro em tempo de execução '3464' na execução do código, o tipo do campo SERIAL na tabela ALMOX é Texto, e Texto0 é o nome do campo que eu quero que seja consultado.

O código é o seguinte:

Dim IDsEncontrados As Recordset
If Not IsNull(Me.Texto0) Then
strSQL = "SELECT SERIAL From ALMOX Where SERIAL = " & Me.Texto0 & " and DATA_BAIXA is Null"
Set IDsEncontrados = CurrentDb.OpenRecordset(strSQL)
If IDsEncontrados.RecordCount <> 0 Then
MsgBox "ESTE EQUIPAMENTO JÁ EXISTE INICIADO NO SISTEMA!.", vbInformation, "VERIFICAR"
End If
End If

Boa tarde Junior,

Faz um teste com esse:

Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("SELECT * FROM ALMOX")

With rst
If rst![SERIAL] = Me.Texto0.Value Then
MsgBox "Equipamento já cadastrado...", vbCritical
Me.Undo
Else
End If
End With
rst.Close
End Sub

tenta no evento Antes de Atualizar dp campo SERIAL.


Nivaldo.

Nivaldo,
Eu preciso verificar se a DATA_BAIXA esta nula tambem, porque na verdade se estiver preenchida esta liberado cadastrar duplicado, se estiver nulo não esta liberado. Com isso permito a entrada apenas quando o equipamento já foi baixado e esta voltando e fico com um historico de registro do equipamento.

Junior,

Tenta então da seguinte forma:

Altera só essa linha:

If rst![SERIAL] = Me.Texto0.Value And [DATA_BAIXA] = Null Then

Deve resolver.

Nivaldo.

Obrigado, deu certo.

Essa macro retorna esse ERRO 2162.


Preciso substituir a linha marcada em vermelho que hoje busca pelo campo texto nome e que mesmo assim retorna erro ,

="[CadastrodePedidos].[Nome do Cliente]='" & [TempVars]![nomCliente] & "'"


" para que busque por campo Codigo (chave primaria na tabela ) ", e assim encontre o registro !
Access 2007 - 2010

Por Favor , Alguém pode ajudar ?