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]Repetir formulario e subformulario

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

    [Resolvido]Repetir formulario e subformulario Empty [Resolvido]Repetir formulario e subformulario

    Mensagem  Assis 30/6/2017, 20:44

    Boa noite Amigos
    Tenho o código abaixo para repetir dados de um formulário e subformulário para outro documento.
    O código funciona bem quando a BD não está dividida em Front e back.

    Acontece que estou a tentar usa-lo numa BD dividida Front e back end , e ao executar o código dá erro 3219 Operação inválida e dica a amarelo a linha marcada a vermelho.

    Alguma ideia.

    Obrigado

    '-----------------------------------------
    Dim dbOrc As Database, rs1, rs2, rs3 As DAO.Recordset
       
       If MsgBox("Deseja Passa este Documento para o Fornecedor " & Cliente1 & "", vbYesNo + vbQuestion, "Repatição") = vbYes Then
           Set dbOrc = CurrentDb

           Set rs1 = dbOrc.OpenRecordset("Encomenda", dbOpenTable)
               
           With rs1
           
           .AddNew
           ![LN] = DMax("ln", "Encomenda") + 1
           ![Cliente] = Me.Cliente1

           .Update
           
           End With
           
           Set rs2 = dbOrc.OpenRecordset("SELECT * FROM Detalhesartigos WHERE lnd=" & Me.LN)
           Set rs3 = dbOrc.OpenRecordset("DetalhesArtigos", dbOpenTable)
                 
           While (Not rs2.EOF)
               With rs3
                   .AddNew
                   ![LND] = DMax("ln", "Encomenda")
                   ![Ref] = rs2![Ref]
                   ![Tipo] = rs2![Tipo]
                   ![Descrição] = rs2![Descrição]
                   ![Quant] = rs2![Quant]
                   ![Preço] = rs2![Preço]
                   ![PreçoCusto] = rs2![PreçoCusto]
                   ![SYS] = rs2![SYS]
                   .Update
                   rs2.MoveNext
               End With
           Wend
           
           rs1.Close
           Set rs1 = Nothing
           
           rs2.Close
           Set rs2 = Nothing
           
           rs3.Close
           Set rs3 = Nothing
           
           Set dbOrc = Nothing
           
           
           MsgBox "Documento Repetido Criado com Sucesso. ", vbInformation, "Terminado"
         
           DoCmd.Close acForm, "EncomendasAlterar"
         Else
         
         DoCmd.CancelEvent
         
       End If


    .................................................................................
    *** Só sei que nada sei ***
    Silvanio123
    Silvanio123
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 24/08/2011

    [Resolvido]Repetir formulario e subformulario Empty Boa noite...

    Mensagem  Silvanio123 1/7/2017, 00:13

    Olá...

    Tente assim...

    Dim dbOrc As Database
    Dim rs1 As Recordset
    Dim rs2 As Recordset
    Dim rs3 As Recordset

    Set rs1 = dbOrc.OpenRecordset("Encomenda", dbOpenDynaset, dbSeeChanges)

    O erro pode estar em "dbOpenTable" já que a tabela deve ser vinculada, .
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

    [Resolvido]Repetir formulario e subformulario Empty Re: [Resolvido]Repetir formulario e subformulario

    Mensagem  Assis 1/7/2017, 01:58

    Obrigado Silvanio

    Resolvi assim :

    Errado
    Set rs1 = dbOrc.OpenRecordset("Encomenda", dbOpenTable)


    Certo
    Set rs1 = CurrentDb.OpenRecordset("select * from Encomenda")


    .................................................................................
    *** Só sei que nada sei ***
    Silvanio123
    Silvanio123
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 24/08/2011

    [Resolvido]Repetir formulario e subformulario Empty Re: [Resolvido]Repetir formulario e subformulario

    Mensagem  Silvanio123 1/7/2017, 12:02

    Vlw!!!

    Conteúdo patrocinado


    [Resolvido]Repetir formulario e subformulario Empty Re: [Resolvido]Repetir formulario e subformulario

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 15:00