Limitar nro de registros en subformulario
Alguien podría ayudarme tengo un formulario de Remito con su respectivo Subformulario. Mi inconveniente es con la impresión ya que por el diseño no hay espacio para más de 10 líneas en el Subformulario. Por tal motivo necesito limitar a 10 los items detallados en el detalle del remito.
No tengo idea de como empezar.
1 respuesta
Respuesta de Jacinto Trillo Jareño
1
Aunque se pueda hacer de varias maneras, te recomiendo que uses una Función Publica en un Módulo Estándar y así la puedes llamar desde cualquier formulario de la Aplicación.
La Función sería algo así:
Public Function NMaxRegistros( Frm As Access.Form, Optional LimReg As Integer = 1) With Frm.RecordsetClone If .RecordCount <> 0 Then .MoveLast Frm.AllowAdditions = (.RecordCount < LimReg) End With End Function
El Código que si has de poner en el Formulario, en su Evento >> Al Activar Registro (Form_Current) es el siguiente
Private Sub Form_Current() NMaxRegistros Me, 10 'El 10 puede ser cualquier Número que tu quieras como límite, en el caso que expresas 10 'Repara en que si omites ese Número, por omisión te permitirá solo 1 End Sub
Un saludo >> Jacinto
