[Resolvido]Definir fonte do controle por VBA

Boa tarde,

Estou tentando editar a fonte do controle por VBA usando o seguinte código:

Dim mySQL As String
mySQL = "SELECT 7 FROM tblaspg"
Forms.frmdia.Dia = mySQL

Onde 7 é o nome do campo na tabela e tblaspg é o nome da tabela.

O problema é que ao invés de selecionar como fonte do controle, ele coloca o resultado como um texto inserido.

Alguém me ajuda a resolve este problema?

Agradeço desde já.

Tente assim:


Dim mySQL As String
mySQL = "SELECT [7] FROM tblaspg"
Forms.frmdia.Dia = mySQL

Boa tarde,

Primeiramente obrigado pelo apoio.

Então, o problema continua o mesmo.

Ao invés de inserir o valor da tabela ele insere "SELECT [7] FROM tblaspg" como texto.

Aguardo.

Up!

Up!

Up!

Você quer alterar a fonte de controle de uma caixa de texto ou do formulario ?

É que não vejo ae nada relacionado com "ControlSource" ou "RecordSource"

Boa tarde, obrigado pela resposta.

Pretendo alterar a fonte do controle de uma caixa de texto. Só que a caixa de texto está em outro formulário, vou explicar.

No meu caso é um calendário que esta no form principal. Ao clicar na data especifica, ele abre um form para inserir registros e lembretes. Como em cada mês a ordem dos dias é diferente, preciso definir o controle da caixa de texto, do form que insiro os lembretes, após clicar na data especifica.

Ou seja, ao clicar na data 14 de março, por exemplo, o form que irá abrir terá que ter como fonte de controle da caixa de texto o campo 15 da tabela.

Não sei se fui claro o suficiente, mas é isso.

Obrigado.

Tente assim:

Dim mySQL As String
mySQL = "SELECT [7] FROM tblaspg"
Forms.frmdia.Dia.RowSource = mySQL

O seguinte erro aparece "O objeto não aceita esta propriedade ou método."

Mude para:
.ControlSource

O seguinte erro aparece, dentro da caixa de texto "=Nome?"

Fabio, você testou ?

Guilherme, faça assim;

Código:

Private Sub Calendar1_AfterUpdate()
Dim x%
    x = Day(Me.Calendar1.Value)
DoCmd.OpenForm "frmDias"
Forms!frmDias.Form!txtDia.ControlSource = x
End Sub


Exemplo montado em cima do joelho;

http://dl.dropboxusercontent.com/u/771097/CalendariosForm.zip

JPaulo, agradeço sua ajuda, mas não entendi muito bem.

O calendário utilizado pelo meu form, foi desenvolvido por mim. Não entendi muito bem a sua formula.

Como não conheço o seu, porque você não anexou aqui parte do seu banco, fiz algo simples para você entender;

1º Ao pressionar o dia no calendario, envia o numero do dia para a variavel "x"

2º Ao abrir o formulario "frmDias", coloca a caixa de texto com o ControlSource = x

JPaulo, segue link com o arquivo para download.

O que quero é que ao clicar duas vezes no dia, abra o formulário "frmdia" com as informações do dia que cliquei e que possa fazer alterações.

https://drive.google.com/file/d/0B1wMzYoiKJ3UeHdGdGgza0Z0N1E/view?usp=sharing

coloca assim

me.nomeSubForm.datasource="NOMEDOFORMULARIO"

isso pode carregar o forulario que voce quiser

acho que é isso

não consegui abrir seu arquivo manda no Access 2007


att

Pessoal, agradeço a ajuda de todos vocês, consegui fazer o que pretendia.

Forms!frmdia.Form!Dia.ControlSource = Me.qui2.ControlSource

Usei essa fórmula, onde "qui2" é a quinta feira da segunda semana, no calendário. Deu certo.

Agradeço a todos e até a próxima!

Obrigado pelo retorno o forum agradece.