[Resolvido]importar dados atraves da função if

amigos

preciso de ajuda.

tenho um form (form1) no qual tenho um sub.form (form 2)

e atraves de codigo vba cada vez que abro o form 1 aparece uma caixa a perguntar se houve alteração de preços, se marcar NÃO ele vai buscar os preços do ultimo turno, mas se marcar SIM ele responde com caixa de erro a dizer que não consegue atribuir valor aos campos.
o codigo que estou a usar:
Private Sub Form_Open(Cancel As Integer)

If (MsgBox("Há Alteração dos Preço?", vbYesNo, "Alteração de Preços") = vbYes) Then

campo1 = "0"
campo2 = "0"
campo3 = "0"
campo4 = "0"
campo5 = "0"
campo6 = "0"
campo7 = "0"
campo8 = "0"
campo9 = "0"
campo10 = "0"

Else: Exit Sub

End If

End Sub


Ja tentei com Me. e nada
ja tentei Me.nomedocampo.value e nada
ja tentei forms!form1!form2.form!nomedocampo e nada

Olá Bruno, seja bem vindo ao forum!

Como os valores são carregados nesses campos? Se for por expressão dentro do próprio campo no modo estrutura, ou seja, se você entrou no form em modo estrutura e digitou algo dentro do campo como =[Tabela].[Campo] aí não será mesmo possível atribuir valor ao campo via código. Se for esse o caso, melhor seria ter um campo desvinculado no formulário para receber o valor Sim ou Não após a resposta da msgbox e na expressão do campo uma condição que avaliaria isso através desse campo desvinculado:

=SeImed([NomeCampoDesvinculado]="Não";[Tabela].[Campo];0)

O problema é que o campo vai buscar dados a uma consulta.

e eu keria se a resposta fosse sim ele atribuia o valor para introdução do novo preço se não ele ia buscar a consulta.

Essa consulta é uma consulta simples ou é uma mescla de mais de uma tabela?

simples

a mensagem que aparece é:

Run-time error' 2448':

não é possivel atribuir um valor a este objecto.

Estou a puxar o tópico para cima. se já tiver resolvido, agradeço o seu retorno.

e se o colega posta o bd pra gente ve?

mais uma vez peço desculpa so responder agora

mas ja consegui resolver de um forma meio esquisita mas resulta.

obrigado