[Resolvido]Ver se esta cadastrado

bom dia!
Pessoal tenho um codigo do mestre Avelino Sampaio que utilizo para verificar se determinado "Registro existe numa tabela" até  agora sempre funcionnnou e me ajudou muito.
O referido codigo e pra ver se tal "Nome, ou outro tipo de dados" ja existe numa tabela.
O codigo do mestre Avelino e esse:If DCount("idCliente","tblClientes","cli_Nome =""" & Me!cli_Nome & """") > 0 Then

O codigo que adaptei ficou assim:
If DCount("servico", "TabPreco", "TxCodServ =""" & Me!TxCodServ & """") > 0 Then
  MsgBox "O Produto" & Me!TxServiço & " já esta cadastrado..."
  Me.Undo
  Cancel = True
End If
Bom acontece que pra essa consulta nao esta funcionando , pois na minha Tabela "TabPreco"
possuo os seguintes campos:
CodigoTab====> essse Campo vem de uma tabela chamadaTabNomes
Servico======> esse campo vem de uma tabela chamda Tbserviços
porcentagem=====> esse campo e nativo da tabela TabPreco
nomeserv=====> esse campo e nativo da tabela TabPreco
IdService=====> esse campo e nativo da tabela TabPrteco(esse campo e AutoNumerico)uso como identificador
TipoS =====> esse campo e nativo da tabela TabPreco

em um formulario no evento antes de atualizar  preciso verificar se determinado serviço ja esta cadastrado, acontece que preciso filtrar a informação utilizando 2 criterios:
o primeiro criterio e o "CodigoTab" e o segundo e o "Servico" ambos sao campos numeriocos
Exemplo:
Digamos que eu va cadastrar o serviço"Corte de cabelo masculino"
Devo primeiro indicar em qual CodigoTab quero cadstrar  e se esse serviço ja constar me avisaria e nao permitiria o cadastro.

Olá Claudinei,

Se compreendi bem a dúvida só precisa de adicionar a clausula "WHERE" no DCount, algo assim

Código:

... WHERE [CodigoTab] = ' & me.SeuCampo_CodigoTab ...

Abraço

Alvaro obrigado por responder tentei adcionar o complemennte mas nao consegui implantar sua dica
meu codigo E: If DCount("servico", "TabeladePreco", "TxCodServ =""" & Me!TxCodServ & """") > 0 Then ....
pelo que entendi devo acresecntar um where indicando o campo que traz o CodigoTab e isso?

Pessoal tentei seguior a dica do Alvaro Teixeir, mas o sehuinnte erro no vba:
"Erro dedcomplilaçao:
Sub ou function nao definida"

a linha de codigo ficou assm:

If DCount("servico", "TabeladePreco", WHERE("CodigoTab") = """ & me.txtab) ,(TxCodServ) =""" & Me!TxCodServ & """") > 0 Then

----------------------------------------
Alguem saberia dizer onde eu errei?

Boa noite colegas.
Ney, como assim querer indicar em qual código quer cadastrar? Qual é essa finalidade do sistema querer ver em qual codigo se coloca?
Não precisa de filtrar dois criterios, se o nome já foi cadastrado o indentificador vai está nas tabelas que foi programada. Porque para verificar o nome só depende de um campo na tabela:
Os criterios só para filtrar listas.
Ex:
If DCount("*", "TabeladePreco", "CodigoTab='"& me.txtab & "'") >= 0 Then

Porque os código são feito para relação de tabelas.
se o nome Joana foi cadastrado na tabela clinete o indentificacos foi cadastardo nas duas tabelas (cliente e serviço), Não tenha dúvida.
Para consulta funcionar o identificador de todos tem que está junto.
Ex: se você está com o combox o IdCliente.column(0) nome.column(1) tudo na mesma combox, sendo assim ele vai puxar todos relacionados

Mas para puxar dois criterios é colocar esse código no seu segundo critério.

Código:

strSQL = "TNome da tabela.CampoTab" & _
            "FROM Tabela" & _
            "WHERE Id da tabela= " & Me.IdCliente.column(0) & " AND tabela.campo= '" & me.nome.column(1) & "' " & _
            "ORDER BY tblProdutos.nome"
Me.Lista.RowSource = strSQL

Infelismente essa order by nunca da certo para mim

Prezado Crisostomo o motivo de eu precissar filtrar e que como existem sei tabelas um apra cada funcionaria
qundo for lancar um serviço preciso saber se baquela tabela ja existe o serviço cadastrado:
TabJosy O id e um o corte de cabelo Feminino o Id de sse serviço tambem e 1 se ja consta enta o preciso que avise.
porem a TabNeuci o id e 2 se eu for lançar o serviço id 1 e ele nao constar permita o cadastro

Nao entendi sua mensagem. Mas foi o que disse acima cada filtros com os identificadores.
Pelo que dar a entender é que você está usando o código da tabela como ID dos funcionários.
O que deixaria na clareza para não dar problema breve é  deixar o código das tabelas e cada funcionário com seu ID.
Coloque a parte do banco aqui para eu e Teixeira conseguir ajudar

segue o e modelo

Boa noite Ney.
Rapaz usei 5 codigos diverente dploock, recordSet e outro, mas não deu certo em nenhum.
Ou pode ser que usei algum campo diferente por os nomes ser bem diferente.
esse é um dos códigos que uso mais para verificação, mas não deu certo

Código:

If DCount("CodigoTab", "TabeladePreco", "CodigoTab = " & Me.CbTabFunc.Column(0) & " AND Servico = " & Me.CbItens.Column(0)) > 0 Then
    MsgBox "O Produto " & Me.TxServiço & " já está cadastrado..."
    Me.Undo
    Cancel = True
End If

--

Código:

Dim strSQL As String
strSQL = "SELECT COUNT(*) FROM TabeladePreco WHERE CodigoTab = " & Me.CbTabFunc.Column(0) & " AND Servico = " & Me.CbItens.Column(0)

If DCount("*", "TabeladePreco", "CodigoTab = " & Me.CbTabFunc.Column(0) & " AND Servico = " & Me.CbItens.Column(0)) > 0 Then
    MsgBox "O Produto " & Me.TxServiço & " já está cadastrado..."
    Me.Undo
    Cancel = True
End If


Dim strSQL As String
strSQL = "SELECT COUNT(*) FROM TabeladePreco WHERE CodigoTab = " & Me.CbTabFunc.Column(0) & " AND Servico = '" & Me.CbItens.Column(0) & "'"

Código:

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset(strSQL)

If rs.Fields(0).Value > 0 Then
    MsgBox "O Produto " & Me.TxServiço & " já está cadastrado..."
    Me.Undo
    Cancel = True
End If

rs.Close
Set rs = Nothing


Dim strSQL As String
strSQL = "SELECT COUNT(*) FROM TabeladePreco WHERE CodigoTab = " & Me.CbTabFunc.Column(0) & " AND Servico = " & Me.CbItens.Column(0)

Código:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset(strSQL)

If rs.Fields(0).Value > 0 Then
    MsgBox "O Produto " & Me.TxServiço & " já está cadastrado..."
    Me.Undo
    Cancel = True
End If

rs.Close
Set rs = Nothing

e outro.
Nenhum deu certo, da uma olhada nesses e ver se é algum campo, que vc tem mas familiariadade nele

Meio confuso, mas tente assim:

Código:

If DCount("servico", "TabeladePreco", "Servico = " & Me.CbItens.Column(1) & " and CodigoTab = " & Me.CbTabFunc & "") > 0 Then
' WHERE [CodigoTab] = ' & me.SeuCampo_CodigoTab

   'A função DCount() contou um ou mais registros existentes
   MsgBox "O Produto" & Me!TxServiço & " já esta cadastrado..."
   Me.Undo
   Cancel = True
End If

Obs. A combobox de nome da tabela deve ser preenchida antes para dar certo. O ideal é colocar um bloqueio para sempre exigir que ela seja preenchida antes da combo do serviço.

Olá a todos

Ney verifique o que o colega Crysóstomo partilhou.
Eu não prestei atenção e indiquei erradamente a clausula WHERE, mas neste caso é como o colega indicou AND.

Exemplo:

Código:

DCount("[FieldName]", "TableName", "[Criteria1] = " & Forms![FormName]![Control1] _
            & " AND [Criteria2] = '" & Forms![FormName]![Control2] & "'" _
            & " AND [Criteria3] =#" & Forms![FormName]![Control3] & "#")

Se tiver dúvidas aperte a tecla F1 com Dcount selecionado

Também dei uma vista de olhos à base de dados, pela descrição, não me parece que tem o campo TxCodServ (indicado a vermelho) na tabela, veja:


Abraço

pesspal muito obrigado pela ajuda deu certo

Agradecemos o retorno.
Sucesso.
Recomendo que deixe os identificadores iguais nas tabelas para não ter problema futuuros.
IdCliente, IdServico nas tabela que vai relacionar.
Sucesso