MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Repetir formulario e subformulario

    Compartilhe
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Repetir formulario e subformulario

    Mensagem  Assis em Sex 30 Jun 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 ***
    avatar
    Silvanio123
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Boa noite...

    Mensagem  Silvanio123 em Sab 01 Jul 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, .
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]Repetir formulario e subformulario

    Mensagem  Assis em Sab 01 Jul 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 ***
    avatar
    Silvanio123
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Repetir formulario e subformulario

    Mensagem  Silvanio123 em Sab 01 Jul 2017, 12:02

    Vlw!!!

      Data/hora atual: Ter 21 Nov 2017, 19:12