Eduardo Pérez Fernández

Por si le sirve le dejo este ejemplo: Lo hago con una función la cual es el origen de datos de los campos EFECTIVO, TARJEETA ETC. Funcion a nivel de formulario Function montotipo(mtipo As Byte) As Double Dim strSQL As String Dim rs As Recordset...

Necesitaría definir i dependiendo si está activada la definición Explicita en True. Observo que en dato1 y dato2 son texto y si el prefijo inicia con letras algo como val("AD1258") retornaría el valor 0, excepto que se val("0012345") retorna 12345....

Es posible que al realizar la copia tenia la base de datos abierta. Pruebe abriendo un módulo y compilando a ver que error recibe.

Es fácil si aporta una imagen de su formulario, para dar una mejor respuesta.

Muy raro porque su pregunta inicia con "Como contar.." y resulta que le dan la solución es sumando, lo que no es igual.

Le complemento con esta función. Public Function GenerarNumeros(ByVal desde As Double, ByVal hasta As Double, ByVal cantidad As Integer) On Error GoTo hay_error Dim i As Integer Dim num As String Dim rs As DAO.Recordset 'Retiro la numeracion...

Es conveniente que suba imágenes de sus tablas para responderle con base en esta información y no entrar en ejemplos y teoría sin fundamentos.

¿Y cuál es el error?

Puede utilizar lo siguiente: 1. Crear un campo texto en el formulario (Continuo) para llevar la numeración consecutiva. A este cuadro de texto le asigna en Origen de datos como muestra la figura Copie este código en un módulo a nivel del formulario...

El problema está en que no hace referencia al cuadro de lista, sino al campo del "nombre_prestamista" del detalle del formulario. Pruebe con este código Private Sub Cuadro_combinado47_AfterUpdate() Me.FilterOn = False Me.Filter = "nombre_prestamista...