Hola soy jilo
El codigo que tengo hasta ahora me guarda los datos correctamente, pero no se como se hace un resumen de la venta de un dia con date
Gracias
Código:Dim fecha As date Dim nombre As String Dim apellido As String Dim producto As String Dim cantidad As Integer Dim precio As Integer Dim total As Integer Dim archivo As String Private Sub Command1_Click() 'nuevo Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text2.SetFocus End Sub Private Sub Command2_Click() ' guarda los datos fecha = Text1.Text nombre = Text2.Text apellido = Text3.Text producto = Text4.Text cantidad = Text5.Text precio = Text6.Text total = Val(Text5.Text) * Val(Text6.Text) archivo = App.Path & "\ventas.txt" Open archivo For Append As #1 Write #1, fecha, nombre, apellido, producto, cantidad, precio, total Close #1 End Sub Private Sub Form_Load() Text1.Text = Date End Sub