Para ejecutar una Consulta MakeTable sin hacer ruido

DoCmd.SetWarnings False
DoCmd.OpenQuery "Consulta MakeTable", , acReadOnly
DoCmd.SetWarnings True

Como saber si un subformulario esta bloqueado?

If Forms!EspecialistasTodos!EspDiasVistaQFiltroMes0819XF.Locked = True Then
'If Me![02]!Locked = True Then
MsgBox "Esta Bloqueado"
Else
MsgBox "No Esta Bloqueado"
End If

Para sacar la posicion donde se encuentra un caracter especifico

'Si el valor de la Celda Cadena = "Like 33" y queremos rescatar el 33

Dim strCadena as String 'creamos una variable para el valor de la celda
Dim strPosicion As String 'creamos una variable para que nos indique la posicion

strCadena = Cadena 'le damos el valor de la celda a la varialble

strPosicion = InStr(strCadena, "Like")
Msgbox "La Posicion en la cadena es: " & strPosicion

'la cadena es =Like 33,  si contamos los caracteres es 1234567
'donde 1234 es la posicion de Like y 67 es la posicion de 33
'luego si queremos sacar solo el 33, entonces ocupamos la derecha

Dim strSacaNumeros as String

strNumeros = Right(strCadena, strPosicion + 5)
Msgbox = "Los numeros que estan en el texto son: " & strNumeros

Como saber si un formulario esta abierto y si esta abierto entonces cerrarlo si no, no hacer nada

If CurrentProject.AllForms("Formulario").IsLoaded Then
DoCmd.Close acForm, "Formulario"
Else
Exit Sub
End If