Quién sabe como solucionar un error 3075 que tengo en un strSQL?
Hoy vengo a este escenario con una siguiente inquietud.
Tengo un formulario tipo varios elementos - Formulario continuo. Tengo presente en este dos controles
Un cuadro combinado no está ligado con nada del formulario es decir tomé la opción 1. Tengo un botón comando para dar resultado a la consulta.
Elaboré un strSQL asi:
Private Sub Comando27_Click()
Dim strSQL As String
If Not IsNull(Me.cmbbuscar) Then
strSQL = "SELECT CgCmlProductor.NombL1AAP004, "
strSQL = strSQL & "CgCmlProductor.textL1AAP007 , "
strSQL = strSQL & "CgCmlDini.txt_L0INP001, "
strSQL = strSQL & "CgCmlDini.inteL0INP002, "
strSQL = strSQL & "CgCmlDini.dataL0ENP001, "
strSQL = strSQL & "CgCmlDecisMujer.slo_L2IGCP039 "
strSQL = strSQL & "FROM (CgCmlProductor INNER JOIN CgCmlDecisMujer "
strSQL = strSQL & "ON CgCmlProductor.KEYLLAVE = CgCmlDecisMujer.KEYLLAVE) "
strSQL = strSQL & "INNER JOIN CgCmlDini ON CgCmlProductor.KEYLLAVE = CgCmlDini.KEYLLAVE "
strSQL = strSQL & "WHERE CgCmlDecisMujer.slo_L2IGCP039 =" & pbBEdecMj39
Me.RecordSource = strSQL
End If
End Sub
****. En la parte final el valor es lo que me deja una variable pública que obtengo cuando uso
Un control que es el cuadro combinado Me. Cmbbuscar este control es tipo dato texto.
Creo que la parte final esta errada. Porque el sistema cuando le pido arrojar la consulta me envia solicitud de parámetro.
Les agradezco mucho esta ayuda que me puedan brindar frente a este código. Gracias.
Aclaro el valor de pbBEdecMj39 es algo que obtengo de el control Me. Cmbbuscar cuando este después actualiza.