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

    [Resolvido]preenchimento automático de um campo

    Oliveira89
    Oliveira89
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 159
    Registrado : 07/09/2016

    [Resolvido]preenchimento automático de um campo Empty [Resolvido]preenchimento automático de um campo

    Mensagem  Oliveira89 27/10/2016, 10:46

    Bom dia pessoal

    Tenho a seguinte duvida: É possível numa tabela guarda o registo da função Agora() num campo automaticamente?
    Por exemplo, tenho um campo de uma tabela com o tipo de dados sim/não, é possível CASO esse campo seja sim guardar noutro campo da mesma tabela a hora em que foi colocado o visto(sim) com a função Agora()? Contudo CASO o campo esteja não a função Agora() não é aplicada e o campo está em branco.

    Exemplo:

    campo1/\/\campo2
    sim/\/\/\/\/\Agora()

    Campo1/\/\/\campo2
    não/\/\/\/\/\/\______

    Ignorem os termos /\ e __ são apenas espaços.


    .................................................................................
    Muito Obrigado
    Com os melhores Cumprimentos
    此致
    Oliveira
    Oliveira89
    Oliveira89
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 159
    Registrado : 07/09/2016

    [Resolvido]preenchimento automático de um campo Empty Re: [Resolvido]preenchimento automático de um campo

    Mensagem  Oliveira89 27/10/2016, 11:13

    cheers
    consegui resolver pessoal fiz por um formulário o seguinte:

    Private Sub yuy_Click()
    Dim strReg As Date
    Dim x As Integer

    If IsNull(consulta_saida) Then
    MsgBox "Selecione uma data!"
    Else
    strReg = Me.consulta_saida.Column(0)
    End If

    If Me.Dirty Then
    x = MsgBox("Deseja salvar todas as alterações ?", vbYesNo)
    If x = vbNo Then
    Me.Undo
    Else
    DoCmd.RunCommand acCmdSaveRecord
    CurrentDb.Execute "update registos set saida = -1 where data = #" & strReg & "#"
    CurrentDb.Execute "update registos set teste = now() where data = #" & strReg & "#"
    DoCmd.GoToRecord , , acNewRec
    Me.consulta_saida.Requery
    End If
    End If


    End Sub


    .................................................................................
    Muito Obrigado
    Com os melhores Cumprimentos
    此致
    Oliveira

      Data/hora atual: 22/1/2022, 17:32