[Resolvido]Como colocar "atalho" em um campo para facilitar a digitação?

Boa tarde, amigos do Forum.
Estou ficando preguiçoso... Acho que é o calor!
Tenho um  campo que é uma Combobox onde digito a "posologia" de um medicamento. Por exemplo: " Tomar 1 comprimido pela manhã"; "Tomar 1 comprimido de manhã e outro a tarde"; "Tomar 1 comprimido a tarde"; "Tomar 2 comprimidos de manhã"; "Tomar 1 comprimido a noite"; e etc. Acontece que mesmo usando o Combobox fica um pouco trabalhoso encontrar a opção desejada. Eu queria um código VBA ou uma Macro, onde eu colocasse um "atalho" para facilitar, do tipo:
Ctrl + Alt + 1 - --Preenche como: "Tomar 1 comprimido de manhã"
Ctrl + Alt + 2 --- Preenche como: "Tomar 2 comprimidos de manhã".
Ctrl + Alt + 010--Preenche como: "Tomar 1 comprimido a tarde"
Ctrl + Alt + 001--Preenche como: "Tomar 1 comprimido a noite"
Ctrl + Alt + 002--Preenche como: "Tomar 2 comprimidos a noite"
Ctrl + Alt + 101--Preenche como: "Tomar 1 comprimido de manhã e 1 comprimido a noite", etc.
Alguém tem alguma sugestão?
Uso o Access 2010.

Obrigado,

Walter

E se usar apenas códigos? Por exemplo:

1 - manhã
2 - tarde
3 - noite

Aí tu coloca a quantidade de comprimidos antes do número do horário:

11 - 1 comprimido de manhã;
21 - 2 comprimidos de manhã;
12 - 1 comprimido à tarde;
23 - 2 comprimidos à noite.

Isso pode ser feito em um campo texto com algo assim no "Após atualizar":

Código:

Dim Qtd As String, Horas As String

If Left(Me.NomeDoCampo, 1) < 2 Then
    Qtd = " comprimido "
Else
    Qtd = " comprimidos "
End If

If Right(Me.Nome do Campo, 1) = 1 Then
    Horas = " de manhã."
ElseIf Right(Me.Nome do Campo, 1) = 2 Then
    Horas = " à tarde."
ElseIf Right(Me.Nome do Campo, 1) = 3 Then
    Horas = " à noite."
End If

Me.NomeDoCampo = "Tomar " & Left(Me.NomeDoCampo, 1) & Qtd & Horas

Boa tarde, Críquio.
Muito obrigado, pela sua resposta.
Entendi a sua idéia, mas não é bem isso que eu quero...
Depois que vi seu código, resolvi tentar com Select Case.
Não sei se é possivel mudar o valor da caixa de texto dependendo do que for digitado nela mesma, ou seja, digitar uma coisa (100) e aparecer "Tomar 1 comprimido de manhã."
Por isso resolvi criar uma outra caixa de texto (desacoplada) para receber o código ( no caso "100", "200", "0-1-0", etc), Dei o nome a esse campo de "Posologia1" e o campo que vai receber o texto é "Posologia".
Pus o código assim, em Após Atualizar do Campo Posologia1

Private Sub Posologia1_AfterUpdate()
Select Case Posologia1
Case Is = 100
Posologia = "Tomar 1 comprimido de manhã."
Case Is = 200
Posologia = "Tomar 2 comprimidos de manhã "
Case Is = "020"
Posologia = "Tomar 1 comprimido a tarde"
Case Is = "010"
Posologia = "Tomar 1 comprimido a tarde"
Case Is = "001"
Posologia = "Tomar 1 comprimido a noite"
Case Is = "002"
Posologia = "Tomar 2 comprimidos a noite"
Case Else
End Select

End Sub

Está dando certo, porém o campo Posologia1 fica "autopreenchido" com o valor digitado anteriormente... O que pode ser feito, o que você sugere?

Boa tarde Walter - Limpa campo ex: Dim f As String
f = "[Cód]=" & Me![seucampo].Column(0)
DoCmd.ApplyFilter , f
Me!seucampo= Null  ou
Me!Posologia1 = Null 
abraços

Boa tarde, Nogaro.
Obrigado pela ajuda.
Onde devo colocar esse código? Acima do código anterior ou em baixo?

Walter

pode colocar no evento ao sair do campo
ou ao abrir o form. tem varias opções
 
Me!Posologia1 = Null

coloca no Campo posologia1 no evento ao sair deste campo que ao sair do campo vai limpar este campo

Perfeito, Nogaro.
Funcionou direitinho!!
Muito obrigado pela ajuda.
Críquio. Muito obrigado, também.
Um abraço a todos do Forum.

Daria para fazer com um campo só colocando no "Após atualizar" do próprio campo.

Olá, Críquio.

Do jeito que eu fiz ficou funcional, mas acho que se colocar com um campo só ficará mais "elegante". Como seria? Como ficaria o código?

"Posologia" é o campo principal, que recebe o texto.
"Posologia1" eu criei somente para receber os números codificados.

O meu código está assim:

Private Sub Posologia1_AfterUpdate()
Select Case Posologia1
Case Is = "100"
Posologia = "Tomar 1 comprimido de manhã."
Case Is = "010"
Posologia = "Tomar 1 comprimido no almoço."
Case Is = 200
Posologia = "Tomar 2 comprimidos de manhã."
Case Is = "020"
Posologia = "Tomar 2 comprimidos no almoço."
Case Is = "001"
Posologia = "Tomar 1 comprimido a noite."
Case Is = "002"
Posologia = "Tomar 2 comprimidos a noite."
Case Is = "101"
Posologia = "Tomar 1 comprimido de 12 em 12 horas."
Case Is = "202"
Posologia = "Tomar 2 comprimidos de 12 em 12 horas."
Case Is = "111"
Posologia = "Tomar 1 comprimido de 8 em 8 horas."
Case Is = "222"
Posologia = "Tomar 2 comprimidos de 12 em 12 horas."
Case Is = "011"
Posologia = "Tomar 1 comprimido no almoço e outro na janta."
Case Is = "102"
Posologia = "Tomar 1 comprimido de manhã e 2 comprimidos a noite."
Case Else
End Select
Me!Posologia1 = Null
End Sub

Um abraço,

Walter

O código é o mesmo. É só colocar no evento "Após atualizar" do próprio único campo e colocar o nome desse próprio campo no lugar do nome do outro campo.