Hola wallace.
Si no entiendo mal, tú problema es que quieres eliminar un registro/s de un grupo que identifican a un usuario... Puedes utilizar la/s correspondiente/s sentencia/s SQL (sql/400, por supuesto).
Si quieres eliminar todos los registros del usuario 4038 y el campo es CARÁCTER:
DELETE From Tabla1 WHERE LEFT(CampoX, 4) = '4038'
Si quieres eliminar todos los registros del usuario 4038 y el campo es NUMÉRICO:
DELETE From Tabla1 WHERE LEFT(DIGITS(CampoX), 4) = '4038'
Si quieres eliminar el último de los registros y SABES CÚAL ES EL MAYOR nº DE FOLIO (con campos numéricos):
DELETE From Tabla1 WHERE LEFT(DIGITS(CampoX), 4) = '4038' AND RIGHT(DIGITS(CampoX), 3) = '006'
Si quieres eliminar el último de los registros y NO SABES CÚAL ES EL MAYOR nº DE FOLIO (con campos numéricos):
'Primero obten en un recordset los registros ordenados del usuario:
Set rs1 = cmd1.Execute("SELECT From Tabla1 WHERE LEFT(DIGITS(CampoX), 4) = '4038' ORDER BY CampoX
'Posiciónate en el último registro (si los hubiera, claro):
rs1.MoveLast
'Ahora elima el registro:
cmd1.Execute "DELETE FROM Tabla1 WHERE CampoX =" & rs1.Fields("CampoX").Value
Espero que con estos ejemplos arregles. Suerte.
