MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Codigo para percorrer dois formularios

    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1049
    Registrado : 11/11/2009

    [Resolvido]Codigo para percorrer dois formularios Empty [Resolvido]Codigo para percorrer dois formularios

    Mensagem  scandinavo 2/2/2023, 01:20

    Ola
    Criei um codigo para percorrer dois formularios, pelo codigo do pedido do primeiro formulario, preencher o cliente no segundo formulario.
    se os dois formulario estiverem na mesma ordem de classificação o codigo funciona. mas se inverter a classificacao do segundo formulario, o código ate preenche o nome do cliente, mas o loop não funciona no primeiro formulario que teria que pegar o nome do cliente do proximo registro do primeiro formulario e percorrer novamente o segundo formulario

    On Error Resume Next
           Dim rsP As Recordset 'form Pedido
           Dim rsE As Recordset 'form Envio
           Dim N As Long 'numero pedido
           Dim NCliente As String 'nome cliente/Colegio
               
           Set rsP = Me.subfrmPedido.Form.Recordset 'formulario
           Set rsE = Me.subfrmEnvio.Form.Recordset 'formulario

           rsP.MoveFirst 'inicio form Pedido
           N = rsP!Ndopedido 'carrega variavel
           NCliente = rsP!Colégio 'carrega variavel
           
           rsE.MoveFirst 'inicio form Envio
           
           Do While Not rsP.EOF ' vai ate o fim do form pedido
     
           If N = rsE!NPedido Then 'se o pedido for igual adiciona o nome do cliente
           rsE.Edit
           rsE!Cliente = rsP!Colégio
           rsE.Update
           rsP.MoveNext
           N = rsP!Ndopedido
           NCliente = rsP!Colégio

           Else

           rsE.MoveNext 'caso nao encontre vai para o proximo
       
           End If
           Loop
           rsP.MoveNext

         
           Set rsP = Nothing
           Set rsE = Nothing


    segue anexo

    https://www.dropbox.com/s/b7cqtltayahzn5n/Percorrer%20dois%20formulario.accdb?dl=0


    Última edição por scandinavo em 5/2/2023, 23:12, editado 2 vez(es)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2682
    Registrado : 23/01/2018

    [Resolvido]Codigo para percorrer dois formularios Empty impidir que arredonde o preço

    Mensagem  crysostomo 2/2/2023, 13:29

    coloquei no lugar errado
    perdo-me


    Última edição por crysostomo em 2/2/2023, 14:55, editado 1 vez(es)


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 27/5/2024, 04:02