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

    [Resolvido]Botão em Formulário Contínuo.

    carolinesilva115
    carolinesilva115
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Botão em Formulário Contínuo. Empty [Resolvido]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
    [Resolvido]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)
    carolinesilva115
    carolinesilva115
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Botão em Formulário Contínuo. Empty Re: [Resolvido]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 : 2306
    Registrado : 22/11/2016

    [Resolvido]Botão em Formulário Contínuo. Empty Re: [Resolvido]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.
    carolinesilva115
    carolinesilva115
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Botão em Formulário Contínuo. Empty Re: [Resolvido]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
    [Resolvido]Botão em Formulário Contínuo. AttachmentDatabase10editado.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (101 Kb) Baixado 9 vez(es)
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

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

    [Resolvido]Botão em Formulário Contínuo. Empty Re: [Resolvido]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

    [Resolvido]Botão em Formulário Contínuo. Empty Re: [Resolvido]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
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  DamascenoJr. em 24/9/2020, 00:47

    carolinesilva115, a dica dos colegas ajudaram?

    Aguardamos retorno...


    .................................................................................
    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.
    carolinesilva115
    carolinesilva115
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  carolinesilva115 em 24/9/2020, 02:30

    Resolvido. Obrigada
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  DamascenoJr. em 24/9/2020, 02:33

    Veja no link abaixo como finalizar o tópico dando o resolvido
    https://www.maximoaccess.com/t860-resolucao-de-topicos#5263

    Aguardamos...


    .................................................................................
    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.
    carolinesilva115
    carolinesilva115
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  carolinesilva115 em 24/9/2020, 04:10

    .

      Data/hora atual: 24/10/2020, 09:18