[Resolvido]Select em uma tabela sem ID

Boa tarde a todos.



Acabei de conseguir uma resposta com o Ricardo, mas estou com duvida em algo mais, por isso abri um tópico novo.
Agora a duvida é a seguinte.

no código abaixo, ele faz um Select em uma tabela e me retorna os valores dela para preencher um formulário, mas se o usuário digitar um Numero de Pedido que nao exista, gostaria que aparecesse uma msgbox dizendo que nao existe o pedido.

Mais uma vez obrigado a todos.


Private Sub NumPedFat_AfterUpdate()

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String

strSQL = "Select * FROM [tbl Pedido] WHERE [Numero do Pedido] = '" & NumPedFat & "'"

Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)
If Not rs.BOF Then
Me.NumPedFat = rs("[Numero do Pedido]")
Me.ClienteFat = rs("Cod_Cliente")
Me.TOTALFAT = rs("[Total do Pedido]")

End If

rs.Close

Set rs = Nothing
db.Close
Set db = Nothing

End Sub

Tente assim:

If IsNull(DLookup("NomeCampo", "NomeTabela", "Campo='" & Me!NomeCampo & "'")) Then
MsgBox "Código inexistente", vbOkOnly + vbCritical, "Erro"
Else

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
...

End If

Perfeito.... Muito Obrigado Criquio.

Agora sim Resolvido.