Private Sub BotoGuardar_Click()
If Text3.Text <> "" And Text4.Text <> "" Then
Data1.Recordset.AddNew
Data1.Recordset.Fields("NumerodeFactura") = Val(Text1.Text)
Data1.Recordset.Fields("Producto") = Text3.Text
Data1.Recordset.Fields("Valor") = Val(Text4.Text)
Data1.Recordset.Update
Data1.Refresh
End If
If Text5.Text <> "" And Text6.Text <> "" Then
Data1.Recordset.AddNew
Data1.Recordset.Fields("NumerodeFactura") = Val(Text1.Text)
Data1.Recordset.Fields("Producto") = Text5.Text
Data1.Recordset.Fields("Valor") = Val(Text6.Text)
Data1.Recordset.Update
Data1.Refresh
End If
Resultado = Val(Text4.Text) + Val(Text6.Text) + Val(Text8.Text) + Val(Text10.Text) + Val(Text12.Text)
Text13 = Str(Resultado)
Data2.Recordset.AddNew
Data2.Recordset.Fields("NumerodeFactura") = Val(Text1.Text)
Data2.Recordset.Fields("NombredeCliente") = Text2.Text
Data2.Recordset.Fields("Total") = Val(Text13.Text)
Data2.Recordset.Update
Data2.Refresh
End Sub