[Resolvido]Botão não abre formulario

Boa tarde
Amigos

depois de longo tempo ausente cá estou de novo
Obrigado

-------------------------------------------------------------------

Com este comando abaixo a Base de dados funcionou 4 Anos até o campo tipo número [numpedido], chegar ao 999.

Agora que o campo tipo número [numpedido], ultrapassou n númeo 1000.

O comando não abra o dito formulário"frmReqAltera"

Private Sub Lista0_Click()
On Error GoTo 1

  DoCmd.openForm "frmReqAltera", , , "[numpedido]=" & Lista0.Column(0)
 Me.Foco.SetFocus


Obrigado
1: Exit Sub

É dificil advinhar, mas podemos tentar de duas formas;

Código:

DoCmd.OpenForm "frmReqAltera", , , "[numpedido]=" & Val(Lista0.Column(0))

Código:

DoCmd.OpenForm "frmReqAltera", , , "[numpedido]=" & Int(Lista0.Column(0))

Obrigado

com esta linha ficou a funcionar

DoCmd.OpenForm "frmReqAltera", , , "[numpedido]=" & Int(Lista0.Column(0))

Obrigado pelo retorno o forum agradece.