[Resolvido]Erro ao esquecer de preencher o campo periodo no formulário

Olá colegas venho recorrer a ajuda de vcs mais uma vez.

tenho um formulario com campo data inicial e data final e mais tres combos. Esses dois campos mais as combos filtram os dados da tabela e me retornam em um subformulario. A parte dos filtros esta funcionando bem, porem, quando alguem esquece de digitar o periodo (dos campos data)aparece a mensagem: erro em tempo de execução 3075
erro de sintaxe (operador faltando) na expressão de consulta 'And tipo='Escolar"

Tentei colocar uma msgbox "Informe o Período", mas não deu certo, pois após clicar em Ok na mensagem, o erro torna a aparecer. Segue abaixo com montei o código. Ficareigrato se alguem puder analizar e me ajudar a resolver.

Private Sub Buscar_Click()
Dim strFiltro As String

If Not IsNull(Me.txtdataini) And Not IsNull(Me.txtdatafini) Then strFiltro = "DataMat>= #" & Format(Me.txtdataini, "mm/dd/yyyy") & "# And DataMat <= #" & Format(Me.txtdatafini, "mm/dd/yyyy") & "#"
If Not IsNull(Me.Combtipo) Then strFiltro = strFiltro & "And Tipo='" & Me.Combtipo & "'"
If Not IsNull(Me.Combencam) Then strFiltro = strFiltro & " and encaminhamento='" & Me.Combencam & "'"
If Not IsNull(Me.Combespecialidade) Then strFiltro = strFiltro & " and especialidade='" & Me.Combespecialidade & "'"
MsgBox "Informe o período"
Me!txtdataini.SetFocus
Me!subfrm_PesquisaEspecialidade.Form.Filter = strFiltro
Me!subfrm_PesquisaEspecialidade.Form.FilterOn = True
Me!subfrm_PesquisaEspecialidade.Requery
End Sub

Tente montar a estrutura If linha a linha, mais ou menos assim:

Código:

If IsNull(Me.Dataini) Or Me.DataIni.Value = "" Then
    Msgbox "Preencha a data de início"
    Me.Dataini.SetFocus
ElseIf IsNull(Me.DataFim) Or Me.DataFim.Value = "" Then
    Msgbox "Preencha a data final"
    Me.DataFim.SetFocus
Else
    Procedimento de gravação
End If

Grande Criquio!
Mas uma vez obrigado pela ajuda. Acabei de testar seguindo sua sugestão e deu certinho. Sem palavras para agradecer o forum e a vc.