[Resolvido]Informar a data de envio

Caros.
Tenho um botão de envio de pedidos que ao clicar ele Muda o Status do pedido para enviado, porem marca a "data do Clique" como sendo a data do envio conforme abaixo.

Private Sub cmdShipOrder_Click()
10        On Error GoTo Err_Handler

20        If MsgBox("Deseja enviar este pedido hoje?", vbYesNo Or vbQuestion) = vbYes Then
30            Me.ShippedDate = Date
40            Me.StatusID = enumOrderStatus.osShipped
50            RunCommand acCmdSaveRecord      'Salve o registro, para que a pesquisa abaixo pegue o novo valor.

             'Solicitar novamente o subformulário, para que o novo status seja exibido.
60            RequeryOrdersList

             'Alterar a cor do rótulo da ação.
70            DoCmd.RunMacro "macOrderDetails_SetColor"
80        End If


Exit_Handler:
90        Exit Sub

Err_Handler:
100       g_ErrorHandler.HandleError "Form_frmOrderDetails", "cmdShipOrder_Click"
110       Resume Exit_Handler
End Sub


Na Linda 30 ele simplesmente escreve a data do dia no campo "ShippedDate".
Eu gostaria de informar uma data.
Que ele abra um campo pra que eu possa digitar uma data e ele escrever esta data digitada no campo "ShippedDate".

Possível?

Agradeço e aguardo

Júlio

Olá,

Crie um campo neste formulário com o nome de "txtDataPed", e antes de clicar no botão, informe a data desejada.

Mude a linha 30 para:
Me.ShippedDate = Me.txtDataPed

Tente isso.

Att

Alexandre Fim

Muito Obrigado Alexandre

Testei !!
Não funcionou !!
ele não escreveu (não buscou) a data do campo "txtDataPed" para o campo "ShippedDate"

Este novo campo "txtDataPed" precisa estar relacionado a algum campo de alguma tabela ou consulta ? Ou ele pode ser independente?

Bom dia Julio,

Pode ser a formatação da data. Substitua a linha anterior por esta:

Me.ShippedDate = Format(Me.txtDataPed, "mm/dd/yyyy")


Se não funcionar, disponibilize uma cópia do seu banco de dados, somente objetos (tabelas, formularios, macros e etc) pertinentes ao problema para análise e solução.

Att,

Alexandre Fim

Resolvido.
Coloquei uma InputBox

ficou assim:

30 Me.ShippedDate = InputBox("Informe a data (dd/mm/aaaa)", "Date")

Ele abre uma caixa de solicitação de data.
Eu digito a data que eu desejo e o sistema escreve na "ShippedDate" a data digitada.

Muito Obrigado Feras.

valeu.