Ir para conteúdo
Fórum Script Brasil
  • 0

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


Jeferson Porto

Pergunta

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.

Link para o comentário
Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

  • 0

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?!

Link para o comentário
Compartilhar em outros sites

  • 0

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...

Link para o comentário
Compartilhar em outros sites

  • 0

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.

Link para o comentário
Compartilhar em outros sites

  • 0

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 !!!

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,2k
×
×
  • Criar Novo...