Como numerar los renglones de una remisión y se reinicie cuando cambia el folio de la remisión
Tengo una tabla llamada remisión con los campos foliorem, fecharem, cc y descripción y un subformulario con campos foliorem, renglón, codigoprod, cantidad, precio y subtotalrem y me solicitan que se numere cada renglón con la finalidad de que cuando me generen la orden de compra pueda comparar cuántos renglones lleva la remisión todo esto lo estoy haciendo en access
Respuesta de Eduardo Pérez Fernández
Abra el subformulario en vista de diseño
Agrega un evento en Antes de insertar o Después de insertar (yo recomiendo Antes de insertar)
Adicione este código
Private Sub Form_BeforeInsert(Cancel As Integer)
Dim maxRenglon As Integer
' Buscar el número de renglón más alto para este FolioRem
maxRenglon = Nz(DMax("Renglon", "NombreDeTuTablaDetalle", "FolioRem = '" & Me.FolioRem & "'"), 0)
' Asignar el siguiente número
Me.Renglon = maxRenglon + 1
End SubEsto busca el valor máximo de Renglon para el mismo FolioRem, y le suma 1.
Si no hay ningún renglón (primero para ese FolioRem), devuelve 0 y empieza en 1.
