[Resolvido] Código para evitar erro 3101

boa noite amigos, gostaria de ajuda para resolver um problema.
tenho frmPessoa com campo txtNomePaciente
subformulario subfrmDados com campo txtMedicamentos

Quando preencho txtMedicamentos no subformulario, sem registro no txtNomePaciente da o erro porque não é encontrada a chave primaria na tabela tblPaciente.

Gostaria de impedir que o cliente registre no campos do subformulario sem o txtNomePaciente estar com registro.
Já tente vários códigos. mas não consegui, antes de atualizar nos campos do subformulario e até ao apertra o mouse no subformulario tipo

If IsNull(Me!NomePaciente) Then
   MsgBox "Informe o nome"
   Me!txtNomePaciente.SetFocus
   Cancel = True
End If

Bom dia
Você poderia bloquear este subform,
no formulario principal :
algo assim:
na folha de Propriedades do formulário principal no evento "No Atual"

If IsNull(Me!NomePaciente) or Me!NomePaciente = "" Then
Me.subfrmDados.Form.AllowEdits = false
else
Me.subfrmDados.Form.AllowEdits = true
end if

outra opção mas certa acredito, é gerar uma tabela TblMedicamentos, ja que nomes de remédios tem um padrão
e no formulário principal colocar uma caixa de combinação para trazer estes remédios e um botão para lançar no sub
mas lançar somente o id do remédio e fazer uma consulta relacionada para este sub.

boa noite
com o codigo volta mensagem:
voce tentou atribuir valor null a uma variável que nao é uma Variant

isso acontece pq o subformulário não encontra chave primaria na tabela pq o nomePaciente nao foi registrado.

sobre a opçao, essa receita tem 110 caixas de textos e ja tem tblMedicamentos com combobox no subformlario.
acho que o código esta correto mas não sei pq não esta funcionando.

egnaldo, agradeço muitissimo a ajuda, tentei muitas vezes o codigo em tudo que é lugar rsss mas nao deu. após uma tarde de domingo inteira consegui da seguinte forma:
Coloquei esse codigo No atual, no formulario.

Private Sub Form_Current()
If IsNull(Me.NomePaciente) Then
Me.tblPrescrição_subformulário1.Locked = True
Else
Me.tblPrescrição_subformulário1.Locked = False
End If
End Sub

Essa "" tblPrescrição_subformulario1"" é o nome do subformulario ,nome meio errado concordo, mas nao faz diferenca no codigo.
mais uma vez obrigado!!