[RESUELTO] Desbordamiento macro

[EST]

Hola a todos, soy nuevo en el foro y mis conocimientos son muy limitados pero he ido sobreviviendo. Ahora en la BD que tengo he copiado una macro vuestra para consultar desde el formulario y después imprimir. La consulta te devolvería datos de un subformulario que contiene más de mil registros (muchos con un mismo dni). Adjunto ejemplo de Bd en el que no hay ningún problema en ejecutarla pero en la real se interrumpe la macro indicando "tipo de datos o valor inadmisible. Desbordamiento". Lo indica en la línea iBajas = oForm.Columns. GetByName("DNI").GetInt. La verdad es frustrante que en una sí funcione y en la real no. Insisto, este tipo de expresiones no las entiendo. Simplemente la he copiado, de hecho es la primera macro que hago pero me facilitaría mucho el trabajo. He buscado por el foro pero no encuentro nada que entienda ni que crea que me de la solución. Adjunto ejemplo. Gracias de antemano y enhorabuena por el foro que tenéis.

[mauricio]

Así sin ver... el error es bastante claro, te dice que el valor que intentas devolver es más grande que la variable donde intentas guardarla...

Si tienes

Código: Seleccionar todo

	Dim iBajas As Integer

Reemplazala por:

Código: Seleccionar todo

	Dim iBajas As Long

Saludos

[EST]

Perfecto. Muchas gracias y muy amable.