MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Mensagem para por data

    Compartilhe

    Ney Santos
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 145
    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

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2302
    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!

    Ney Santos
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 145
    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: Dom 04 Dez 2016, 06:04