jerrmex respondió:
Dim var As Integer Dim vCadena As String '[1]busco cual es el último numero de ficha capturado en la tabla, entendiendo que txt_Ficha es la caja de texto donde tecleas la Ficha. var = Nz(DMax("[Ficha]", "Empleado", "[Ficha] = " & txt_Ficha & ""))...