[Resolvido]escrever campo em lugar em branco

Bom dia!

Tenho uma consulta que me dá como resultado algo do tipo:

Peça// QTD //Nome
AA // xx // sequencia1
123 // 2 // (campo em branco)
456 // 1 // (campo em branco)
567 // 10 // (campo em branco)
AA // xx // sequencia2
123 // 20 //(campo em branco)
456 // 15 // (campo em branco)
567 // 3 //(campo em branco)



Gostaria de fazer uma consulta com isto, que me retornasse o resultado:

Peça // QTD // Nome
123 // 2// sequencia1
456 //1 // sequencia1
567 // 10 //sequencia1
123 // 20 // sequencia2
456 // 15 // sequencia2
567 // 3// sequencia2

Alguém sabe quais critérios colocar para que isto ocorra?

Grato
Thales

Boa tarde ThalesEduardo, seja bem vindo ao Fórum!

Mas como sabera qual e sequencia 1 ou 2?

Exmplique direito o uso que fará disso


Cumprimentos.

Cada sequencia = 1 produto.
Meu objetivo final será cruzar todos os produtos que serão feitos por dia, para saber minha necessidade de peças.
Por isso quero relacionar as peças que estão na "sequencia 1", "sequencia 2" e por ai vai! O problema é que os dados não estão dispostos como eu gostaria, já tive que fazer várias consultas para chegar neste resultado, e não quero ter que exportar isto para um excel e depois voltar para o Access.
Queria algo do tipo: Se o campo sequencia estiver em branco, copie o de cima, senão, mantenha o dado atual. Sabe como fazer isso?

Envie uma copia do BD com a tebela e alguns dados, que verei isso.

cumprimentos.

A tabela vem toda torta, esta configuração foi a melhor que consegui.
A consulta 2 mostra até onde eu cheguei!

Valeu!

Boa tarde, eduardo, e bem-vindo ao fórum
Se puder colocar em formato 2003.

Thales, sua tabela nao tem chave primaria (Indice)

Em qual campo quer fazer a atualização?
Sua tabela tem 14 campos.

Cumprimentos.

Em anexo a base em Access 2003.
Então, na verdade não pensei em atualizar na tabela, mas acho que pode funcionar!
Se você observar no campo 9 da tabela, em algumas linhas está o dado "LB359268". Nas linhas seguintes tem um monte de dado que não me serve para nada, até que surge outro "LB XXXX", ou seja é um outro produto. As peças que vão em cada produto é o que está entre cada "LB XXXX".
É possível fazer uma consulta que faça o seguinte:
- No campo 9 copiar primeiro código "LB XXXX", colocar este código em todas as linhas do campo 9, até que apareça outro campo "LB XXXX"? Desta forma eu conseguiria referenciar todas as peças por pedido!

Boas Alexandre... Eu cheguei nisso.. mas a essa altura ja não consigo pensar direito.

Te envio em 2003 para que possa ver tambem.

Private Sub cmdAtualizar_Click()
Dim Rs As DAO.Recordset
Dim db As DAO.Database
Dim StrSQL As String
Dim StrTMP
Dim StrTMP1
'___________________________________________


'RecordSet
StrSQL = "SELECT * FROM aaaaaaaaaaaaFtd140033"
Set db = CurrentDb
Set Rs = db.OpenRecordset(StrSQL)
Rs.FindFirst "Left(Field9, 2) = 'LB'"
StrTMP = Rs!Field9
Rs.MoveFirst

Do While Not Rs.EOF
If IsNull(Rs!Field9) = True Or Rs!Field9 <> StrTMP Then
Rs.Edit
Rs!Field9 = StrTMP
Rs.Update
Rs.MoveNext
Else
Rs.FindNext "Left(Field9, 2) = 'LB'"
StrTMP = Rs!Field9
MsgBox StrTMP
Rs.MoveNext
End If
Loop
MsgBox "Atualizado com Sucesso", vbInformation, "Aviso"
End Sub


https://dl.dropbox.com/u/26441349/ThalhesEduardo.rar

Cumprimentos.

Olá, Hary

Pela descrição, ainda não entendi o que o colega pretende.
Pode (ou o eduardo) explicar direito o que é pretendido?

Assim...

Em se encontrando no campo valor com a inicial LB, lança no proximo campo nulo ou com outro valor...

Até encontrar o proximo registro com a inicial LB, pega o novo valor LBxxxx e lança nos proximos campos nulos...


Consegui assim:

On Error Resume Next
Dim Rs As DAO.Recordset
Dim db As DAO.Database
Dim StrSQL As String
Dim StrTMP
Dim StrTMP1
'___________________________________________


'RecordSet
StrSQL = "SELECT * FROM aaaaaaaaaaaaFtd140033"
Set db = CurrentDb
Set Rs = db.OpenRecordset(StrSQL)
Rs.FindFirst "Left(Field9, 2) = 'LB'"
StrTMP = Rs!Field9
Rs.MoveFirst

Do While Not Rs.EOF
If IsNull(Rs!Field9) = True Or Rs!Field9 <> StrTMP Then
Rs.Edit
Rs!Field9 = StrTMP
Rs.Update
Rs.MoveNext
If Left(Rs!Field9, 2) = "LB" Then
StrTMP = Rs!Field9
End If
Else
Rs.MoveNext
End If
Loop
MsgBox "Atualizado com Sucesso", vbInformation, "Aviso"
End Sub


Cumprimentos.

Oh, Hary

Não me confunda. Não vejo campo valor. O que pretendo é a descrição textual do que é pretendido. A mecânica quero-a começar do ponto zero para não começar inviezado.

Perdoe-me Alexandre, irei te explicar pelo que eu entendi do que o colega falou...

Não é campo valor, devo ter me equivocado ao escrever. É sim Campo com o Valor

Supondo que o primeiro registro do campo Field9 tem escrito: LB00001
e que nos 5 regisrros seguintes:

0
Nulo
E000
0
Nulo
D111

Pegue-se o contido no promeiro registro (LB00001) e lance nos 5 registros seguinte.

Se o registro de numero 6 tiver o texto LB00002, pegue esse valor e preencha nos registros nulo ou com textos diferentes seguintes.


Neste código acima ja consegui isso.


Cumprimentos.

Funcionou perfeitamente! Valeu mesmo!!

O Fórum agradece o retorno.

Não se esqueça de clicar no joinha da mensagem que o auxiliou.

Abraços Mestre Alexandre