he declarado una variable pública en un módulo independiente. cuando
activo una determinada opcion del cuadro combinado del formulario A
esta variable toma el valor 1 y cuando activo una determinada opción
del cuadro combinado del formulario B la misma variable toma el valor
2. ahora nos vamos al formulario C donde tengo el siguiente código
Private Sub Form_Activate()

elect = "SELECT [productora].[NOMBRE_PRODUCTORA],
[rodaje].[IDRODAJE]," & _
" [rodaje].[IDPRODUCT etc. etc"

rom = " FROM productor etc. etc."

If RecordSource_rodaje3 = 1 Then

here = ""

Else: RecordSource_rodaje3 = 2

here = " WHERE rodaje.IDPRODUCTORA='" &
[Forms]![productora2]![IDPRODUCTORA] & "'"

End If

rder = " ORDER BY [rodaje].[FECHA] DESC , [rodaje].[PRODUCCION]"

fin = ";"

Me.RecordSource = elect + rom + here + rder + fin

End Sub

lo que pasa entonces es que si RecordSource_rodaje3=1 todo marcha bien
y si RecorSource_rodaje3=2 me aparece el mensaje error 2001 ha
cancelado la operación anterior y se pone amarilla la línea
Me.RecordSource = elect + rom + here + rder + fin
os agradecería cualquier ayuda o comentario que me pudiera dar una
solución o una pista.

se me olvidaba decir que lógicamente las variables elect, rom, here,
rder y fin están declaradas en el módulo como debe de ser.

carloszcom***hotmail.com (carlos) wrote in message news:<6cfebb1a.0311250748.3b266fca***posting.google. com>...
> he declarado una variable pública en un módulo independiente. cuando
> activo una determinada opcion del cuadro combinado del formulario A
> esta variable toma el valor 1 y cuando activo una determinada opción
> del cuadro combinado del formulario B la misma variable toma el valor
> 2. ahora nos vamos al formulario C donde tengo el siguiente código
> Private Sub Form_Activate()
>
> elect = "SELECT [productora].[NOMBRE_PRODUCTORA],
> [rodaje].[IDRODAJE]," & _
> " [rodaje].[IDPRODUCT etc. etc"
>
> rom = " FROM productor etc. etc."
>
> If RecordSource_rodaje3 = 1 Then
>
> here = ""
>
> Else: RecordSource_rodaje3 = 2
>
> here = " WHERE rodaje.IDPRODUCTORA='" &
> [Forms]![productora2]![IDPRODUCTORA] & "'"
>
> End If
>
> rder = " ORDER BY [rodaje].[FECHA] DESC , [rodaje].[PRODUCCION]"
>
> fin = ";"
>
> Me.RecordSource = elect + rom + here + rder + fin
>
> End Sub
>
> lo que pasa entonces es que si RecordSource_rodaje3=1 todo marcha bien
> y si RecorSource_rodaje3=2 me aparece el mensaje error 2001 ha
> cancelado la operación anterior y se pone amarilla la línea
> Me.RecordSource = elect + rom + here + rder + fin
> os agradecería cualquier ayuda o comentario que me pudiera dar una
> solución o una pista.

se me olvidaba decir que lógicamente las variables elect, rom, here,
rder y fin están declaradas en el módulo como debe de ser.

carloszcom***hotmail.com (carlos) wrote in message news:<6cfebb1a.0311250748.3b266fca***posting.google. com>...
> he declarado una variable pública en un módulo independiente. cuando
> activo una determinada opcion del cuadro combinado del formulario A
> esta variable toma el valor 1 y cuando activo una determinada opción
> del cuadro combinado del formulario B la misma variable toma el valor
> 2. ahora nos vamos al formulario C donde tengo el siguiente código
> Private Sub Form_Activate()
>
> elect = "SELECT [productora].[NOMBRE_PRODUCTORA],
> [rodaje].[IDRODAJE]," & _
> " [rodaje].[IDPRODUCT etc. etc"
>
> rom = " FROM productor etc. etc."
>
> If RecordSource_rodaje3 = 1 Then
>
> here = ""
>
> Else: RecordSource_rodaje3 = 2
>
> here = " WHERE rodaje.IDPRODUCTORA='" &
> [Forms]![productora2]![IDPRODUCTORA] & "'"
>
> End If
>
> rder = " ORDER BY [rodaje].[FECHA] DESC , [rodaje].[PRODUCCION]"
>
> fin = ";"
>
> Me.RecordSource = elect + rom + here + rder + fin
>
> End Sub
>
> lo que pasa entonces es que si RecordSource_rodaje3=1 todo marcha bien
> y si RecorSource_rodaje3=2 me aparece el mensaje error 2001 ha
> cancelado la operación anterior y se pone amarilla la línea
> Me.RecordSource = elect + rom + here + rder + fin
> os agradecería cualquier ayuda o comentario que me pudiera dar una
> solución o una pista.

se me olvidaba decir que lógicamente las variables elect, rom, here,
rder y fin están declaradas en el módulo como debe de ser.

carloszcom***hotmail.com (carlos) wrote in message news:<6cfebb1a.0311250748.3b266fca***posting.google. com>...
> he declarado una variable pública en un módulo independiente. cuando
> activo una determinada opcion del cuadro combinado del formulario A
> esta variable toma el valor 1 y cuando activo una determinada opción
> del cuadro combinado del formulario B la misma variable toma el valor
> 2. ahora nos vamos al formulario C donde tengo el siguiente código
> Private Sub Form_Activate()
>
> elect = "SELECT [productora].[NOMBRE_PRODUCTORA],
> [rodaje].[IDRODAJE]," & _
> " [rodaje].[IDPRODUCT etc. etc"
>
> rom = " FROM productor etc. etc."
>
> If RecordSource_rodaje3 = 1 Then
>
> here = ""
>
> Else: RecordSource_rodaje3 = 2
>
> here = " WHERE rodaje.IDPRODUCTORA='" &
> [Forms]![productora2]![IDPRODUCTORA] & "'"
>
> End If
>
> rder = " ORDER BY [rodaje].[FECHA] DESC , [rodaje].[PRODUCCION]"
>
> fin = ";"
>
> Me.RecordSource = elect + rom + here + rder + fin
>
> End Sub
>
> lo que pasa entonces es que si RecordSource_rodaje3=1 todo marcha bien
> y si RecorSource_rodaje3=2 me aparece el mensaje error 2001 ha
> cancelado la operación anterior y se pone amarilla la línea
> Me.RecordSource = elect + rom + here + rder + fin
> os agradecería cualquier ayuda o comentario que me pudiera dar una
> solución o una pista.

se me olvidaba decir que lógicamente las variables elect, rom, here,
rder y fin están declaradas en el módulo como debe de ser.

carloszcom***hotmail.com (carlos) wrote in message news:<6cfebb1a.0311250748.3b266fca***posting.google. com>...
> he declarado una variable pública en un módulo independiente. cuando
> activo una determinada opcion del cuadro combinado del formulario A
> esta variable toma el valor 1 y cuando activo una determinada opción
> del cuadro combinado del formulario B la misma variable toma el valor
> 2. ahora nos vamos al formulario C donde tengo el siguiente código
> Private Sub Form_Activate()
>
> elect = "SELECT [productora].[NOMBRE_PRODUCTORA],
> [rodaje].[IDRODAJE]," & _
> " [rodaje].[IDPRODUCT etc. etc"
>
> rom = " FROM productor etc. etc."
>
> If RecordSource_rodaje3 = 1 Then
>
> here = ""
>
> Else: RecordSource_rodaje3 = 2
>
> here = " WHERE rodaje.IDPRODUCTORA='" &
> [Forms]![productora2]![IDPRODUCTORA] & "'"
>
> End If
>
> rder = " ORDER BY [rodaje].[FECHA] DESC , [rodaje].[PRODUCCION]"
>
> fin = ";"
>
> Me.RecordSource = elect + rom + here + rder + fin
>
> End Sub
>
> lo que pasa entonces es que si RecordSource_rodaje3=1 todo marcha bien
> y si RecorSource_rodaje3=2 me aparece el mensaje error 2001 ha
> cancelado la operación anterior y se pone amarilla la línea
> Me.RecordSource = elect + rom + here + rder + fin
> os agradecería cualquier ayuda o comentario que me pudiera dar una
> solución o una pista.

se me olvidaba decir que lógicamente las variables elect, rom, here,
rder y fin están declaradas en el módulo como debe de ser.

carloszcom***hotmail.com (carlos) wrote in message news:<6cfebb1a.0311250748.3b266fca***posting.google. com>...
> he declarado una variable pública en un módulo independiente. cuando
> activo una determinada opcion del cuadro combinado del formulario A
> esta variable toma el valor 1 y cuando activo una determinada opción
> del cuadro combinado del formulario B la misma variable toma el valor
> 2. ahora nos vamos al formulario C donde tengo el siguiente código
> Private Sub Form_Activate()
>
> elect = "SELECT [productora].[NOMBRE_PRODUCTORA],
> [rodaje].[IDRODAJE]," & _
> " [rodaje].[IDPRODUCT etc. etc"
>
> rom = " FROM productor etc. etc."
>
> If RecordSource_rodaje3 = 1 Then
>
> here = ""
>
> Else: RecordSource_rodaje3 = 2
>
> here = " WHERE rodaje.IDPRODUCTORA='" &
> [Forms]![productora2]![IDPRODUCTORA] & "'"
>
> End If
>
> rder = " ORDER BY [rodaje].[FECHA] DESC , [rodaje].[PRODUCCION]"
>
> fin = ";"
>
> Me.RecordSource = elect + rom + here + rder + fin
>
> End Sub
>
> lo que pasa entonces es que si RecordSource_rodaje3=1 todo marcha bien
> y si RecorSource_rodaje3=2 me aparece el mensaje error 2001 ha
> cancelado la operación anterior y se pone amarilla la línea
> Me.RecordSource = elect + rom + here + rder + fin
> os agradecería cualquier ayuda o comentario que me pudiera dar una
> solución o una pista.

se me olvidaba decir que lógicamente las variables elect, rom, here,
rder y fin están declaradas en el módulo como debe de ser.

carloszcom***hotmail.com (carlos) wrote in message news:<6cfebb1a.0311250748.3b266fca***posting.google. com>...
> he declarado una variable pública en un módulo independiente. cuando
> activo una determinada opcion del cuadro combinado del formulario A
> esta variable toma el valor 1 y cuando activo una determinada opción
> del cuadro combinado del formulario B la misma variable toma el valor
> 2. ahora nos vamos al formulario C donde tengo el siguiente código
> Private Sub Form_Activate()
>
> elect = "SELECT [productora].[NOMBRE_PRODUCTORA],
> [rodaje].[IDRODAJE]," & _
> " [rodaje].[IDPRODUCT etc. etc"
>
> rom = " FROM productor etc. etc."
>
> If RecordSource_rodaje3 = 1 Then
>
> here = ""
>
> Else: RecordSource_rodaje3 = 2
>
> here = " WHERE rodaje.IDPRODUCTORA='" &
> [Forms]![productora2]![IDPRODUCTORA] & "'"
>
> End If
>
> rder = " ORDER BY [rodaje].[FECHA] DESC , [rodaje].[PRODUCCION]"
>
> fin = ";"
>
> Me.RecordSource = elect + rom + here + rder + fin
>
> End Sub
>
> lo que pasa entonces es que si RecordSource_rodaje3=1 todo marcha bien
> y si RecorSource_rodaje3=2 me aparece el mensaje error 2001 ha
> cancelado la operación anterior y se pone amarilla la línea
> Me.RecordSource = elect + rom + here + rder + fin
> os agradecería cualquier ayuda o comentario que me pudiera dar una
> solución o una pista.

se me olvidaba decir que lógicamente las variables elect, rom, here,
rder y fin están declaradas en el módulo como debe de ser.

carloszcom***hotmail.com (carlos) wrote in message news:<6cfebb1a.0311250748.3b266fca***posting.google. com>...
> he declarado una variable pública en un módulo independiente. cuando
> activo una determinada opcion del cuadro combinado del formulario A
> esta variable toma el valor 1 y cuando activo una determinada opción
> del cuadro combinado del formulario B la misma variable toma el valor
> 2. ahora nos vamos al formulario C donde tengo el siguiente código
> Private Sub Form_Activate()
>
> elect = "SELECT [productora].[NOMBRE_PRODUCTORA],
> [rodaje].[IDRODAJE]," & _
> " [rodaje].[IDPRODUCT etc. etc"
>
> rom = " FROM productor etc. etc."
>
> If RecordSource_rodaje3 = 1 Then
>
> here = ""
>
> Else: RecordSource_rodaje3 = 2
>
> here = " WHERE rodaje.IDPRODUCTORA='" &
> [Forms]![productora2]![IDPRODUCTORA] & "'"
>
> End If
>
> rder = " ORDER BY [rodaje].[FECHA] DESC , [rodaje].[PRODUCCION]"
>
> fin = ";"
>
> Me.RecordSource = elect + rom + here + rder + fin
>
> End Sub
>
> lo que pasa entonces es que si RecordSource_rodaje3=1 todo marcha bien
> y si RecorSource_rodaje3=2 me aparece el mensaje error 2001 ha
> cancelado la operación anterior y se pone amarilla la línea
> Me.RecordSource = elect + rom + here + rder + fin
> os agradecería cualquier ayuda o comentario que me pudiera dar una
> solución o una pista.

se me olvidaba decir que lógicamente las variables elect, rom, here,
rder y fin están declaradas en el módulo como debe de ser.

carloszcom***hotmail.com (carlos) wrote in message news:<6cfebb1a.0311250748.3b266fca***posting.google. com>...
> he declarado una variable pública en un módulo independiente. cuando
> activo una determinada opcion del cuadro combinado del formulario A
> esta variable toma el valor 1 y cuando activo una determinada opción
> del cuadro combinado del formulario B la misma variable toma el valor
> 2. ahora nos vamos al formulario C donde tengo el siguiente código
> Private Sub Form_Activate()
>
> elect = "SELECT [productora].[NOMBRE_PRODUCTORA],
> [rodaje].[IDRODAJE]," & _
> " [rodaje].[IDPRODUCT etc. etc"
>
> rom = " FROM productor etc. etc."
>
> If RecordSource_rodaje3 = 1 Then
>
> here = ""
>
> Else: RecordSource_rodaje3 = 2
>
> here = " WHERE rodaje.IDPRODUCTORA='" &
> [Forms]![productora2]![IDPRODUCTORA] & "'"
>
> End If
>
> rder = " ORDER BY [rodaje].[FECHA] DESC , [rodaje].[PRODUCCION]"
>
> fin = ";"
>
> Me.RecordSource = elect + rom + here + rder + fin
>
> End Sub
>
> lo que pasa entonces es que si RecordSource_rodaje3=1 todo marcha bien
> y si RecorSource_rodaje3=2 me aparece el mensaje error 2001 ha
> cancelado la operación anterior y se pone amarilla la línea
> Me.RecordSource = elect + rom + here + rder + fin
> os agradecería cualquier ayuda o comentario que me pudiera dar una
> solución o una pista.

se me olvidaba decir que lógicamente las variables elect, rom, here,
rder y fin están declaradas en el módulo como debe de ser.

carloszcom***hotmail.com (carlos) wrote in message news:<6cfebb1a.0311250748.3b266fca***posting.google. com>...
> he declarado una variable pública en un módulo independiente. cuando
> activo una determinada opcion del cuadro combinado del formulario A
> esta variable toma el valor 1 y cuando activo una determinada opción
> del cuadro combinado del formulario B la misma variable toma el valor
> 2. ahora nos vamos al formulario C donde tengo el siguiente código
> Private Sub Form_Activate()
>
> elect = "SELECT [productora].[NOMBRE_PRODUCTORA],
> [rodaje].[IDRODAJE]," & _
> " [rodaje].[IDPRODUCT etc. etc"
>
> rom = " FROM productor etc. etc."
>
> If RecordSource_rodaje3 = 1 Then
>
> here = ""
>
> Else: RecordSource_rodaje3 = 2
>
> here = " WHERE rodaje.IDPRODUCTORA='" &
> [Forms]![productora2]![IDPRODUCTORA] & "'"
>
> End If
>
> rder = " ORDER BY [rodaje].[FECHA] DESC , [rodaje].[PRODUCCION]"
>
> fin = ";"
>
> Me.RecordSource = elect + rom + here + rder + fin
>
> End Sub
>
> lo que pasa entonces es que si RecordSource_rodaje3=1 todo marcha bien
> y si RecorSource_rodaje3=2 me aparece el mensaje error 2001 ha
> cancelado la operación anterior y se pone amarilla la línea
> Me.RecordSource = elect + rom + here + rder + fin
> os agradecería cualquier ayuda o comentario que me pudiera dar una
> solución o una pista.