Un formulario donde pueda matricularme una vez y la vez inscribirme en muchos curso
Quiero hacer un formulario donde se pueda matricular a un alumno solo una vez, pero inscribirse en muchos curso sin repetir su código.
ya he elaborado dos tablas (matricula y inscripción) y la tengo relacionada, ¿como puedo inscribirme muchas vez en un solo a matricula? E intentado pero no logro almacenar las inscripciones
1 Respuesta
En Mi Foro, en el apartado "Manual de Access", creo que esa es la contestación a tu pregunta. Si algo te falta o no entiendes, coméntalo y lo solucionamos.
Gracias:
Ya solucione el problema anterior, pero tu foro esta bueno.
Tengo otra dificultad. en la siguiente programación no se como solucionarlo.
Private Sub Form_BeforeInsert(Cancel As Integer)
Dim AñoActual As String
Dim NumAsignado As Long
Const Ceros As String = "0000"
AñoActual = Format(Now, _
"yyyy") & "/"
AñoActual = Nz(DMax( _
"IdDoc", _
"tblDocAdminE", _
"IdDoc like '" _
& AñoActual & "*'"), _
AñoActual & Ceros)
NumAsignado = Val(Right(AñoActual, Len(Ceros)))
NumAsignado = NumAsignado + 1
Nº_Entrada = Format(NumAsignado, Ceros)
IdDoc = Left(AñoActual, 5) & Format(NumAsignado, Ceros)
End Sub
esta programación funciona bien y el resultado es el siguiente.
en el text nº entrada esta bien aparece 1 - 2- 3 ...etc..
en el text idDoc aparece 2012 / 0001 ...... 2012 /0002 .......etc de acuerdo al primer text
el problema es que quiero que aparezca 0001 / 2012 ...... 0002 / 2012 ... etc.
como puedo hacer para hacer este cambio
Te agradezco de antemano..
Pues sin entrar a valorar el código, que si dices que te funciona pues perfecto.
Cambia el orden: IdDoc = Left(AñoActual, 5) & Format(NumAsignado, Ceros) por
ldDoc = Format (NumAsignado, Ceros) & Left (AñoActual, 5)
Con eso te quedaría 0001 2012 /, ya que la barra se la agregas en el código a la fecha.
Quítasela, cambiando : AñoActual = Format(Now, "yyyy") & "/" por
AñoActual = Format (Now, "yyyy") y se la añadimos posteriormente, con lo que quedaría así:
ldDoc = Format (NumAsignado, Ceros) & "/" & Left (AñoActual, 5)
Gracias experto:
hice tus recomendaciones pero aparece un mensaje EL INDICE O LA CLAVE NO PUEDE CONTENER UN VALOR NULL.
Cada vez que realizo un modificación al código deja de correr o creo duplicados.
Te agradecería si me das otra alternativa.
Siempre que el resultado sea 0001 / 2012....... 0002 / 2012.,...etc.. pero cuando termina el año debe reiniciarse ejemplo.. 0001 / 2013......etc.
el anterior funciona pero al revés cualquier modificación deja de funcionar.
Mil gracias por tu tiempo
El error que te da, en principio nada tiene que ver con el autonumérico. Tienes algún campo como clave principal que dejas en blanco.
De todas formas voy a preparar un ejemplo y lo dejare en El Foro.
