Access - Gracias Jefferson tengo otra

Gracias Jefferson por tu ayuda, ya me funciona correctamente.
Pero me gustaria que cuando quiero imprimir un informe me pregunte si quiero cambiar la fecha del mismo y que si la quisiera cambiar este dato actualizado se grabe en la tabla/consulta en la que esta basado dicho informe.
Bueno y ya puestos que en la segunda copia impresa me salga una etiqueta con el rotulo de copia ( estoy hablando de facturas)

Hola rafa

disculpa no te habia respondido antes, pero estaba trabajando y estaba full... ¡Valga la redundancia!

'*** Para este ejemplo necesitamos lo siguiente ***
'1) Importamos la tabla Pedidos del ejemplo Neptuno de Access
'2) Creamos un informe basado en la tabla Pedidos
'3) Creamos un Formulario nuevo e independiente
'4) Le agregamos un control de cuadro combinado
'5) Le agregamos un control cuadro de texto y en propiedades Visible = NO
'6) Le agregamos un Boton de Comando
'7) Ahora copia y pega este codigo

Private Sub Comando4_Click()
Dim Varfecha As Date 'declaro una variable donde voy a almacenar
'temporalmente la fecha nueva
If IsNull(Me![Cuadro combinado0]) Then ' la condicion si el campo esta vacio
MsgBox "debe inculir un IdPedido" 'indico el error
Me.Cuadro_combinado0.SetFocus 'me situo en el cuadro combinado
Me.Cuadro_combinado0.Dropdown 'y lo abro
Exit Sub 'detengo el codigo
End If

If MsgBox("Desea ingresar una nueva fecha", vbYesNo) = vbYes Then 'establezco una pregunta
'Mediante un Inputbox le almaceno la nueva fecha a la variable
Varfecha = InputBox("Incluya una fecha" & vbNewLine & "con este formato : " & Format(Now(), "mm/dd/yyyy"))

With Me.Texto2 'Doy vida al control cuadro de texto
.Value = Varfecha 'y le asigno la fecha de la variable
.Visible = True ' lo hago visible
.Enabled = False ' y lo bloqueo
End With

DoCmd.SetWarnings False 'descativo el mensaje de access
'borro el valor anterior e ingreso el del cuadro de texto
'ademas de almacenar el valor en la tabla
DoCmd.RunSQL "UPDATE Pedidos SET FechaPedido = Texto2 WHERE IdPedido = " & Me.Cuadro_combinado0 & ""
DoCmd.SetWarnings True 'activo de nuevo los mensajes de access
'abro el informe Pedidos segun los criterios de busqueda en el form
DoCmd.OpenReport "Pedidos", acPreview, , "[IdPedido] =" & Me.Cuadro_combinado0
End If
'de elegir NO en la pregunta anterior simplemente abro el informe, segun los
'criterios de busqueda en el form
DoCmd.OpenReport "Pedidos", acPreview, , "[IdPedido] =" & Me.Cuadro_combinado0
End Sub

Private Sub Form_Load()
'le ingreso los valores de fila al cuadro combinado
Me.Cuadro_combinado0.RowSource = "SELECT [Pedidos].[IdPedido] FROM [Pedidos];"
'le doy valores a las etiquetas y al boton de comando
Me.Etiqueta3.Caption = "Insertada una Nueva Fecha"
Me.Etiqueta1.Caption = "IdCliente"
Me.Comando4.Caption = "Ver Informe"
End Sub

Un Saludo Amigo
Desde Venezuela
Jefferson