[Resolvidos]Campo de SubFormulário com valor padrão de combobox existente no formulário

Olá amigos, boa tarde

Seguinte, tenho um formulario com uma combobox, onde seleciono o cliente, então embaixo tem um subform com um campo no qual quero que tenha sempre o mesmo valor do campo cliente do form principal, ao mudar a combo quero que mude no subform tambem, mas preciso salvar o campo do subform tambem.

=[Formulários]![Frm_Vendas]![Id_Cliente_Vendas].[Column](1)

Do jeito acima consegui buscar os dados, mas como salvo agora, ja que estou usando a fonte de controle?

Tente no evento do Atual no seu formulario.

Private Sub Form_Current()
Dim x As String
x = Me.SuaCombox.Column(1)
Forms![SeuFormulario]![SeuSubFormulario].Form![SeuCampoNoSubForm] = x
End Sub

E isso salva? pois quero salvar no campo Aplicação do sub form.

Deu erro tempo de execução 94
Uso de Null invalido

lembrando que a collum.1 é texto

Salva se a origem do campo do subform você colocar o campo da tabela.

Teste assim;

Private Sub Form_Current()
Dim x As String
x = Nz(Me.SuaCombox.Column(1), 0)
Nz(Forms![SeuFormulario]![SeuSubFormulario].Form![SeuCampoNoSubForm], 0) = x
End Sub


Ou coloque a origem do campo do subform o campo da tabela, e na linha Valor por defeito colocar a sua primeira instrução;

=[Formulários]![Frm_Vendas]![Id_Cliente_Vendas].[Column](1)

Olá, bom dia, desculpe a demora, fiquei sem Internet, deu certo desse jeito que você disse

=[Formulários]![Frm_Vendas]![Id_Cliente_Vendas].[Column](1)

Obrigado!!!