[Resolvido]Critério via VBA em consulta

Oi Amigos,
Tenho uma consulta que me da o resultado de vendas por regional e canal(RelRegionais) e criei um formulário com duas caixas de seleção (aqueles botões que marcam apenas uma opção), uma delas é da Regional e a outra obviamente do Canal. A consulta busca a informação destas caixas e usa como critério.
Dentro deste form tenho vários botões que vão salvando com o nome do arquivo que defini.
A minha dúvida é a seguinte:
Como faço para para eliminar estas caixas e já deixar os botões com a informação da Regional e do Canal?
Veja o VBA que coloquei no botão, os outros só muda o nome do arquivo salvo.

Private Sub CmdPesquisaDirCO_Click()
'Seleciona o intervalo da data - aqui está OK
Me.RecordSource = "SELECT * FROM Gera_RelRegionais WHERE ((([Dt PEDIDO]) Between #" & Format(Me![DataInicial], "dd/mm/yyyy") & "# And #" & Format(Me![DataFinal], "dd/mm/yyyy") & "#));"

'Salva a consulta em arquivo excel
DoCmd.OutputTo acOutputQuery, "Gera_RelRegionais", acFormatXLSB, "\\netprd03\suprimentos\RelRegional_detalhado Direto-CE.xlsb", False, "", 0, acExportQualityPrint

End Sub

Quero colocar, antes dele salvar algum comando que ele atribua um valor ao campo Regional e Canal sem precisar buscar nas caixas que estão no formulário.
Incluiria algo tipo:
.....
[CodRegional] = 1
[CodTpCanal] = 2
....


[]s

Boa noite,

Não se entendi bem o que explicou mas aí vai:

Fiz um teste assim, defini uma variável pública e dependendo do botão que for clicado seu valor muda, veja:

Dim str As Single

Private Sub Comando6_Click()
str = 1
MsgBox str
End Sub

Private Sub Comando7_Click()
str = 2
MsgBox str
End Sub

Assim dependendo do botão que você clicar você poderá definir a variável como seu critério.

Abraço

Oi Leandro,

Ontem, após postar aqui, consegui resolver.
Obrigado pela ajuda.

Agora meu problema é que o formulário não está aparecendo os botões, estão todos como visíveis, mas não aparececem. No modo desing eles aparecem, mas no modo exibição não.

[]s

Beleza!!!

Olha a propriedade ao Abrir do form principal, veja se os botões não estão como Visible = False

Não esqueça o Resolvido.

Oi Leandro,

O caso não é isso, abri outro post e estou resolvendo por lá.
Obrigado pela ajuda.