Asignar numero

Ojo, noté que al mandarte la respuesta la página sustituyó las comillas por signos de interrogación, ten cuidado.

Espero poderte ayudar con esta recomendación,
Yo prefiero hacer estas cosas con código, o sea, programar con Visual Basic. Si no tienes mucha experiencia es importante que comiences hacer algunas cosas, con el tiempo adquieres experiencia y los problemas que se nos presentan en las aplicaciones los vamos resolviendo.
Debes colocar el formulario en la vista diseño, ¿selecciona en las propiedades la pestaña? ¿Eventos? (Las propiedades se llaman con el botón que tiene la carpetica con la manito).
El evento del formulario que deberás seleccionar es: Antes de actualizar, el código que puede ayudarte es este:
Private Sub Form_BeforeUpdate(Cancel As Integer)
'Escrito por Pierre García Barre
If Me.Autorizado = -1 Then ' El usuario tildó el recuadro
Dim Mensaje, Estilo, Título, Respuesta, MiCadena 'declara variables
Mensaje = "El registro fue autorizado, desea asignarle número corretalivo?" ' Define el mensaje.
Estilo = vbYesNo + vbCritical + vbDefaultButton2 ' Define los botones.
Título = "Autorizado" ' Define el título.
Respuesta = MsgBox(Mensaje, Estilo, Título) ' Variable que carga el cuadro mesaje para el próximo if
If Respuesta = vbYes Then ' El usuario eligió el botón Sí.
Me.Solicitud = 1
'*****************
If DSum("Cuentadecrédito", "contar") = 0 Then
Me.Crédito = 1
Else
Me.Crédito = DMax("Crédito", "Tabla1") + 1 'Ejecuta una acción, asigna correlativo.
End If
'*****************
Else ' El usuario eligió el botón No.
Me.Solicitud = 1 'Ejecuta otra acción.
Me.Crédito = 0
End If
Else
Me.Solicitud = 1 ' se ejecuta si NO se tildo el campo autorizado
Me.Crédito = 0
End If
End Sub
Yo asumí que el campo que lleva el número correlativo ( al a respuesta si) es Crédito, si es otro lo deberás cambiar.
Asumí también que el campo autorizado es del tipo SI/NO, lo cual permite el recuadro para marcar, si no es así entonces deberás sustituir la línea del primer ?if?, por: [if Me.autorizado=?SI? then], Recuerda que en los campos SI/NO los valores únicos son: Marcado = -1; NO marcado = 0.
Te coloque una breve explicación en cada línea, que consideré conveniente, con el tilde:¿?, para que no afecte el código.
Fíjate entre las líneas encerradas con asteriscos, estoy usando la función Dsum para evaluar, a través de una consulta que la llamo [contar], que a su vez tiene un campo [CuentadeCódigo], para evaluar si la tabla donde se guardan los registros está vacía, o sea vas a agregar el primer registro, este código es necesario ya que la función DMax no funciona correctamente si la primera evaluación es nula, o sea no hay registros en la tabla. Lo que hice fue evaluar esta situación para asignar 1 como primer número del primer registro, por supuesto si marque SI ha Autorizado.
Si me mandas un mail te puedo mandar un archivo con el ejemplo real.

Pierre
Hola nuevamente
Espero te la estés pasando muy bien
Y volviendo a mi pregunta de la asignación del numero o crédito si tu me lo permites me gustaría mandarte mi formulario por mail para que me expliques con el ejemplo real.
Por favor indicame cual es tu mail
Gracias.
mi mail es [email protected]

Te he mandado dos email pero no me has respondido

Lo que yo haría es que en el evento después de actualizar de algún control que tengas le poones lo siguiente
If autorizado=true then
elseif msgbox ("Esta seguro de asignarle el Numero", VbOKCancel)=VbOk then
credito=1
else
end if
La verdad es que no lo probé yo, si tienes algún inconveniente avisame y lo veo de nuevo.
Pero lo que intenta hacer es que si Autorizado es 1 y si(elseIf) le presionas en el cuadro de mensajes ok te cambie el numero de lo contrario(else) no hace nada.