MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Botão em Formulário Contínuo.

    avatar
    carolinesilva115
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 80
    Registrado : 23/12/2019

    Botão em Formulário Contínuo. Empty Botão em Formulário Contínuo.

    Mensagem  carolinesilva115 em 25/6/2020, 05:03

    Olá!

    Tenho um formulário onde cada registro é uma linha, além disso coloquei um botão que repete-se em toda linha (que abrirá outro formulário, até aí tudo bem).


    Acontece que se eu preencher primeiro esse segundo formulário, as informações não ficam salvas corretamente na tabela. É necessário q eu preencha os campos do primeiro formulário para q posteriormente eu aperte o botão e preencha o outro.


    Eu preciso q o 2º formulário seja preenchido primeiro e tudo seja salvo na mesma linha.


    Obs: comece abrindo o FormMenuInicial
    Obs2: o botão ao qual me refiro está escrito "Docs".
    Anexos
    Botão em Formulário Contínuo. AttachmentDatabase10.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (102 Kb) Baixado 3 vez(es)
    avatar
    carolinesilva115
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 80
    Registrado : 23/12/2019

    Botão em Formulário Contínuo. Empty Re: Botão em Formulário Contínuo.

    Mensagem  carolinesilva115 em 25/6/2020, 17:48

    dando up pq to desesperada kkk


    Última edição por carolinesilva115 em 26/6/2020, 19:11, editado 1 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2088
    Registrado : 22/11/2016

    Botão em Formulário Contínuo. Empty Re: Botão em Formulário Contínuo.

    Mensagem  DamascenoJr. em 26/6/2020, 03:14

    Não ignore as regras do fórum.

    10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    carolinesilva115
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 80
    Registrado : 23/12/2019

    Botão em Formulário Contínuo. Empty Re: Botão em Formulário Contínuo.

    Mensagem  carolinesilva115 em 26/6/2020, 19:21

    Acho que estou no caminho.

    Criei um campo Id de Numeração automática para diferenciar os registros...Mas está dando "Update ou CancelUpdate sem AddNew ou Edit".

    Alguém pode me ajudar???


    Código:
    Private Sub Comando80_Click()
    Dim BancoDados As DAO.Database
    Dim tabLiberacao As DAO.Recordset
    Dim stDocName As String
    Dim intnewrec As Integer

    Set BancoDados = CurrentDb()
    Set tabLiberacao = BancoDados.OpenRecordset("TabLiberacao", dbOpenDynaset)
    stDocName = "FormDocsLiberacao"
    intnewrec = Me.NewRecord
        
    'Condição para que o sistema crie uma nova ID caso o registro seja novo
    If intnewrec = True Then
        
    DoCmd.GoToRecord , , acLast 'vai até ao ultimo registro
    DoCmd.GoToRecord , , acNewRec 'cria novo registro
    tabLiberacao.AddNew
        
        
        tabLiberacao("Operacao").Value = Forms!FormNavegacao!txtOperacao.Value
        
        tabLiberacao.Update
        
        Me.Refresh
        
        tabLiberacao("IdLiberacao").Value = Me.IdLiberacao
        
        End If

        'procurando o registro selecionado
    DoCmd.OpenForm stDocName, , , "IdLiberacao=" & Forms!FormNavegacao!SubformLiberacao!IdLiberacao
    End Sub
    Anexos
    Botão em Formulário Contínuo. AttachmentDatabase10editado.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (101 Kb) Baixado 5 vez(es)
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1199
    Registrado : 07/12/2011

    Botão em Formulário Contínuo. Empty Re: Botão em Formulário Contínuo.

    Mensagem  tauron em 27/6/2020, 11:43

    Bom dia Caroline,

    Se eu entendi corretamente, você deseja inverter a ordem de preenchimento dos formulários. É isso?
    Cláudio Más
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1278
    Registrado : 21/01/2012

    Botão em Formulário Contínuo. Empty Re: Botão em Formulário Contínuo.

    Mensagem  Cláudio Más em 27/6/2020, 21:00

    O trecho abaixo:

    Código:
    tabLiberacao.Update
        
    Me.Refresh
        
    tabLiberacao("IdLiberacao").Value = Me.IdLiberacao

    deve ficar assim:

    Código:
    Me.Refresh
        
    tabLiberacao("IdLiberacao").Value = Me.IdLiberacao

    tabLiberacao.Update

      Data/hora atual: 2/7/2020, 11:20