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.

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 =(

"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

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.

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