Limitar registros en formulario por fecha y turno

Function AdmiteEnvio()
    ' Declaramos la variable
    Dim strCriterio As String

    ' Desactivamos el botón por defecto
    Me!cmdSalvar.Enabled = False
    
    ' Evaluamos si hay fecha
    If Not IsDate(Me!Fecha) Then
        Exit Function
    End If
    
    ' Evaluamos si hay franja
    If Nz(Me!Franja, "") = "" Then
        Exit Function
    End If
    
    ' En este punto tenemos Ambos datos: creamos un criterio
    ' Nota: la fecha en formato americano y delimitada por #. Se asume que Franja es un texto y se delimita por '
    strCriterio = "Fecha = #" & Format(Me!Fecha, "mm/dd/yyyyy") & "# And Franja = '" & Me!Franja & "'"
    ' Contamos los registros que cumplen esa condición
    If DCount("*", "tblDatEnvios", strCriterio) >= 10 Then
        MsgBox "La fecha seleccionada y franja horaria ya están completos y que se debe seleccionar otra opción", vbExclamation
        Exit Function
    End If
    
    ' En este punto es correcto por lo que habilitamos el botón
    Me!cmdSalvar.Enabled = True
End Function