Access - Gracias Jefferson tengo otra

   
Vista:

Gracias Jefferson tengo otra

Publicado por rafa (149 intervenciones) el 09/10/2009 20:44:59
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)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Gracias Jefferson tengo otra

Publicado por Jefferson (5 intervenciones) el 11/10/2009 04:22:10
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar