Ajuda com números em um combobox

[Guest --Thiago --]

Tenho um formulário que na Como chave primária um Número de BP (BEM PERMANENTE) que só pode conter números, mas não sei como delimitar isto, já que atribuí o botão converter para Keyascii = 13(ENTER) e não consigo fazer uma lógica de tal maneira que teste a função :

If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then

o Código está assim:

Private Sub cbobp_GotFocus()
SendKeys "%{DOWN}"
If KeyAscii = 13 Then
cmdConferir_Click
End If
End Sub


Private Sub cmdConferir_Click()
cbobp.Enabled = False
cmdConferir.Enabled = False
KeyAscii = 13
cbobp_KeyPress (KeyAscii)
End Sub


Private Sub cbobp_KeyPress(KeyAscii As Integer)
'Executa a função pesquisa passando dois parâmetros
AutoProcura cbobp, KeyAscii
If KeyAscii = 13 Then
cmdConferir.Enabled = False
... ... ... (continua)

Alguém pode me ajudar?

Atenciosamente

Thiago Rodrigues

tikopaulet@hotmail.com

[Graymalkin]

O que você quer fazer exatamente?

Abraços,

Graymalkin

[Guest --Thiago --]

Queria que só números possam ser digitados nele!

se a pessoa digitasse outra coisa além de números, ele desse uma mensagem de erro!

[raphael_suporte]

Cara primeiro, até onde eu entendo, o intuito de uma combo é exatamente não ser necessário digitar nada ela já ser "populada"...

[Guest --Thiago --]

Sim, perfeitamente.

Mas utilizo este Combobox conectando-o ao banco de dados Acess, e ele recebe os valores de uma tabela.

O usuário tem a opção de digitar o número, ou de Auto-completá-lo.

Atenciosamente

Thiago Rodrigues

tikopaulet@hotmail.com

[Guest --Thiago --]

Pessoal,

já consegui.

Usei a função:

IF IsNumeric(*VARIÁVEL*) THEN

Muito obrigado mesmo pela ajuda.

Atenciosamente

Thiago Rodrigues

tikopaulet@hotmail.com