[Resolvido]Pesquisar em qualquer campo da tabela para poder anular

Boa tarde amigos

Este é o comando que utilizo para eliminar dados na tabela "Produtos",.

If (Not IsNull(DLookup("[Tipo]", "Produtos", "[Tipo] ='" & Me!txtTipo & "'"))) Then
MsgBox "O Componente.  " & txtTipo & Chr(10) + "Não pode ser Anulado, Pois Já Tem Produtos Registados.", vbQuestion, "Aviso"
Exit Sub
End If

Queria que o DLookup procurasse não só no campo "Tipo" mas sim em todos os campos dessa tabela.

Obrigado

Ola Assis;

Utilize a abertura de um Recordset para percorrer todos os campos da tabela, que é mais rapido e eficaz.

Faça o teste por favor;

Private Sub SeuBotao_Click()
'By JPaulo ® Maximo Access
Dim I As Long
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Produtos", dbOpenDynaset)
    Do While Not rs.EOF
    For I = 0 To rs.Fields.Count - 1
    If rs(I).Value = Me!txtTipo.Value Then
       MsgBox "O Componente.  " & txtTipo & Chr(10) + "Não pode ser Anulado, Pois Já Tem Produtos Registados.", vbQuestion, "Aviso"
       Exit Sub
       Else
    End If
    Next
    rs.MoveNext
    Loop
rs.Close
Set rs = Nothing
End Sub

JPaulo

Fenomenal
Obrigado

Obrigado pelo retorno o forum agradece.