Access - jorge A

   
Vista:

jorge A

Publicado por ayuda asignar valores  (1 intervención) el 05/02/2010 13:30:51
Asigno una consulta a un cuadro de texto y a un cuadro combinado

Private Sub Combi_tema_BeforeUpdate(Cancel As Integer)
Dim SQLcc As String
Dim SQLindi As String

SQLindi = "Select DISTINCT indi_tema FROM IndiceTema WHERE tema_cas=" & Me.Combi_tema.Value
Me.indi_tema.Value = SQLindi *

SQLcc = "Select DISTINCT [IndiceSubtema].[subtema_cas] FROM IndiceSubtema, IndiceTema, TABLAS WHERE [TABLAS].[cod_subtema]=[IndiceSubtema].[cod_subtema] and [Tablas].cod_tema=" & Me.indi_tema
Me.Combi_subtema.RowSource = SQLcc

etc...

End Sub

En la linea marcada con * me da un error, no asigna el valor a indi_tema, q falla? la consulta solo devuelve un valor.

otra pregunta más, como hago para que el combinado sea independiente, es decir, que no modifique la base de datos al seleccionar un valor pero que también cambie al cambiar de registro?, no se mucho de esto..
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder