[Resolvido]Verificar se registros já existem no banco - Dois critérios de tipos diferentes Dcount() e DLookup()

Prezados, boa tarde.

Depois de implementar algumas soluções indicadas em outros tópicos e não conseguir obter êxito na aplicação, recorro a vocês a fim de solucionar esse problema, o qual busco correção há alguns dias.

Tenho um formulário chamado (frm_cadastro_disciplinas) com os seguintes campos principais (nome_disciplina) - tipo texto e (ch_disciplina) - tipo inteiro

Considero uma disciplina já cadastrada no sistema se ela tiver o mesmo nome e a mesma carga horária. E é essa verificação que preciso fazer na tabela que armazena tais valores.

Estrutura da tabela (tbl_disciplinas)
cod_disciplina
nome_disciplina
ch_disciplina

Já utilizei as funções Dcount() e DLoookup() para verificar a ocorrência dos valores no banco, mas sem sucesso (ou não identifica os nomes digitados como iguais ou apresenta erro de tipos incompatíveis.)

If (Not IsNull(DLookup("[nome_disciplina]", "tbl_disciplinas", "[nome_disciplina] =' " & Me.nome_disciplina & "'" And "[ch_disciplina]" = Me.ch_disciplina))) Then
   MsgBox "Disciplina " & Me.nome_disciplina & " já cadastrada"
   nome_disciplina.SetFocus
   Me!nome_disciplina.Undo 'desfaz a digitação
Else
   DoCmd.RunCommand acCmdSaveRecord


OBS.: Outro detalhe é que mesmo apresentando erro de tipos incompatíveis erro 13, o registro é gravado do banco.


Desde já agradeço a ajuda

Tente...

if dcount("nome_disciplina","tbl_disciplinas","nome_disciplina ='" & me.txtnomeDisciplina & "' And ch_disciplina =" & me.txtChDisciplina & "") then

msgbox("Disciplina já cadastrada"),vbexclamation,"titulo"
exit sub
end if

Olá, [formiga10x]. Agradeço a resposta.

Implementei o código informado, porém ele cadastra a disciplina sem criticar (mesmo o registro já existindo no banco)

Preciso que ele identifique quando uma disciplina já estiver cadastrada (disciplina cadastrada = mesmo nome e mesma carga horária)

Segue uma parte do banco que estou utilizando.

tente assim:

if dcount("nome_disciplina","tbl_disciplinas","nome_disciplina ='" & me.txtnomeDisciplina & "' And ch_disciplina =" & me.txtChDisciplina & "") > 0 then

Bom dia,
Comece a noimear de forma normalizada, ajuda em várias situções (novo_cadastro podia ser BtnNovoCadastro)
Retire o botão de adicionar ao cadastro
No botão novo_cadastro, coloque

Código:

Private Sub novo_cadastro_Click()
    If DCount("nome_disciplina", "tbl_disciplinas", "nome_disciplina ='" & Me.txtnome_disciplina & "' And ch_disciplina=" & Me.txtch_disciplina & "") > 0 Then
        MsgBox ("Disciplina já cadastrada"), vbExclamation, "titulo"
        txtnome_disciplina.SetFocus
        Me!txtnome_disciplina.Undo 'desfaz a digitação
    Else
        DoCmd.GoToRecord , , acNewRec
    End If
    'cursor ativo no primeiro campo
    Me.txtnome_disciplina.SetFocus
End Sub

Colegas, tauron e Alexandre Neves.

Fiz algumas adaptações e consegui deixar o código no botão salvar.
Seguirei as dicas e orientações repassadas nas próximas postagens

Descobri o que estava errando

Meu código: If DCount("nome_disciplina", "tbl_disciplinas", "nome_disciplina =' " & Me.txtnome_disciplina & "' And ch_disciplina=" & Me.txtch_disciplina & "") > 0 Then

Código correto: If DCount("nome_disciplina", "tbl_disciplinas", "nome_disciplina ='" & Me.txtnome_disciplina & "' And ch_disciplina=" & Me.txtch_disciplina & "") > 0 Then

O problema estava em um espaçamento nessa parte do código "nome_disciplina =' " o correto seria "nome_disciplina ='"

Agradeço a colaboração de todos!!!

O forum agradece pelo retorno.