(Resolvido) Código para preencher vários campos ao mesmo tempo

[Jeferson Porto]

Fala Galera,

Criei uma tabela de Processo de Garantia de Caixa de Marcha com fotos das peças. Nessa tabela eu informo a Data, o Nº do Carro e a Qtde de Fotos (Máximo 10 fotos). Na tabela constam os seguintes campos:

Data, Carro, Qtde Fotos, FT1,FT2, FT3 .... FT10.

Nos campos FT eu colocarei o formato do arquivo da foto correspondente, para depois eu concatenar com o endereço do diretório e carregar a foto. Ex. No campo FT1 deverá constar Data&"_"&Carro&"_"&ORD (ORD será um campo que irá variar de 1 a 10), ou seja, se eu entrar com:

Data:14092010

Carro: 58516

Qtde Fotos: 10

Eu quero que, automáticamente, os campos FT sejam preenchidos com : 14092010_58516_1 no FT1, 14092010_58516_2 no FT2, e assim por diante.

Eu coloquei um código simples, só para atualizar o FT1, para ver se funcionava direito.

Private Sub Qtde_Fotos_AfterUpdate()

B = 1

FT1 = Day([Data]) & Month([Data]) & Year([Data]) & "_" & Carro & "_" & B

End Sub

Como funcionou perfeitamente, eu tentei fazer uma alteração nesse código para atualizar todos os campos automáticamente. ficou assim:

Private Sub Qtde_Fotos_AfterUpdate()

A = [Qtde Fotos]

B = 1

C= "FT"

While B <= A

C& B = Day([Data]) & Month([Data]) & Year([Data]) & "_" & Carro & "_" & B

Wend

End Sub O Seguinte erro é mostrado:

A chamada de função à esquerda da atribuição deve retornar Variant ou Object

O que eu fiz de errado ??

Desde já agradeço a contribuição de todos. Obrigado.

[MrMALJ]

O unico erro que visualize foi esse:

C& B = Day([Data]) & Month([Data]) & Year([Data]) & "_" & Carro & "_" & B

Você está concatendo duas varíaveis onde deveria atribuir algum valor a elas, tipo se você necessita que C concatene B e mais o restante depois da igualdade, proceda assim:

C = B & Day([Data]) & Month([Data]) & Year([Data]) & "_" & Carro & "_" & B

Ok?!

[Jeferson Porto]

Obrigado pela Resposta...

Na verdade, minha intenção não é concatenar tudo. Eu gostaria que o sistema entenda "C & B" como FT1 na primeira volta do Loop, já que C tem o valor "FT" e B tem o Valor 1. Sendo assim o campo FT1 receberia o resultado da expressão acima, que seria: 14092010_58516_1.

O problema é que o sistema não reconhece o C & B como o campo FT1, por isso ele não preenche o campo FT1 no formulário com a informação montada pela expressão.

Um amigo curioso me disse, que achava, que eu deveria declarar c como objeto já que FT1 que é um nome de campo é objeto. Mas também não soube me explicar direito como se faz isso, ou se é realmente isso o problema...

[MrMALJ]

Ok amigo, o problema é que até onde vai meu conhecimento dessa forma que você está tentando num vai funcionar.

Mas de repente se você conseguir e quiser compartilhar sua solução agradeceremos por isso, no mais só evite fazer QUOTES tente utiliza o botão RESPOSTA RAPIDA.

[Jeferson Porto]

Foi mal.... Não vai se repetir...

Eu não consegui da maneira que tentava, mas me forneceram outra solução:

Private Sub Qtde_Fotos_AfterUpdate()

'By JPaulo ® Maximo Access

Dim i As Integer, x As String

A = [Qtde Fotos]

i = 1

For i = 1 To A

If Right(x, 1) = 1 And A = 1 Then

x = Day([Data]) & Month([Data]) & Year([Data]) & "_" & Carro & "_" & i + 1

Else

x = Day([Data]) & Month([Data]) & Year([Data]) & "_" & Carro & "_" & i

End If

Me.Controls("FT" & i).Value = x

Next

End Sub

Deixei o crédito da pessoa que fez, espero que não tenha problema. Obrigado !!!

[MrMALJ]

Sem problemas fera é muito bom dar crédito a quem o tem, no mais agradeço por ter retornado a solução!