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]Mensagem para por data

    Compartilhe
    avatar
    Ney Santos
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 147
    Registrado : 23/05/2011

    [Resolvido]Mensagem para por data

    Mensagem  Ney Santos em Sex 26 Ago 2016, 12:39

    Bom dia a todos.
    Criei a seguinte função baseado em um exemplo aqui do forum.
    Public Function LanEntrada() As Integer

    Dim BancoDados As DAO.Database
    Dim RS As DAO.Recordset

    Set BancoDados = CurrentDb()
    Set RS = BancoDados.OpenRecordset("HistPgPed", dbOpenDynaset)

    RS.AddNew
    RS("IDPEDIDO") = [CpNotaFiscal]
    RS("Historico") = "Pagamento Valor de " & Format$("R$") & Me.CpDuplicatas
    RS("DATALAN") = Date
    RS("ValorPg") = Me.CpDuplicatas - Me.vlor
    RS("VlrOrig") = Me.CpValTotalProd
    RS("VlrSucata") = Me.CpSucatas
    RS("RestaPagar") = Me.CpValTotalProd - Me.CpDuplicatas - Me.CpValorDesc - RS("VlrSucata")
    RS("IdConta") = DLookup("CdUsuario", "Usuario")

    RS.Update
    RS.MoveLast
    RS.Close
    Set RS = Nothing
    End Function

    Gostaria de saber como poderia muda a seguinte linha: RS("DATALAN") = Date
    para que em vez de ser lançada a data atual , aparecesse uma caixa de msg onde eu digitasse a data correta do pagamento.
    acho que caixa de msg nao e bem o nome correto..
    MAs spero que tenham entendido..

    Grato pela atenção..

    Ney antos
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3336
    Registrado : 14/08/2013

    Re: [Resolvido]Mensagem para por data

    Mensagem  FabioPaes em Sex 26 Ago 2016, 13:26

    Crie uma Variavel chamafa F

    e coloque assim:

    Public Function LanEntrada() As Integer

    Dim BancoDados As DAO.Database
    Dim RS As DAO.Recordset
    Dim F as Date

    F = InputBox("Informe a Data no formato (01/08/2016):", "Data Lançamento")


    ....

    RS("DATALAN") = F


    ...



    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Ney Santos
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 147
    Registrado : 23/05/2011

    Re: [Resolvido]Mensagem para por data

    Mensagem  Ney Santos em Sex 26 Ago 2016, 14:05

    Prezado Fabio , muito obrigado deu certinho.

    Att

    Ney

      Data/hora atual: Ter 24 Out 2017, 06:58