[Resolvido]Campo em form nao aceita dados inseridos atraves de campos em outro form

Caros amigos,,,

Tenho um fomm que abre captado dados do Form de origem...

com as seguintes linhas..

Private Sub Form_Open(Cancel As Integer)
Me.Quantia.Value = Forms!Cadastro_Parcelas.vALOR.Value
'Me.nome.Value = Forms!Cadastro_Parcelas.Combinação40.Value
'Me.Número.Value = Forms!Cadastro_Parcelas.Num_OR.Value

Me.Quantia.SetFocus


O que ocorre...
Se o campo no form que ira receber os dados for nao acoplado.. ele aceita os dados...

porem se alguns dos campos tiver na fonte de controle o campo de uma tabela..

da o seguinte erro: Voce nao pode atribuir um valor a esse objeto..

Se puderem ajudar.. ficarei grato

Será que esses campos não tem algum código na fonte ao invés de um campo da tabela? Algo como =[NomeCampo]
Notei que você tem um campo de nome Valor. Valor é um nome reservado do Access e pode causar problemas se usá-lo como nome de campo, assim como Data, Hora entre outros milhares. Por isso eu uso txtValor, cboData, lstHora, etc. Usando o prefixos assim, alem de evitar erros por causa de nomes reservados, ainda me permite identificar o tipo de controle apenas olhando o início do nome, assim como expliquei no artigo sobre nomeação de campos e elementos.

nao criquio.. se desativo a linha do campo valor.. as outras tambem dao o mesmo erro,,,

Esse e o recibo que tera a tebela como registro...

nesse modelo nao ha tabela.. pois e so para impressao...
eu criei a tebela e anexei aos campos,,,

da uma olhadinha ai opr favor

Olhe nas propriedades do formulário se por acaso ele não está em modo de consulta apenas, com edição desabilitada.

Tudo como SIM

Aqui não deu nenhum problema. Abri, inseri dados, editei dados e não deu problema. Ou seja, o problema mão está no formulário, pelo menos não nesse.

nao e isso amigo...
esse ai nao e vinculado a uma tabela...
sao campos nao acoplados...

eu fiz uma tabela com os campos desse form...

e abro esse form atraves do formParcelamento..

e ele le valores do form parcelamento...

Private Sub Form_Open(Cancel As Integer)
Me.Quantia.Value = Forms!Cadastro_Parcelas.vALOR.Value
Me.nome.Value = Forms!Cadastro_Parcelas.Combinação40.Value
Me.Número.Value = Forms!Cadastro_Parcelas.Num_OR.Value

Me.Quantia.SetFocus
End Sub


So que quando os valores entram no campo.. para gerarem novo refistro da erro,,,

essa transferencia pelo outro form da erro se o recibo esta ligado a tabela..

ele como esta ai,, recebe os valores numa boa...
mas se colca a tabela.. da erro..

Confesso que ficou meio confuso

O Aplicativo completo....

Abra o Form Cadastro de parcelas...
escolha o nome do cliente na lst...
clique no subform no campo valor (em branco) e clieque no quitada...
vera o erro...

http://dl.dropbox.com/u/26441349/Contas_Receber.zip

Vamos tentar o seguinte: entre no módulo desse formulário, posicione o cursor no início do módulo, pressione Control+L para abrir o localizador de texto. Procure por tbl_parcelas. Você irá notar que a maioria está certa, ou seja, está tbl_parcelas_Vendas. Há uma, no entanto, que está faltando um undeline(_), e está assim tbl_parcelasVendas. Inclua o underline e tente novamente.

Criquio... esse exemplo do parcelas eu peguei do amigo JPaulo...
e quando ele veio.. ja veio assim.... sem o underline.... mesmo colocando o underline em nada influenciaria na reolucao do meu problema, pois esse codigo e executado no Btn calcular parcelas...

o problema que estou tendo é que quando pego os campos nao acoplados do recibo (primeiro exemplo que te enviei) pois nesse exemplo nao tem tabela, sendo que no primeiro exemplo o recibo guarda os valores apenas para envia-los ao report, sendo excluidos quando do seu fechamento...]

entao se pego o recibo do primeiro exemplo (sem tabelas-campos nao acoplados) e coloco uma tabela no form (campos acoplados à tabela recibo que criei) na hora que abro o recibo pelo form principal os valores que sao enviados aos campos no recibo nao sao gravados na tabela, e emite uma mensagem que os campos nao suporta os dados...

esse erro ocorre apenas quando existe uma tabela anexada ao for recibo.

corrigi aqui um exemplo de um colega do forum e em um dos campos deu o mesmo erro:

Olha so o comando (deve conhecer esse comando) do form do colega do forum:

Da mensagem que o campo no form (Campo Numero) nao suporta esse tipo de dados...

Private Sub BuscaCPF_AfterUpdate()
DoCmd.GoToRecord , , acNewRec
Me.Cliente = Me.BuscaCPF.Column(2)
Me.Endereco = Me.BuscaCPF.Column(3)
'Me.Numero = Me.BuscaCPF.Column(5)
Me.Cidade = Me.BuscaCPF.Column(6)
Me.Bairro = Me.BuscaCPF.Column(7)
Me.UF = Me.BuscaCPF.Column(
Me.Telefone = Me.BuscaCPF.Column(9)
Me.Complemento = Me.BuscaCPF.Column(10)
Me.BuscaCPF.Value = ""

da erro na linha que eu desabilitei (Column (5) - eu desabilitei essa linha.. pois dava o mesmo erro do meu sistema...

esse do colega e quase a mesma logica .. le os valores de uma combox e os envia para campos acoplado no form.. apenas no numero deu erro...

experimente nesse exemplo que te enviei.. desacoplar os campos do reibo... ai dá certo...
quando acopla os mesmo na tabela recibo os campoa ja acoplados nao aceitam os dados

Dê uma observada no tipo de campo do form de origem e no do form de destino. Veja se são iguais. Observe se tem alguma formatação ou máscara de entrada em um que não tem no outro.

retirei mascaras.. deixei tudo certo mas continua o mesmo erro


Olha so...os campos no recibo recebem os valores do outro form quando os campos nao estao acoplados...

mas quando ele esta acoplado a uma tabela, para gerar um registro novo nessa tabela ele da erro..

no suporte da microsoft:

Quando utiliza o método BuildCriteria programaticamente definir a propriedade filtro num formulário e o argumento campo do método BuildCriteria refere um nome de campo que contenha um espaço, poderá receber a seguinte mensagem de erro:

Run-time error '2448':
Não é possível atribuir um valor para este objecto.

OLHA AI GALERA.....


Resolvi assim:

Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acNewRec

Me.txtQuantia.Value = Forms!Cadastro_Parcelas.vALOR.Value
Me.txtNome.Value = Forms!Cadastro_Parcelas.Combinação40.Value
Me.TxtNumero.Value = Forms!Cadastro_Parcelas.Num_OR.Value
Me.txtReferente.Value = Forms!Cadastro_Parcelas.Parcela.Value

Me.txtQuantia.SetFocus
End Sub


Os Nomes dos campos no form devem ser diferentes do nome dos campos na Tabela...!!!!!!


Tabela - Campo (nome)
Form - Campo (txrnome)

se fizer iguais da esse erro...

Obrigado criquio

Viu só? Está aí o que eu falei sobre acrescentar as primeiras letras do tipo de controle no nome do controle

Isso ai...
Fica o ALERTA....
Saudações