| nestor |  |
|
2007-10-12 18:10 - Respuestas: 37 - Tema nº: 2470701
Y otra cosita ebolo, diseñe un formulario que me muestre solamente el total general de las ventas hasta el momento, en ese mismo formulario quiero mostrar algunos valores pero estos se encuentran en un archivo de excel en una celda determinada, como hago para que me muestre ese valor en el formulario y que cada vez que se cambie ese valor en el archvio de excel lo actualice tambien en el formulario....
Gracias... | |
|
|
| ebolo |  |
|
Re: Formulario en Access - 2007-10-15 09:09 - Respuesta 32
Hola...
Cuando selecciono el producto del cuadro combinado me sale el siguiente cuadro de dialogo:
Introduzca el valor del parametro: (Titulo del cuadro de dialogo)
MPP01 : (Id del producto)
Cuadro de texto en blanco: (ahi digito el mismo codigo que me muestra MPP01)
Botones: Aceptar y Cancelar
Ese es el cuadro que me sale 2 veces y debo llenarlo las 2 veces.... ????
Si te pregunta eso es porque no estas filtrando bien. Pónme el código de cómo filtras y en qué evento.
Y otra cosita ebolo, diseñe un formulario que me muestre solamente el total general de las ventas hasta el momento, en ese mismo formulario quiero mostrar algunos valores pero estos se encuentran en un archivo de excel en una celda determinada, como hago para que me muestre ese valor en el formulario y que cada vez que se cambie ese valor en el archvio de excel lo actualice tambien en el formulario....
Gracias...
Esto se puede hacer de varias formas; una de ellas, creo que es la mejor, es crearte una tabla con los campos que tengas en el archivo de excel. Estos campos deben actualizarse desde la hoja de excel.
Para este tema en concreto podrías abrir otro post, para no liar mucho éste y no mezclar tantas cosas en un post.
Saludos.
| |
|
|
| nestor | |
|
Re: Formulario en Access - 2007-10-18 16:31 - Respuesta 33
El codigo es el siguiente del formulario principal:
Private Sub Cantidad_AfterUpdate()
If Not IsNull(Me.Cantidad) And Not IsNull(Me.valor_unitario) Then
Me.Valor_total = Me.Cantidad * Me.valor_unitario
End If
End Sub
Private Sub Cuadro_combinado21_AfterUpdate()
Me.valor_unitario = Me.Cuadro_combinado21.Column(3)
Me.Cantidad = Me.Cuadro_combinado21.Column(2)
Me.producto1.Form.FilterOn = True
Me.producto1.Form.Filter = "IdProducto=" & Me.Cuadro_combinado21
End Sub
Private Sub Form_AfterInsert()
Me![producto1].Form!Cantidadhay = Me![producto1].Form!Cantidadhay - Me.Cantidad
Me.[producto1].Form.FilterOn = False
End Sub
Private Sub Form_Delete(Cancel As Integer)
Me![producto1].Form!Cantidadhay = Me![producto1].Form!Cantidadhay + Me.Cantidad
Me.[producto1].Form.FilterOn = False
End Sub
Private Sub Valor_total_AfterUpdate()
Me![venta].Form![Valor unitario] = Me![venta].Form![Valor unitario] * Me.Cantidad
End Sub
Private Sub valor_unitario_AfterUpdate()
If Not IsNull(Me.Cantidad) And Not IsNull(Me.valor_unitario) Then
Me.Valor_total = Me.Cantidad * Me.valor_unitario
End If
End Sub
***************************************************
boton de eliminar
Private Sub Comando79_Click()
On Error GoTo Err_Comando79_Click
Me.producto1.Form.FilterOn = True
Me.producto1.Form.Filter = "IdProducto=" & Me.Cuadro_combinado21
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Comando79_Click:
Exit Sub
Err_Comando79_Click:
MsgBox Err.Des-c-r-i-p-tion
Resume Exit_Comando79_Click
End Sub
Gracias ebolo, y lo otro pues terminemos con estas cositas y luego seguimos con lo otro.... | |
|
|
| ebolo | |
|
Re: Formulario en Access - 2007-10-18 21:10 - Respuesta 34
Hola...
si tengo entendido, el campo IDProducto está definido como texto, es ese caso hay que pasar el filtro entre comillas simples.
Private Sub Cuadro_combinado21_AfterUpdate()
If Not IsNull(Me.Cuadro_combinado21) Then
Me.valor_unitario = Me.Cuadro_combinado21.Column(3)
Me.Cantidad = Me.Cuadro_combinado21.Column(2)
Me.producto1.Form.FilterOn = True
Me.producto1.Form.Filter = "IdProducto='" & Me.Cuadro_combinado21& "'"
Else
Me.producto1.Form.Filter = ""
End If
End Sub
Prueba a ver que pasa, pero lo suyo es que te lo filtre directamente sin tener que escribir nada.
Un saludo.
| |
|
|
| nestor | |
|
Re: Formulario en Access - 2007-10-21 18:27 - Respuesta 35
Hola ebolo
Al digitar el codigo que me enviaste en el me sale la siguiente linea en rojo :
Me.producto1.Form.Filter = "IdProducto='" & Me.Cuadro_combinado21& "'"
de todas maneras guardo asi los cambios y cuando corro la aplicacion me sale el siguiente error:
MIcrosoft Visual Basic
Error de compilacion:
Error de sintaxis
Que debo hacer ? Gracias | |
|
|
|
