Estoy haciendo una aplicación en access 2010
Mi aplicación es para llevar un control de expedientes turnados a diferentes abogados. Mi duda es debido a que cada que llega un expediente hay que registrarlo mediante un formulario, sin embargo, la idea es que se le asigne un abogado en automático, mismos que deberán estar registrados de un total de 6 abogados en un campo de la tabla. Es decir, cada que se registre un expediente, en automático se le asigne un abogado de un listado de 6 de forma consecutiva, y cuando se llegue al sexto abogado, regrese otra vez al primero y así siga la secuencia, pero no tengo la menor idea de cómo hacerlo.
4 Respuestas
Supongamos que la tabla Abogados tiene como campos Idabogado y abogado. Crea otra igual y llámala por ejemplo Otra. Y supongamos que el formulario tiene un cuadro de texto Abogado. En el evento Al activar registro del formulario escribe
If DCount("abogado", "otra") = 0 Then
DoCmd.RunSQL "insert into otra select * from abogados"
Form.Refresh
End If
En el evento Al recibir el enfoque del cuadro de texto Abogado del formulario escribe
Abogado = DLast("abogado", "otra")
También puedes poner Dfirst, como quieras
Y en el evento Al perder el enfoque del mismo cuadro de texto
DoCmd.RunSQL "delete * from otra where abogado=forms!clientes!abogado"
Te aconsejaría que en las propiedades del cuadro de texto Abogado lo pusieras como Bloqueado Sí
Supongamos que la tabla Clientes tiene los campos Idcliente, NombreCliente,..., Abogado. Hay un dato que no va a cambiar en un registro, que será el nombre del cliente. Por tanto lo de:
Abogado = DLast("abogado", "otra")
Lo puedes poner en el evento Después de actualizar del cuadro de texto NombreCliente. Pero acuérdate de poner en las propiedades del cuadro de texto Abogado, en la solapa Datos
Habilitado Si
Bloqueado Si
Si hicieras clic sobre ese cuadro de texto, como está bloqueado no te cambia nada.
Abel: Si tienes un Identificador correlativo en la Tabla de Abogados, no debe entrañar una dificultada grande.
Miras el Ultimo Registro de la Tabla en la que asignas, si vas adjudicando del 1 al 6 por ejemplo, si el último es N el siguiente será N+1, y cuando el último se 6 el siguiente será 1. Saludos >> Jacinto
Abel: Con el fin de cerrar temas, y dado que ésta pregunta me sale pendiente te ruego la valores o en su caso me comentes si necesitas información adicional. Saludos >> Jacinto
Yo lo haría así:
1º/ Supongo que tendrás una tabla con tus 2 abogados. Añádele un campo de tipo Sí/No, por ejemplo Asignado, y marcas la del primero.
2º/ En tu formulario, en el evento "Despues de actualizar" de tu campo expediente, programaría un código que haga lo siguiente:
a) Mire si hay un abogado asignado o no. En caso negativo:
b) Busque en la tabla Abogados cuál es el que tiene la casilla Asignado en verdadero.
c) Le desmarque la casilla, busque el siguiente registro (o el primero si llegas al final), le marque la casilla y lo asigne
La idea es parecida a la que se explica aquí: http://siliconproject.com.ar/neckkito/index.php/component/content/article/97-ejemplos-explicados/ejemplos-especiales/272-asignar-tareas-equitativamente
Para darte un código que te funcione, necesitaría saber: los nombres y estructura de tus tablas, y los nombres de los controles de tu formulario, si no son los mismos que los de las tablas.
Se me ocurre que crees una tabla temporal con la misma estructura y datos de la lista de abogados. Algo así:
Sub Rellenar_BaseTemporal()
Dim MiBase As Database, TemAbogados As Recordset, Mis_Abogados As Recordset, Registros As Integer
Set MiBase = CurrentDb
Set TemAbogados = dbsCooperativa.OpenRecordset("Tbl_AbogadosTEM", dbOpenDynaset)
Set Mis_Abogados = dbsCooperativa.OpenRecordset("Tbl_Abogados", dbOpenDynaset)
For Registros = 1 To DCount("*", "Tbl_Abogados")
TemAbogados.MoveFirst
Mis_Abogados.MoveFirst
With TemAbogados
.AddNew
!Id_AbogadoTem = Mis_Abogados!Id_Abogado
'aqui el resto de los campos
.Update
.Bookmark = .LastModified
End With
End If
Mis_Abogados.MoveNext
Next
Set MiBase = Nothing
Set TemAbogados = Nothing
Set Mis_Abogados = Nothing
End Sub
En el evento Private Sub Form_Load(), verificar si la tabla temporal aún tiene registros
Private Sub Form_Load()
Dim Registro As Integer
Registro = DCount("*", " Tbl_AbogadosTEM ")
IF Then Registro= 0 Then
Rellenar_BaseTemporal
Else
End If
End Sub()
Antes asignas al control del formulario enlazado con el Id del Abogado el primer registro de la tabla temporal en la propiedad del control Ficha: Datos, Propiedad: Valor predeterminado: =DFirst(Id_Abogado, Tbl_Abogados). Después de llenar un expediente eliminar ese registro con el evento: Private Sub cmb_Id_Abogado _AfterUpdate(), claro suponiendo que el nombre del combo sea cmb_Id_Abogado
Private Sub cmb_Id_Abogado _AfterUpdate()
Dim MiBase As Database, TemAbogados As Recordset
Set MiBase = CurrentDb
Set TemAbogados = dbsCooperativa.OpenRecordset("Tbl_Abogados", dbOpenDynaset)
TemAbogados.MoveFirst
With TemAbogados
.Delete
End With
Set MiBase = Nothing
Set TemAbogados = Nothing
End Sub
Icue: De las respuestas que hemos proporcionado a ésta pregunta, la que veo más adecuada es la tuya.No obstante si un usuario pulsa accidentalmente en el TextBox de Abogado, parece que anulará el anterior y adjudicará uno nuevo. Quizá sería bueno introducir algún elemento de sondeo en el que asegure que si ya hay un Abogado en ese registro, no lo reemplace.Que te parece?. Saludos >> Jacinto - Jacinto Trillo Jareño