Jump to content

Recommended Posts

Tengo un un formulario que tienes varios texbox el problema es que no se como haceros funcionar es en un formulario para dar de alta las factura en una hoja donde se concentran las altas y los pagos de facturas.image.thumb.png.95a89c3e0bce6ad203fb8cdb046e734b.png

Por favor en este formulario que se llama txt_Fecha_Facturacion + 30 = txt_Fecha_Facturacion  (16-abr-19 +30 = 16-may-19) en excel si lo hace.

en el txt_Total = txt_Importe_Factura + txt_Importe_IVA (Ejempo $ 3,000.00 + 480.00 = $ 3,480.00

Se podra hacer que lo haga a al momento y se vacien al listbox (ya tambien hice le código)

El código del botón de buscar ya lo hice

El boton de Agregar ya lo hice

El botón de Actualizar (Que se guarda en una base de datos ya lo hice), eleminar registro  también.

 

Por favor haran la obra buena de semana santa

Saludos 

 

 

 

 

Share this post


Link to post
Share on other sites

Hola!

Supongo que es aquí donde quieres que se ejecute no?

En 18/4/2019 at 13:23 , Arturo Castillo Chavez dijo:

Se podra hacer que lo haga a al momento y se vacien al listbox

Ponlo al final

Saludos,

Share this post


Link to post
Share on other sites

Hola @Arturo Castillo Chavez!

Prueba si es lo que deseas.

y si deseas limpiar los textbox, al finalizar: 

TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""

Si te ayudó la colaboración recibida, puedes agradecerlo con un click en el corazón que se encuentra en la parte inferior derecha del comentario.

Suerte!

ae20190423_post41648_acc.xlsm

Edited by tierra_pampa
Se agregó una línea de código

Share this post


Link to post
Share on other sites

Sr. Antoni este es mi proyecto:

Tengo dos formularios que quiero sustituirlos por las hojas con los nombre similares

En formulario frm_AltaFactura  el textbox Me.txt_Dias_Credito + Me.txt_Fecha_Facturacion = Me.txt_Fecha_Vto

29-abr-19 + 30 = 29-may-19

2.- Que aparezca el importe total de la factura aparezca en tiempo real 

Me.txt_Importe_Factura
Me.ListBox1.List(i, 😎= Me.txt_Importe_IVA
Me.ListBox1.List(i, 9) = Me.txt_Total

 

3.- El el Frm_PagoFactura

Me.txt_Fecha_Factura
Me.ListBox1.List(i, 3) = Format(Me.txt_Fecha_Factura, "dd-mmm-yy")
Me.ListBox1.List(i, 4) = Me.txt_Fecha_Vencimiento
Me.ListBox1.List(i, 4) = Format(Me.txt_Fecha_Vencimiento, "dd-mmm-yy")
Me.ListBox1.List(i, 7) = Me.txt_Importe
Me.ListBox1.List(i, 7) = Format(Me.txt_Importe, "#,##0.00")
Me.ListBox1.List(i, 😎 = Me.txt_Fecha_Pago
Me.ListBox1.List(i, 😎 = Format(Me.txt_Fecha_Pago, "dd-mmm-yy")

El fecha factura aparece 18/04/2019 y quiero que se presente 18-abr-19

lo mismo el lafecha de vencimiento 

Format(Me.txt_Importe, "#,##0.00")  aparece 806,58  y yo quisiera que fuera 806.58

Estos formularios van a ser las veces de las hojas de caltuc alta de facturas y pago de factura (sería por pura estetica)

Este proyecto es con el fin de tener al día todas las facturas por pagar (Vencidas no pagadas y por vencier) por cada proveedor, a partir de la hoja "regfac"

 

Esperando de verdad pueda ayudarme reciba un cordial saludo

 

Share this post


Link to post
Share on other sites

Hola amigo @Arturo Castillo Chavez

Tu problema es que no subes el archivo que exigen las normas, por eso no obtienes respuestas de la comunidad.

Fijate si esto ayuda a resolver tu inconveniente:

Suerte!

Private Sub txt_Fecha_Facturacion_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If txt_Dias_Credito <> 0 Then
    Me.txt_Fecha_Facturacion = Format(txt_Fecha_Facturacion, "dd-mmm-yyyy")
    txt_Fecha_Vto = CDate(Me.txt_Fecha_Facturacion) + CDbl(Me.txt_Dias_Credito)
    Me.txt_Fecha_Vto = Format(txt_Fecha_Vto, "dd-mmm-yyyy")
Else
    MsgBox "Por favor, ingrese los dìas de crédito!", vbCritical, "Alta de Facturas"
    Me.txt_Concepto.SetFocus
End If
Me.txt_Dias_Credito.SetFocus
End Sub

 

Share this post


Link to post
Share on other sites

×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 6254 personas - Aprender Excel - Total: 4.7 / 5