Cordial saludo agradezco por favor la colaboración que me puedan brindar con el siguiente inconveniente, estoy realizando la siguiente consulta en Access con VBA:
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT [Max(Observaciones)] as Saldo_anterior " & _
"FROM Concepto WHERE Concepto.IdCtaCobro IN (SELECT TOP 1 [RecibodeIngresos.IdCtaCobro] " & _
"FROM RecibodeIngresos WHERE Númdedocidentif= '" & [Forms]![frm_ProveedoresRecibodeingresosconcepto]![Númdedocidentif] & "'")
If Not rs.EOF Then
MsgBox "Hola el registro es: " & rs.Fields(0)
End If
Al ejecutar el código me muestra el siguiente error:
Se ha producido el error ‘3075’ en tiempo de ejecución:
Falta ), ] o un elemento en la expresión de consulta ‘Concepto.IdCtaCobro IN (SELECT TOP 1 RecibodeIngresos.IdCtaCobro FROM RecibodeIngresos WHERE Númdedocidentif=’0402’’.
Para arreglar el inconveniente he modificado la consulta de la siguiente manera removiendo los paréntesis cuadrados [], quedando la consulta así:
Set rs = CurrentDb.OpenRecordset("SELECT Max(Observaciones) as Saldo_anterior " & _
"FROM Concepto WHERE Concepto.IdCtaCobro IN (SELECT TOP 1 RecibodeIngresos.IdCtaCobro " & _
"FROM RecibodeIngresos WHERE Númdedocidentif= '" & [Forms]![frm_ProveedoresRecibodeingresosconcepto]![Númdedocidentif] & "'")
Pero desafortunadamente el mismo error 3075 persiste
Muchas gracias por la colaboración que me puedan brindar