Ler Segunda linha do SubFormulario

Gente segue o codigo =)

o que eu quero parece simples que a PRO2 e a VAL2, seja a segunda informação do outro subformulario.

Exemplo:

 Coluna
   75 = VAL
   76 = VAL2


Já tentei Row (0, 2) entre outros

__________________________________________

Dim PER As DAO.Recordset
Dim VAR As DAO.Recordset

Set PER = Me.(nomedoSubFormulario).Form.Recordset
Set VAR = Me.(nomedoSubFormulario).Form.Recordset

With PER
   .MoveFirst

       Do While Not PER.EOF
       .Edit


       Dim PRO As String
       Dim PRO2 As String
       Dim VAL As String
       Dim VAL2 As String


       PRO = VAR!Nome.Value  --AQUI ESTA PUXANDO NORMAL O PRIMEIRO VALOR
       VAL = VAR!VALOR.Value  --AQUI ESTA PUXANDO NORMAL O PRIMEIRO VALOR


       PRO2 = VAR!Nome.Value     -- NÃO SEI O QUE COLOCO PRA PUXAR A SEGUNDA LINHA DO OUTRO SUBFORMULARIO
       VAL2 =  VAR!VALOR.Value    --NÃO SEI O QUE COLOCO PRA PUXAR A SEGUNDA LINHA DO OUTRO SUBFORMULARIO
         
         PER!TEMP = Replace(Replace(PER!MEDIDA, PRO, VAL), PRO2, VAL)
         
          PER!MEDIDAFINAL.Value = Eval(PER!TEMP.Value)
 
       .Update
       .MoveNext
    Loop
End With
Set PER = Nothing

________________________________________________________________________________________________

Obs: Esse cédigo é para subtituir varios caracteres de uma vez com referencia em um subformulario

Desde já Muito Obrigado!

Olá Osvaldo Abgelo,

O idela seria via recordset is ao registo dois.
No entanto outra possibilidade, poderia ser un Dloockup ou query "filtrada".

Monte um exemplo simples do que tem de forma a se poder testar.
Assim fica mais fácil para qualquer membro poder ajudar


Abraço

Fiz um exemplo, na teoria é simples a cada linha da historia o sistema vai na lista de nomes pega o nome do personagem e volta pra linha substituindo o nome curto para o nome completo
depois vai para a proxima linha e faz a mesma coisa eu estou tentando com as Funçoes "replace" e "Do While Not SubForm.EOF" até agora so consegui com o primeiro e ultimo nome =(
com os nomes do meio ainda NADA.

Osvaldo, bom dia.
Para facilitar a ajuda, crie um banco de exemplo
com a estrutura que precisa e poste aqui.

Isso agilizará quem for lhe ajudar.

Segue o Exemplo
Download Aqui!

Segue o Link para Download do Exemplo

Option Compare Database

Private Sub Comando7_Click()
Dim PER As DAO.Recordset
Dim VAR As DAO.Recordset
Dim PRO As String
Dim PRO2 As String
Dim VAL As String
Dim VAL2 As String
Dim qRegistros As Long
Dim i As Long

Set PER = Me.TAB01.Form.Recordset
Set VAR = Me.TAB02.Form.Recordset

With PER
.MoveFirst

Do While Not PER.EOF
.Edit




PRO = VAR!Nome.Value
VAL = VAR![nome completo].Value


qRegistros = VAR.RecordCount
For i = 1 To qRegistros
VAR.Edit


PER!HISTORIA = Replace(PER!HISTORIA, PRO, VAL, , -1)

VAR.Update
VAR.MoveNext
Next i

.Update
.MoveNext
Loop
End With
Set PER = Nothing


End Sub

Exemplo que funciona so não muda a linha =(

Download


Agora se o nome da personagem for "MARIANA" o sistema entende que o nome é Maria e já substitui antes de ler a palavra inteira =(

Desculpe, parece confuso para mim.

Tem a história, como por exemplo:

"Jose tinha 5 anos a mais que Maria, que era 2 anos mais velha que Lucas"

Tem os nomes:

• NOME
  
• JOSE
  
• MARIA
  
• LUCAS
  
• ANA
  
• MARIANA

O que tem que substituir? E por qual substituir?
Como ficaria a história (acima) no final?

"Jose tinha 5 anos a mais que Maria, que era 2 anos mais velha que Lucas"

Tinha que ficar assim

"Jose Felipe tinha 5 anos a mais que Maria Aparecida, que era 2 anos mais velha que Lucas Silva"

no ultimo que eu mandei ja esta tudo ok

só que agora veio a MARIANA como o nome ela é junção o sistema esta fazendo o nome de ficar "MARIA APARECIDA"ANA

Estamos caminhando.
A intenção é substituir o nome pelo nome completo?

Exatamente.

Mais agora o erro é MARIANA, que ele troca o "MARIA" antes de ler o nome completo no word a opção é "Localizar apens palavras completas"

Exemplo:

o "Rosangela" e "Angela" ele vai primeiro mudar o "Angelo" do que ler o nome todo antes de alterar.

Sim, vou problematizar um pouco:

Nome	Nome completo
Marcelo	Marcelo David
Marcelo	Marcelo Rocha

Como o sistema saberá por qual Marcelo substituir?

O nome Completo não se repete isso é fixo, e se acontecer é só o primeiro da lista de nome que vais er usado,

se for marcelo 1 ou marcelo 2, so o primeiro marcelo será usado, mais é o que eu falei o nome Marcelo nao sera repetido na tabela de nomes

o erro esta em um nome meno vir antes do maior exemplo

ANA E MARIANA

o sistema esta trocando o ANA Antes do MARIANA

NOME   NOME COMPLETO   FRASE                       RESULTADO
ANA            ANA CLARA           EU AMO A ANA       EU AMO "ANA CLARA"
MARIANA   MARIANA PONTES   EU AMO A MARIANA       EU AMO MARI"ANA CLARA"

Olha o se fosse no excel para ler o campo completo seria (LookAt := xlWhole)

Ola a todos,

Osvaldo abgelo,

Uma solução seria colocar na pesquisa de substituicao o espaço antes e depois do nome, mas para isso a história não poderia começar logo com o nome, mas assim por exemplo:


No código ficaria assim:

Código:

    PER!HISTORIA = Replace(PER!HISTORIA, Chr(32) & PRO & Chr(32), Chr(32) & VAL & Chr(32))

Outra coisa, no título do tópico só se escreve na mensagem, nr 1, depois o forum repete automaticamente, nas seguintes deve ficar em branco.
Edite as mensagens que tem o titulo diferente deixe em branco.

Abraço

Boa tarde senhores,
pensando nesse tópico, desenvolvi uma função para realizar substituição considerando palavra completa.
Na verdade é opcional considerar a palavra completa ou não.

Osvaldo, para o seu caso, faça o seguinte:

copie para um módulo do seu projeto (último que estava mais próximo do objetivo) minha função do link abaixo:
https://www.maximoaccess.com/t40178-funcao-fncsubstituir-que-funciona-semelhante-a-replace-do-vba-que-considera-a-palavra-completa

Após isso, no seu código, substitua a linha abaixo que usa o Replace nativo do VBA pela minha função FncSubstituir:
Linha com Replace do VBA:
PER!HISTORIA = Replace(PER!HISTORIA, PRO, VAL)

Substitua por:
PER!HISTORIA = FncSubstituir(PER!HISTORIA, PRO, VAL, True)

Teste e retorne, por favor.