Caixa De Combinação

[Synk]

Boa tarde, na minha base de dados sobre uma turma de escola estou a usar um formulario que permite uma pesquisa directa do aluno atravez de uma inputbox que pede ao utilizador o nº do processo a pesquisar. Através do seguinte código consigo aceder directamente ao processo:

Private Sub Form_Open(Cancel As Integer)

[Caixa de combinação18].Visible = False

x = InputBox("Insira o número do processo a pesquisar:", "Pesquisa")

[Caixa de combinação18] = x

Dim RS As Object

Set RS = Me.Recordset.Clone

RS.FindFirst "[Número Processo] = " & Str(Nz(Me![Caixa de combinação18], 0))

If Not RS.EOF Then Me.Bookmark = RS.Bookmark

End Sub

Private Sub Caixa_de_combinação18_AfterUpdate()

' Localizar o registo que corresponde ao controlo.

Dim RS As Object

Set RS = Me.Recordset.Clone

RS.FindFirst "[Número Processo] = " & Str(Nz(Me![Caixa de combinação18], 0))

If Not RS.EOF Then Me.Bookmark = RS.Bookmark

End Sub

Adaptei o código de uma caixa de combinação à minha finalidade.

Mas agora obtenho um problema.Gostava de poder inserir na base de dados um controlo sobre o nº de processo, ou seja se o nº de processo inserido na inputbox não existir, devera ser gerado um erro.O problema é que não sei como verificar todos os valores da caixa de combinação.Pensei em usar um ciclo for ou while, mas não sei qual a propriedade da caixa de combinação que devo comprar dentro dos ciclos, e também não sei como saber o tamanho da caixa de combinação para parar os ciclos!!!

Alguém me pode ajudar?

Obrigado

[MrMALJ]

Não testei seu código mais pelo que pude entender, as linhas que adicionei devem resolver seu problema

Private Sub Form_Open(Cancel As Integer)

[Caixa de combinação18].Visible = False

x = InputBox("Insira o número do processo a pesquisar:", "Pesquisa")

[Caixa de combinação18] = x

dim tstvar as variant

tstvar=DLookup"[seuProcesso]", "SuaTabela", "[seuProcesso] = " & pesquisa)

if tstvar=null or tstvar="" then

tstvar=msgbox("Processo não encontrado!",vbOKOnly + vbCritical)

else

Dim RS As Object

Set RS = Me.Recordset.Clone

RS.FindFirst "[Número Processo] = " & Str(Nz(Me![Caixa de combinação18], 0))

If Not RS.EOF Then Me.Bookmark = RS.Bookmark

End Sub

Private Sub Caixa_de_combinação18_AfterUpdate()

' Localizar o registo que corresponde ao controlo.

Dim RS As Object

Set RS = Me.Recordset.Clone

RS.FindFirst "[Número Processo] = " & Str(Nz(Me![Caixa de combinação18], 0))

If Not RS.EOF Then Me.Bookmark = RS.Bookmark

end if

End Sub

[Synk]

Obrigado pela ajuda!

Tentei fazer o que disse mas obtenho um erro:

"

Run-time error '2001'

A operação anterior foi cancelada por si

"

Eu pus o código tal como me indicou alterando o que devia para o seguinte:

tstvar = DLookup("[Número Processo]", "Alunos", "[Número Processo]= x")

O erro que aparece é gerado nesta linha!Algo esta mal e não consigo perceber o que!

O campo [Número Processo] é o campo que contém os numeros que deveram ser comparados e Alunos é o nome da tabela! "x" é a variavel que vai assumir o valor inserido na inputbox!O que fiz mal? como posso corrigir o erro?

já agora podia-me explicar uma coisa nesta parte do código:

if tstvar=null or tstvar="" then

tstvar=msgbox("Processo não encontrado!",vbOKOnly + vbCritical)

else

Para que se da a variavel tstvar o valor da msgbox?

[MrMALJ]

Bom no caso tem que ficar mais ou menos assim

tstvar = DLookup("[Número Processo]", "Alunos", "[Número Processo]= 'x'")

[Synk]

Agora aparece este erro "Tipo de dados incorrecto na expressão de critérios."

Eu pesquisei no google pelo comando DLookup e como você me mandou usar é para ser usado em strings certo? Mas a variável x é de valor numérico, no entanto com a estrutura para valores obtenho à mesma o erro que disse no post anterior, tou a desesperar acha que se trocarmos contacto MSN ou assim era mais facil para tentar resolver o problema? obrigado

[MrMALJ]

ok me adiciona ai

mrmalj@hotmail.com