Conocer el ultimo numero existente dentro de una relación de registros
Tengo una tabla que contiene diferentes series de registros.
La tabla contiene estos campos:
Fecha Movimiento - Serie Ventas - Importe
18-02-2021 BV23138 3,68
15-03-2021 FG23146 67,98
31-03-2021 FG2319 12,10
18-06-2021 BV23146 3,68
15-09-2021 BV23148 125.69
---------- -------- ------
Contiene diferentes números de serie que son los dos primeros caracteres.
Si pido buscar la serie BV desde el mes de Junio he de conocer que el ultimo registro anterior que se ha realizado en esta serie corresponde a: 18/02/2021 / BV23138 / 3,68
Existen varias numeraciones de líneas de venta que cada una se va registrando en función del tipo de transacción.
Existen vacíos entre los números de serie puede que no exista el numero de serie anterior y que puedan haber varias ventas inexistentes como indico en el ejemplo.
2 Respuestas
Hacerlo es muy sencillo. Lo que de verdad importa es donde quieres verlo, como quieres verlo y que es lo que debe mostrar. Por ejemplo, tengo la tabla como la tuya, sólo que en el primer registro le he puesto un importe que "se ve" más.
Y en un formulario cualquiera( de ahí mis preguntas) le pongo un combinado y un cuadro de texto llamado UltimoReg.
En el combinado voy a elegir una fecha( ya que no sé si quieres elegirlo como mm/aaaa, etc.) con los 2 primeros dígitos de la serieventas
Selecciono el registro de Junio y
En este caso, pero ya te digo que sería muy conveniente que precisaras, en el evento Después de Actualizar del combinado ElegirMes le tengo puesto
Private Sub ElegirMes_AfterUpdate()
UltimoReg = DLast("importe", "tabla2", "fechamovimiento<#" & Me.ElegirMes & "# and left([serieventas],2)='" & Me.ElegirMes.Column(1) & "'")
End Sub
Necesito que me saque el ultimo registro realizado:
Fecha - Serie - Importe
Es un Diario Contable en el cual ha de sacar la ultimo Movimiento realizado en la serie solicitada y a continuación sacara todos los registros desde la Fecha a la Fecha solicitada.
El registro anterior que busco esta en los campos indicados esta fuera del Form continuo. Solo tiene que mostrarlo para comprobar los movimientos.
Y a continuación con un formulario continuo son mostrados todos los movimientos de la serie de venta.
Si necesitas más información dímelo y te la mando.
Jobe, sigue en pie la pregunta. ¿Quieres ver, por ejemplo, le fecha en un cuadro de Texto, la serie en otro, y el importe en otro, o, por ejemplo, en un mismo cuadro de texto que te muestra Fecha &" "&Serie&" "& Importe.
De todas formas, como ésta página ya no avisa de las "repreguntas", si quieres, repito, si quieres, podemos seguir la conversación en [email protected]
Le preparé este ejemplo, consta de una función a nivel de módulo 1 tabla y 2 formularios.
TABLA
Formulario y subformulario
Ingreso la fecha de corte y las 2 letras de la serie.
CÓDIGO DE LA FUNCIÓN
Option Compare Database
Option Explicit
Public pfecha As Date
Public pserie As String
Public pimporte As Double
Public Function datosform(mfecha As Date, mserie As String) As String
On Error Resume Next
Dim rs As Recordset
Dim strSQl As String
Dim strFecha As String
strFecha = "#" & Format(mfecha, "mm/dd/yyyy") & "#"
strSQl = "SELECT Last(tblmovtos.FechaMovimiento) AS ULTIMO" & vbCrLf
strSQl = strSQl & " , First(tblmovtos.SerieVentas) AS SERIE" & vbCrLf
strSQl = strSQl & " , First(tblmovtos.importe) AS IMPORTE" & vbCrLf
strSQl = strSQl & " FROM tblmovtos" & vbCrLf
strSQl = strSQl & " WHERE tblmovtos.FechaMovimiento<" & strFecha & vbCrLf
strSQl = strSQl & " AND Left([SerieVentas],2)='" & UCase(mserie) & "'"
Set rs = CurrentDb.OpenRecordset(strSQl)
pfecha = rs.Fields("ULTIMO")
pserie = rs.Fields("SERIE")
pimporte = rs.Fields("IMPORTE")
rs.Close
Set rs = Nothing
strSQl = "SELECT tblmovtos.id AS SIGUIENTES" & vbCrLf
strSQl = strSQl & " , tblmovtos.FechaMovimiento AS ULTIMO" & vbCrLf
strSQl = strSQl & " , tblmovtos.SerieVentas AS SERIE" & vbCrLf
strSQl = strSQl & " , tblmovtos.importe" & vbCrLf
strSQl = strSQl & " FROM tblmovtos" & vbCrLf
strSQl = strSQl & " WHERE tblmovtos.FechaMovimiento>=#" & Format(pfecha, "mm/dd/yyyy") & "#" & vbCrLf
strSQl = strSQl & " AND tblmovtos.FechaMovimiento<=#" & Format(mfecha, "mm/dd/yyyy") & "#" & vbCrLf
strSQl = strSQl & " AND Left([SerieVentas],2)='" & mserie & "'" & vbCrLf
strSQl = strSQl & " ORDER BY tblmovtos.FechaMovimiento;"
datosform = strSQl
End FunctionObserve que utilizo 3 variables públicas para almacenar la información del último registro que es anterior a la fecha de corte. (Claro que se puede abreviar con base en un cuadro combinado),
Como ya tengo la fecha hago la siguiente consulta a partir del registro a esta fecha. La función retorna el SQL origen del subformulario. Como dice un sabio de TodoExpertos hay "mil formas" de hacerlo.
Si quiere el ejemplo puede solicitarlo a [email protected]