[Resolvido]DCount com 2 criterios

Boa tarde amigos

Onde está o erro neste DCount
A linha vermelha dá erro .... o campo TipoDoc da tabela é texto

a Linha azul funciona mas não tem o critério tipoDoc = Me.txttipo1

Private Sub TxtTipo1_AfterUpdate()
Dim X As Integer
X = DCount("[IDmes]", "Mes", "[txtData] =#" & Format(Me.TxtData, "dd/mm/yyyy") & "#") And [tipodoc] = " & Me![txtTipo1] & "
If X = 1 Then
MsgBox "Já Tem Aberto uma " & Me.txtTipo1 & " nesta Data de " & Format(TxtData, "dd/mm/yyyy") & "." & Chr(13) & "Abra Esse Documento No Menu Principal " & Chr(13) & "Movimentação " & Chr(13) & "Alterar Registo", vbInformation, "Produção"

Me.txtTipo = Null
Me.txtTipo1 = Null
DoCmd.Close acForm, "frmPedidos"
End If
End Sub

Assim funciona mas não tem o critério tipoDoc = Me.txttipo1
X = DCount("[IDmes]", "Mes", "[txtData] =#" & Format(Me.TxtData, "dd/mm/yyyy") & "#")

Olá Assis, teste assim:

Código:

X = DCount("[IDmes]", "Mes", "[txtData] =#" & Format(Me.TxtData, "dd/mm/yyyy") & "# And [tipodoc] = " & Me![txtTipo1])

se Me![txtTipo1] for texto, assim:

Código:

X = DCount("[IDmes]", "Mes", "[txtData] =#" & Format(Me.TxtData, "dd/mm/yyyy") & "# And [tipodoc] = '" & Me![txtTipo1] & "'")

Abraço

Obrigado Amigo

Perfeito

Olá Assis, obrigado pelo retorno.
Abraço