[Resolvido]campo nao pode ser alterado apos digitacao

boa tarde

por favor, tenho um formulario onde digito o codigo material e ele atualiza o preco automaticamente, ai nem passo pelo campo preco.

apos a confirmação saio do formulario.

digamos que logo em seguida o preco aumentou ou diminuiu porem nao posso alterar o que ja foi lancado.

ao entrar e passar navegando pelo codigo ele atualiza "novamente" o campo preco, o que "nao pode".

ja coloquei no campo preco em quase todas as opçoes(ao entrar, ao alterar etc) a seguinte expressao


If PROCESSADA = 1 Then
Me.AllowEdits = False
MsgBox "Este campo não pode ser alterado!"
Me.Undo
Else
Me.AllowEdits = True
End If


mas nao sei o porque como ele nao entra no campo, apenas atualiza, continuar deixando alterar o valor

Boa tarde, pq você não usa, no evento

Ao perder o foco, Me.SeuCampo.Enabled = False ou Me.Seucampo.Locked = True

nao deu certo, pois nao entro no campo, eu acho que ao perder o foco, nao teria entrar no campo?

up

up

Boa Tarde.
Não se se vai haver algum impedimento pela intensão do seu BD mas, A função que está no evento "Ao sair" vc mudar para "Após atualizar"
Assim, quando vc passar pelo campo nada vai ser alterado a não ser que vc redigite o código do produto.

ola amigo

entao, o problema que vejo é que NAO PASSO por este campo, ou seja, digito o codigo do produto e ele ja me traz o preco, ai depois digito a qtde e ele ja me da o total, nao passando pelo campo preco, porque eu trago ele automaticamente.

no momento a unica saida que vejo é a que voce me disse mesmo, so que ai eu tenho que passar pelo campo, algo que eu nao queria

Bom dia.
Acho que o maior problema dos colaboradores que se dispõem para tentar ajudar não é a solução exata do que os tópicos que apresentam, mas sim entender o objetivo que desejam atingir.
Talvez a resposta seja até fácil de se encontrar, mas a lógica fica sem sentido e voltamos ao ponto de partida sempre.
Eu não entendi, por exemplo, qual a sua dificuldade, porque se usar a função no evento "ao atualizar" vc pode passar pelo campo ou nem passar pelo campo porque os dados registrados no momento da digitação inicial SEMPRE estarão lá e só vão ser modificados se houver uma nova atualização. Ou seja, só será modificado os dados se vc reescrever o campo. Portanto, se não fizer nada os dados ficarão intactos. Passando ou não pelo campo.
Eu uso essa função nesse evento no BD que eu fiz para venda de pizzas. Mesmo que a tabela de preços mude, as pizzas já vendidas ficam com o preço registrado no momento da digitação, eu entrando no campo ou não. A minha tabela de vendas registra os dados captados pela tabela de preço das pizzas que se atualiza de acordo com o código do destino.
Eu digito o código do destino e com a função "Column(x)" de cada campo os dados são "Pescados" e registrados. Isso só muda se eu redigitar o código do produto ou o produto em sí.

exemplo:

Código:

Private Sub CódigoDoProduto_AfterUpdate()
On Error Resume Next
    Me![Embalagem] = Me![CódigoDoProduto].Column(4)
   ' Me![Unidade] = Me![CódigoDoProduto].Column(3)
    Me![PreçoUnitárioP] = Me![CódigoDoProduto].Column(6)
    Me![PreçoUnitárioM] = Me![CódigoDoProduto].Column(7)
    Me![PreçoUnitárioG] = Me![CódigoDoProduto].Column(8)
    Me![Fixo] = Me![CódigoDoProduto].Column(9)
 If Me.Fixo = True Then
    Me![PreçoUnitário] = Me![CódigoDoProduto].Column(2)
 End If
End Sub
Private Sub CódigoFornecedor_AfterUpdate()
   On Error Resume Next
    Me![Embalagem] = Me![CódigoFornecedor].Column(4)
  '  Me![Unidade] = Me![CódigoFornecedor].Column(3)
    Me![PreçoUnitárioP] = Me![CódigoDoProduto].Column(6)
    Me![PreçoUnitárioM] = Me![CódigoDoProduto].Column(7)
    Me![PreçoUnitárioG] = Me![CódigoDoProduto].Column(8)
    Me![Fixo] = Me![CódigoDoProduto].Column(9)
 If Me.Fixo = True Then
    Me![PreçoUnitário] = Me![CódigoDoProduto].Column(2)
 End If
End Sub

Note que eu atualizo até o tamanho de cada pizza com seu preço. Na digitação do código do Produto ou o nome do produto.
À não ser que ainda não consegui entender o seu objetivo e rotina.

Veja se atende.

o que fez? colocou no codigo e no descricao a rotina no apos atualizar?

Eu deixei a função somente no "Apos atualizar"
Exclui o que estava em "Ao perder foco".
Pelo arquivo que vc disponibilizou eu testei aqui e deu certo. A não ser que use outros forms.
Afinal, resolveu assim ou não?

agradeco ivan carlo pelo apoio.

deu tudo certo

resolvido

Disponha Amigo.