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]Grava varias tarefas de uma vez só.

    avatar
    m_sousa
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 162
    Registrado : 06/11/2020

    [Resolvido]Grava varias tarefas de uma vez só. Empty [Resolvido]Grava varias tarefas de uma vez só.

    Mensagem  m_sousa 15/1/2021, 09:42

    Olá

    Preciso de um favor da vossa parte aqui com a APP !

    Ao abrir o frm1 , este form abre o frm2 , aqui escolhemos as varias tarefas efetuadas , e no final a ideia era gravar no subform que esta no frm1 (tlbOcorrencias).

    Só que o pretendido seria que o gravar cria-se uma linha / registo na tabela , uma linha / registo para as varias tarefas... para além disso levasse  ( Me.Hora_Data.Value = Now ) em cada registo.

    Obrigado

    Deixo exemplo em bd anexada.

    Obrigado
    Um bem hajam
    Anexos
    [Resolvido]Grava varias tarefas de uma vez só. Attachmentdb_pastas.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (57 Kb) Baixado 8 vez(es)
    avatar
    ifahidalgo
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 13/10/2011

    [Resolvido]Grava varias tarefas de uma vez só. Empty Re: [Resolvido]Grava varias tarefas de uma vez só.

    Mensagem  ifahidalgo 15/1/2021, 12:04

    bom dia

    no evento clique do botão gravar no form2.

    Dim strSql As String, rstTemp As DAO.Recordset

    strSql = "Select * from tblOcorrencia "
    Set rstTemp = CurrentDb.OpenRecordset(strSql, dbOpenDynaset)
    rstTemp.AddNew
    rstTemp("DataHora") = Date 'configurar na tabela o campo como somente data
    rstTemp("Ocorrencia") = txtRespostaPentear + "/" + txtRespostaSecar + "/" + txtRespostaCortar + "/" + txtRespostaBuco ' isso se o proposito for juntar essas informações no campo do banco de dados que só tem 1 campo.
    rstTemp.update
    rstTemp.close

    MsgBox "Informações salvas com sucesso.", vbOKOnly + vbInformation, "Atenção!"
    docmd.close
    forms!frm1!frm3.requery

    marque as referencias da imagem em anexo.
    Anexos
    [Resolvido]Grava varias tarefas de uma vez só. Attachmentdb_pastas.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (70 Kb) Baixado 6 vez(es)
    avatar
    m_sousa
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 162
    Registrado : 06/11/2020

    [Resolvido]Grava varias tarefas de uma vez só. Empty Re: [Resolvido]Grava varias tarefas de uma vez só.

    Mensagem  m_sousa 15/1/2021, 12:17

    Amigo

    Antes de mais obrigado... mas . . . Só grava a data . . .

    avatar
    ifahidalgo
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 13/10/2011

    [Resolvido]Grava varias tarefas de uma vez só. Empty Re: [Resolvido]Grava varias tarefas de uma vez só.

    Mensagem  ifahidalgo 15/1/2021, 13:54

    se quiseres data e hora. altere "Date" por "Now()", no codigo que passei.
    avatar
    m_sousa
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 162
    Registrado : 06/11/2020

    [Resolvido]Grava varias tarefas de uma vez só. Empty Re: [Resolvido]Grava varias tarefas de uma vez só.

    Mensagem  m_sousa 15/1/2021, 13:58

    Certo

    O problema é que nao regista a ocorrencia !!! e se colocar assim

    rstTemp("Ocorrencia") = txtRespostaPentear + txtRespostaSecar

    Regista na mesma linha : IDOcorrencias DataHora Ocorrencia
    7 15-01-2021 PENTER: SIMSecar: NÃO

    O objetivo era ter duas linhas de registo uma para Pentear : SIM e outra par Secar : NÃO . . .

    Obrigado
    avatar
    ifahidalgo
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 13/10/2011

    [Resolvido]Grava varias tarefas de uma vez só. Empty Re: [Resolvido]Grava varias tarefas de uma vez só.

    Mensagem  ifahidalgo 15/1/2021, 14:25

    Dim strSql As String, rstTemp As DAO.Recordset

    strSql = "Select * from tblOcorrencia "
    Set rstTemp = CurrentDb.OpenRecordset(strSql, dbOpenDynaset)
    if (txtrespostapentear <> "") then
    rstTemp.AddNew
    rstTemp("DataHora") = Date 'configurar na tabela o campo como somente data
    rstTemp("Ocorrencia") = txtRespostaPentear
    rstTemp.update
    'rstTemp.close
    end if

    if (txtrespostasecar <> "") then
    rstTemp.AddNew
    rstTemp("DataHora") = Date 'configurar na tabela o campo como somente data
    rstTemp("Ocorrencia") = txtRespostaSecar
    rstTemp.update
    'rstTemp.close
    end if

    if (txtrespostacortar <> "") then
    rstTemp.AddNew
    rstTemp("DataHora") = Date 'configurar na tabela o campo como somente data
    rstTemp("Ocorrencia") = txtRespostaCortar
    rstTemp.update
    'rstTemp.close
    end if

    if (txtrespostabuco <>"") then
    rstTemp.AddNew
    rstTemp("DataHora") = Date 'configurar na tabela o campo como somente data
    rstTemp("Ocorrencia") =txtRespostaBuco
    rstTemp.update
    'rstTemp.close
    end if

    rstTemp.close
    MsgBox "Informações salvas com sucesso.", vbOKOnly + vbInformation, "Atenção!"
    docmd.close
    forms!frm1!frm3.requery
    avatar
    m_sousa
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 162
    Registrado : 06/11/2020

    [Resolvido]Grava varias tarefas de uma vez só. Empty Re: [Resolvido]Grava varias tarefas de uma vez só.

    Mensagem  m_sousa 15/1/2021, 15:33

    Obrigado, muito obrigado. Resolvido... Obrigado mesmo. Abraço

    Um bem haja !

      Data/hora atual: 21/9/2021, 04:03