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]preenchimento automático de um campo

    Compartilhe
    avatar
    Oliveira89
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]preenchimento automático de um campo

    Mensagem  Oliveira89 em 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
    avatar
    Oliveira89
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Oliveira89 em 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: 21/10/2018, 11:52