Autocompletar un campo en formulario
Hola, te comento la situación que tengo.
He realizado un formulario de carga de datos.
Entre las tablas que este formulario requiere hay dos que son las que me interesan en este caso: "Partidos" y "Regiones"
La tabla Partidos contiene: ID, NOMBRE y IDREGION (id de la tabla Región)
La tabla Regiones contiene: ID y NOMBRE
Varios partidos conforman una región y eso está expresado en el campo IDREGION.
Ahora bien, a mi me interesa que cuando se seleccione un partido en el formulario, automáticamente se complete el cuadro que corresponde a la región.
Yo he podido lograr que apareciera el nombre de la región correspondiente al partido seleccionado, el tema es que hay casos en que el partido es (Indeterminado) en el que quiero que me deje seleccionar una región cualquiera. El campo IDREGION que se corresponde con el id del partido (Indeterminado) está lógicamente vacío.
Lo que hice, mediante VBA, fue esto, probar con un if, pero no funcionó
Private Sub Partido_AfterUpdate()
If [Partido] = "Indeterminado" Then
Me.RS.RowSource = "SELECT regiones.Id, regiones.region FROM regiones ORDER BY [region]"
Else
Me.RS.RowSource = "SELECT regiones.Id, partidos.id, regiones.region FROM regiones INNER JOIN partidos ON regiones.id=partidos.idregion where (((partidos.Id) =Formularios![notas nuevas]![Partido]))"
Me.RS.Requery
Me.RS.SetFocus
Me.RS.Dropdown
End If
End Sub
Se te ocurre porque puede ser o como puedo solucionarlo.
Gracias y saludos
He realizado un formulario de carga de datos.
Entre las tablas que este formulario requiere hay dos que son las que me interesan en este caso: "Partidos" y "Regiones"
La tabla Partidos contiene: ID, NOMBRE y IDREGION (id de la tabla Región)
La tabla Regiones contiene: ID y NOMBRE
Varios partidos conforman una región y eso está expresado en el campo IDREGION.
Ahora bien, a mi me interesa que cuando se seleccione un partido en el formulario, automáticamente se complete el cuadro que corresponde a la región.
Yo he podido lograr que apareciera el nombre de la región correspondiente al partido seleccionado, el tema es que hay casos en que el partido es (Indeterminado) en el que quiero que me deje seleccionar una región cualquiera. El campo IDREGION que se corresponde con el id del partido (Indeterminado) está lógicamente vacío.
Lo que hice, mediante VBA, fue esto, probar con un if, pero no funcionó
Private Sub Partido_AfterUpdate()
If [Partido] = "Indeterminado" Then
Me.RS.RowSource = "SELECT regiones.Id, regiones.region FROM regiones ORDER BY [region]"
Else
Me.RS.RowSource = "SELECT regiones.Id, partidos.id, regiones.region FROM regiones INNER JOIN partidos ON regiones.id=partidos.idregion where (((partidos.Id) =Formularios![notas nuevas]![Partido]))"
Me.RS.Requery
Me.RS.SetFocus
Me.RS.Dropdown
End If
End Sub
Se te ocurre porque puede ser o como puedo solucionarlo.
Gracias y saludos
1 Respuesta
Respuesta de luis45ccs
1