[Resolvido]Consulta que retorna 2 ou mais registros

Olá,

Achei uma pergunta parecida no fórum mas não tinha resposta, então ai vai.

Tenho um formulário alimentado por uma consulta com a expressão "Como" Solicitando o Número do material.

Acontece que atualmente estou com Material com o mesmo Número e assim o form abre com o primeiro material em tela e na barra inferior aparece ( se tiver 2) 1 de 2, ok.

OBS: cada registro tem um ID distinto.

Como posso alertar o usuário que existe mais um na sequência, poderia até ser aberta uma mensagem alertando.

Eu já tenho uma função ao carregar que se estiver uma opção como (sim) -1 na tela, um quadro fica piscante informando que tem B.O.

Como poderia disparar um aviso que tem mais de um registro com o mesmo numero?

Obrigado.

Bom dia amigo tudo joia ?

se possível disponibilizar o projeto para melhor ajuda-lo.

Quando solicitar o número digite 125 que tem dois registros.

https://www.dropbox.com/s/ovy0zppfwkfptx6/Maximo.zip?dl=0

Bom dia Amigo cheguei em uma solução espero que atenda!

fiz o seguinte criei um form de inicio onde você deverá digitar o numero do registro, neste caso "125"

então fiz uma consulta verificando se este numero temos mais de 1 vez no banco de dados
para isso usei a função Dcount

veja abaixo:

Código:


Private Sub Comando2_Click()
On Error GoTo erro

If IsNull(txt_localiza) Then
MsgBox "Favor preencher o valor para lozalizar os registros", vbExclamation, "AVISO"
txt_localiza.SetFocus
Else
Dim registros
registros = DCount("Numero", "Material", "Numero=" & txt_localiza)

If registros >= 2 Then
MsgBox "Foram localizados: " & registros & " registros." & Chr(13) & "Favor selecione um na lista abaixo", vbExclamation, "AVISO"
frm_material.Visible = True
frm_material.Requery
Else
frm_material.Visible = False
DoCmd.OpenForm "FrmMaterial"
End If


erro:
If Err.Number = 2501 Then
Exit Sub
End If



segue o projeto abaixo, abraços boa sorte!

https://www.dropbox.com/s/x3ybb68l52zcxml/Maximo-2003.mdb?dl=0

Valeu Danilo,

Isso mesmo, agora vou adaptá-lo aos meus formulários.
Caso tenha algum problema retorno ao tópico.

Obrigado