Error 3061. Pocos parámetros. Se esperaba 1

Estoy haciendo cambios en la web, y me encuentro con este problema en los desplegables:

Esto es donde falla:

Estoy revisando y haciendo pruebas, pero no doy con el error. He leído que puede ser que el campo no exista, pero he comprado ese campo, y sí existe.

Si hay alguien que me pueda echar un cable, y necesita más información, que me diga.

Respuesta
1 
Option Compare Database
Public cmbCategoria As New FindAsYouTypeCombo
Public cmbCliente As New FindAsYouTypeCombo
Public cmbAno As New FindAsYouTypeCombo
Public cmbTrimestre As New FindAsYouTypeCombo
Private Sub Form_Load()
cmbCategoria.InitalizeFilterCombo Me.cc, "Categoría", FromBeginning, True, True
cmbCliente.InitalizeFilterCombo Me.apcc, "Cliente", FromBeginning, True, True
cmbAno.InitalizeFilterCombo Me.acc, "Año", FromBeginning, True, True
cmbTrimestre.InitalizeFilterCombo Me.tcc, "Expr1", FromBeginning, True, True
End Sub
Private Sub Etiqueta30_Click()
Dim MiApro As String
Dim MiCategoría As String
Dim MiAño As String
Dim MiTrimestre As String
Dim miFiltro As String
Dim MiArgumento As String
Dim MisOpciones As String
miFiltro = "" 'Inicializamos el filtro
If Me.Apro.Value <> 1 Then
    If IsNull(Me.apcc.Value) Then
        MsgBox "Debe seleccionar el proveedor", vbCritical, "ERROR"
        Exit Sub
    End If
        MiApro = Me.apcc.Value
        miFiltro = miFiltro & " AND " & "[Código2]='" & MiApro & "'"
End If
If Me.Categoría.Value <> 1 Then
    If IsNull(Me.cc.Value) Then
        MsgBox "Debe seleccionar la categoría", vbCritical, "ERROR"
        Exit Sub
    End If
        MiCategoría = Me.cc.Value
        miFiltro = miFiltro & " AND " & "[Código1]='" & MiCategoría & "'"
End If
If Me.Año.Value <> 1 Then
    If IsNull(Me.acc.Value) Then
        MsgBox "Debe seleccionar el año", vbCritical, "ERROR"
        Exit Sub
    End If
    MiAño = Me.acc.Value
    miFiltro = miFiltro & " AND " & "[Año]='" & MiAño & "'"
End If
If Me.Trimestre.Value <> 1 Then
    If IsNull(Me.tcc.Value) Then
        MsgBox "Debe seleccionar el trimestre", vbCritical, "ERROR"
        Exit Sub
    End If
    MiTrimestre = Me.tcc.Value
    miFiltro = miFiltro & " AND " & "[Trimestre]='" & MiTrimestre & "'"
End If
'------------ CAPTION DEL INFORME -----------------------------------------
MiArgumento = " - "
If Me.Año.Value = 2 Then
    MiArgumento = MiArgumento & Me.acc & " "
    MisOpciones = MisOpciones & "a"
End If
If Me.Trimestre.Value = 2 Then
    MiArgumento = MiArgumento & "T" & Me.tcc & " "
    MisOpciones = MisOpciones & "t"
End If
If Me.Categoría.Value = 2 Then
    MiArgumento = MiArgumento & DLookup("Categoría", "01-A Categorías", "[Código de la categoría]='" & Me.cc.Value & "'") & " "
    MisOpciones = MisOpciones & "c"
End If
If Me.Apro.Value = 2 Then
    If Me.Categoría.Value = 2 Then
        MiArgumento = MiArgumento & "/ " & DLookup("Cliente", "01-B Clientes", "ID_Cliente='" & Me.apcc.Value & "'") & " "
    Else
        MiArgumento = MiArgumento & DLookup("Cliente", "01-B Clientes", "ID_Cliente='" & Me.apcc.Value & "'") & " "
    End If
    MisOpciones = MisOpciones & "p"
End If
MiArgumento = MiArgumento & MisOpciones & Len(MisOpciones)
'---------------------------------------------------------------------------
If Len(miFiltro) > 0 Then
        miFiltro = Right(miFiltro, Len(miFiltro) - 4)
End If
If miFiltro = "" Then
        DoCmd.OpenReport "04-A Ingresos", acViewPreview
Else
        DoCmd.OpenReport "04-A Ingresos", acViewPreview, , miFiltro, , MiArgumento
End If
DoCmd.Close acForm, Me.Name
End Sub
Private Sub Categoría_AfterUpdate()
    Select Case Me.Categoría.Value
        Case 1
            Me.cc.Visible = False
        Case 2
            Me.cc.Visible = True
    End Select
    Me.cc.Value = ""
End Sub
Private Sub cc_AfterUpdate()
Me.apcc.Value = ""
Me.apcc.Requery
Me.apcc.Visible = False
Me.Apro.Value = 1
Me.acc.Value = ""
Me.acc.Requery
Me.acc.Visible = False
Me.Año.Value = 1
Me.tcc.Value = ""
Me.tcc.Requery
Me.tcc.Visible = False
Me.Trimestre.Value = 1
End Sub
Private Sub Apro_AfterUpdate()
    Dim miRowSce As String
    If Me.Apro = 1 Then
        Me.apcc.Visible = False
    Else
        Me.apcc.Visible = True
        Me.apcc = Null 'No es necesario, pero si haces pruebas a lo loco agradecerás que te vaya borrando el valor seleccionado.
        If Me.Categoría = 1 Then
            miRowSce = "SELECT [02- Diálogo IVA repercutido].Cliente, [02- Diálogo IVA repercutido].ID_Cliente" _
                & " FROM [02- Diálogo IVA repercutido]" _
                & " GROUP BY [02- Diálogo IVA repercutido].Cliente, [02- Diálogo IVA repercutido].ID_Cliente"
        Else
            miRowSce = "SELECT [02- Diálogo IVA repercutido].Cliente, [02- Diálogo IVA repercutido].ID_Cliente, [02- Diálogo IVA repercutido].[Código de la categoría]" _
                & " FROM [02- Diálogo IVA repercutido]" _
                & " GROUP BY [02- Diálogo IVA repercutido].Cliente, [02- Diálogo IVA repercutido].Id_Cliente," _
                & " [02- Diálogo IVA repercutido].[Código de la categoría]" _
                & " HAVING ((([02- Diálogo IVA repercutido].[Código de la categoría])=[Forms].[03-E Dialogo IVA repercutido (Clientes)].[cc].[value]))"
        End If
    End If
    Me.apcc.RowSource = miRowSce
    Me.apcc.Requery
    cmbCliente.RowSource = miRowSce
End Sub
Private Sub apcc_AfterUpdate()
Me.acc.Value = ""
Me.acc.Requery
Me.acc.Visible = False
Me.Año.Value = 1
Me.tcc.Value = ""
Me.tcc.Requery
Me.tcc.Visible = False
Me.Trimestre.Value = 1
End Sub
Private Sub Año_AfterUpdate()
    Dim miRowSce As String
    If Me.Año = 1 Then
        Me.acc.Visible = False
    Else
        Me.acc.Visible = True
        Me.acc = Null 'No es necesario, pero si haces pruebas a lo loco agradecerás que te vaya borrando el valor seleccionado.
        If Me.Categoría = 1 And Me.Apro = 1 Then
            miRowSce = "SELECT Year([Fecha de la factura]) AS Año " _
                & "FROM [01-E Compras] " _
                & " GROUP BY Year([Fecha de la factura]);"
        End If
        If Me.Categoría = 2 And Me.Apro = 1 Then
            miRowSce = "SELECT Year([Fecha de la factura]) AS Año, [01-E Compras].Código " _
                & "FROM [01-E Compras]" _
                & "GROUP BY Year([Fecha de la factura]), [01-E Compras].Código" _
                & " HAVING ((([01-E Compras].Código)=[Forms].[03-E Dialogo IVA repercutido (Clientes)].[cc].[Value]));"
        End If
        If Me.Categoría = 1 And Me.Apro = 2 Then
            miRowSce = "SELECT Year([Fecha de la factura]) AS Año, [01-E Compras].ID_Cliente " _
                & "FROM [01-E Compras]" _
                & "GROUP BY Year([Fecha de la factura]), [01-E Compras].ID_Cliente" _
                & " HAVING ((([01-E Compras].ID_Cliente)=[Forms].[03-E Dialogo IVA repercutido (Clientes)].[apcc].[value]));"
        End If
        If Me.Categoría = 2 And Me.Apro = 2 Then
            miRowSce = "SELECT Year([Fecha de la factura]) AS Año, [01-E Compras].ID_Cliente, [01-E Compras].Código " _
                & "FROM [01-E Compras]" _
                & "GROUP BY Year([Fecha de la factura]), [01-E Compras].ID_Cliente, [01-E Compras].Código" _
                & " HAVING ((([01-E Compras].ID_Cliente)=[Forms].[03-E Dialogo IVA repercutido (Clientes)].[apcc].[Value]) AND (([01-E Compras].Código)=[Forms].[03-E Dialogo IVA repercutido (Clientes)].[cc].[Value]));"
        End If
    End If
    Me.acc.RowSource = miRowSce
    Me.acc.Requery
    cmbAno.RowSource = miRowSce
End Sub
Private Sub acc_AfterUpdate()
Me.tcc.Value = ""
Me.tcc.Requery
Me.tcc.Visible = False
Me.Trimestre.Value = 1
End Sub
Private Sub Trimestre_AfterUpdate()
    Dim miRowSce As String
    If Me.Trimestre = 1 Then
        Me.tcc.Visible = False
    Else
        Me.tcc.Visible = True
        Me.tcc = Null 'No es necesario, pero si haces pruebas a lo loco agradecerás que te vaya borrando el valor seleccionado.
        If Me.Categoría = 1 And Me.Apro = 1 And Me.Año = 1 Then
            miRowSce = "SELECT [01-D Trimestres].Trimestre & ' trimeste' AS Expr1," _
                & " [01-D Trimestres].[Código del trimestre] FROM [01-D Trimestres] INNER JOIN [01-E Compras]" _
                & " ON [01-D Trimestres].[Código del trimestre] = [01-E Compras].Trimestre" _
                & " GROUP BY [01-D Trimestres].Trimestre & ' trimeste', [01-D Trimestres].[Código del trimestre]" _
                & " ORDER BY [01-D Trimestres].[Código del trimestre]"
        End If
        If Me.Categoría = 2 And Me.Apro = 1 And Me.Año = 1 Then
            miRowSce = "SELECT [01-D Trimestres].Trimestre & ' trimeste' AS Expr1," _
                & " [01-D Trimestres].[Código del trimestre] FROM [01-D Trimestres] INNER JOIN [01-E Compras]" _
                & " ON [01-D Trimestres].[Código del trimestre] = [01-E Compras].Trimestre" _
                & " WHERE ((([01-E Compras].Código)=[Forms].[03-E Dialogo IVA repercutido (Clientes)].[cc].[Value]))" _
                & " GROUP BY [01-D Trimestres].Trimestre & ' trimeste', [01-D Trimestres].[Código del trimestre]" _
                & " ORDER BY [01-D Trimestres].[Código del trimestre]"
        End If
        If Me.Categoría = 1 And Me.Apro = 2 And Me.Año = 1 Then
            miRowSce = "SELECT [01-D Trimestres].Trimestre & ' trimeste' AS Expr1," _
                & " [01-D Trimestres].[Código del trimestre] FROM [01-D Trimestres] INNER JOIN [01-E Compras]" _
                & " ON [01-D Trimestres].[Código del trimestre] = [01-E Compras].Trimestre" _
                & " WHERE ((([01-E Compras].ID_Cliente)=[Forms].[03-E Dialogo IVA repercutido (Clientes)].[apcc].[Value]))" _
                & " GROUP BY [01-D Trimestres].Trimestre & ' trimeste', [01-D Trimestres].[Código del trimestre]" _
                & " ORDER BY [01-D Trimestres].[Código del trimestre]"
        End If
        If Me.Categoría = 2 And Me.Apro = 2 And Me.Año = 1 Then
            miRowSce = "SELECT [01-D Trimestres].Trimestre & ' trimeste' AS Expr1," _
                & " [01-D Trimestres].[Código del trimestre] FROM [01-D Trimestres] INNER JOIN [01-E Compras]" _
                & " ON [01-D Trimestres].[Código del trimestre] = [01-E Compras].Trimestre" _
                & " WHERE ((([01-E Compras].ID_Cliente)=[Forms].[03-E Dialogo IVA repercutido (Clientes)].[apcc].[Value]) AND (([01-E Compras].Código)=[Forms].[03-E Dialogo IVA repercutido (Clientes)].[cc].[Value]))" _
                & " GROUP BY [01-D Trimestres].Trimestre & ' trimeste', [01-D Trimestres].[Código del trimestre]" _
                & " ORDER BY [01-D Trimestres].[Código del trimestre]"
        End If
        If Me.Categoría = 1 And Me.Apro = 1 And Me.Año = 2 Then
            miRowSce = "SELECT [02-B Trimestre & Repercutido].Expr1," _
                & " [02-B Trimestre & Repercutido].[Código del trimestre], Year([Fecha de la factura]) AS Expr2" _
                & " FROM [02-B Trimestre & Repercutido]" _
                & " GROUP BY [02-B Trimestre & Repercutido].Expr1, [02-B Trimestre & Repercutido].[Código del trimestre]," _
                & " Year([Fecha de la factura])" _
                & " HAVING (((Year([Fecha de la factura]))=[Forms].[03-E Dialogo IVA repercutido (Clientes)].[acc].[Value]))" _
                & "ORDER BY [02-B Trimestre & Repercutido].[Código del trimestre], Year([Fecha de la factura]);"
        End If
        If Me.Categoría = 2 And Me.Apro = 1 And Me.Año = 2 Then
            miRowSce = "SELECT [01-D Trimestres].[Trimestre] & ' trimeste'" _
                & " AS Expr1, [01-D Trimestres].[Código del trimestre], Year([Fecha de la factura]) AS Año" _
                & " FROM [01-D Trimestres] INNER JOIN [01-E Compras]" _
                & " ON [01-D Trimestres].[Código del trimestre] = [01-E Compras].Trimestre" _
                & " WHERE ((([01-E Compras].Código)=[Forms].[03-E Dialogo IVA repercutido (Clientes)].[cc].[Value]))" _
                & " GROUP BY [01-D Trimestres].[Trimestre] & ' trimeste'," _
                & " [01-D Trimestres].[Código del trimestre], Year([Fecha de la factura])" _
                & " HAVING (((Year([Fecha de la factura]))=[Forms].[03-E Dialogo IVA repercutido (Clientes)].[acc].[Value]))" _
                & " ORDER BY [01-D Trimestres].[Código del trimestre], Year([Fecha de la factura]);"
        End If
        If Me.Categoría = 1 And Me.Apro = 2 And Me.Año = 2 Then
            miRowSce = "SELECT [01-D Trimestres].[Trimestre] & ' trimeste'" _
                & " AS Expr1, [01-D Trimestres].[Código del trimestre], Year([Fecha de la factura]) AS Año" _
                & " FROM [01-D Trimestres] INNER JOIN [01-E Compras]" _
                & " ON [01-D Trimestres].[Código del trimestre] = [01-E Compras].Trimestre" _
                & " WHERE ((([01-E Compras].ID_Cliente)=[Forms].[03-E Dialogo IVA repercutido (Clientes)].[apcc].[Value]))" _
                & " GROUP BY [01-D Trimestres].[Trimestre] & ' trimeste'," _
                & " [01-D Trimestres].[Código del trimestre], Year([Fecha de la factura])" _
                & " HAVING (((Year([Fecha de la factura]))=[Forms].[03-E Dialogo IVA repercutido (Clientes)].[acc].[Value]))" _
                & " ORDER BY [01-D Trimestres].[Código del trimestre], Year([Fecha de la factura]);"
        End If
        If Me.Categoría = 2 And Me.Apro = 2 And Me.Año = 2 Then
            miRowSce = "SELECT [01-D Trimestres].[Trimestre] & ' trimeste'" _
                & " AS Expr1, [01-D Trimestres].[Código del trimestre], Year([Fecha de la factura]) AS Año" _
                & " FROM [01-D Trimestres] INNER JOIN [01-E Compras]" _
                & " ON [01-D Trimestres].[Código del trimestre] = [01-E Compras].Trimestre" _
                & " WHERE ((([01-E Compras].ID_Cliente)=[Forms].[03-E Dialogo IVA repercutido (Clientes)].[apcc].[Value]) AND (([01-E Compras].Código)=[Forms].[03-E Dialogo IVA repercutido (Clientes)].[cc].[Value]))" _
                & " GROUP BY [01-D Trimestres].[Trimestre] & ' trimeste'," _
                & " [01-D Trimestres].[Código del trimestre], Year([Fecha de la factura])" _
                & " HAVING (((Year([Fecha de la factura]))=[Forms].[03-E Dialogo IVA repercutido (Clientes)].[acc].[Value]))" _
                & " ORDER BY [01-D Trimestres].[Código del trimestre], Year([Fecha de la factura]);"
        End If
    End If
    Me.tcc.RowSource = miRowSce
    Me.tcc.Requery
    cmbTrimestre.RowSource = miRowSce
End Sub

1 respuesta más de otro experto

Respuesta
2

Diego, con lo que muestras es imposible saber qué está fallando, porque no sabemos el valor que toma la variable miRowSce ni en qué línea de código se genera.

Como sugerencia, para esta y otros errores que tengas, es que te acostumbres a usar las herramientas que incorpora el editor de VBA para depurar el código, como la "ejecución paso a paso", que te permite ir ejecutando el código línea a línea y ver si todo va como debe, analizando si las variables que manejas toman los valores correctos o no...(con dejar el cursor encima de ellas te muestra el valor que tengan en ese momento), la ventana inmediato, donde puedes imprimir el valor de las variables que tengan un valor muy largo (como este caso) ...

A lo que voy, si antes de la línea marcada en amarillo pones:

Debug. Print miRowSce

Y abres la ventana inmediato (con Ctrl+G), verás la SQL que crea tu código y verás si te falla algo (como alguna variable que no cogió el valor adecuado...)

Solucionado. Tenía que cambiar:

[Forms].[03-E Dialogo IVA repercutido (Clientes)].[apcc].[value]

por:

'" & apcc.Value & "'

Y lo mismo para cc y acc.

Mil gracias.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Abrir formulario desde cuadro combinado

Tengo un cuadro combinado que su nombre es cboForms al que le puesto una lista de varios formularios, el nombre de cada formulario es F_Papeleta_de_sitio_2022, F_Papeleta_del_sitio_2023, F_Papeleta_de_sitio_2024, etc me gustaría que al desplegar el...
3 respuestas

Tengo una base de datos en access para cobrar cuotas

En la cual genere formulario que muestra un resumen de las cuotas pagadas ¿Cómo puedo enviar cada formulario por mail?
2 respuestas

¿Se puede compartir base de datos access 2007?

Tengo una pequeña duda. He estado leyendo por foros y otras páginas acerca de la posibilidad de compartir bases de datos, pero en ninguna he visto nada acerca de hacerlo de forma simultanea, es decir, que si yo creo un registro desde un ordenador, el...
2 respuestas

Capacidad de Microsoft Access

Quisiera saber si alguien de ustedes sabe hasta cuantos registros soporta una tabla en una base de datos en Access... Me servirá de mucha la ayuda de alguien...
2 respuestas

Problemas convertir SQL SERVER

Estoy intentando pasar a SQlServer una base de datos de access, lo que hago es utilizar la opción que ofrece Access pero me sale un informe con el "mensaje se paso por alto o fallo la exportación", y lo curioso es que me crea bien la nueva base de...
2 respuestas

¿Cómo puedo imprimir informe y actualizar tabla usando un "botón de comando"?

Quiero saber como hacer para que en una tabla, dónde el valor predeterminado es "N" al hacer clic en el botón de comando, imprima 1 informe y actualice a "S" el valor de la tabla pero si en cambio, ese campo esta con valor "S" no imprima ni actualice...
2 respuestas

Tengo una duda access 2010 Reporte vba

Tengo la siguiente sintaxis para filtrar un reporte pero no se filtra no se que tenga mal. DoCmd.OpenReport "ALLM2CONTEDOR", acViewPreview, "FECHA = #" & Format(Me.FECHAOK, "mm-dd-yyyy") & " # AND CONTENEDOR= " & Me.NUMEROCONTENEDOR.Column(1) & ""...
2 respuestas

Contar los registros en formulario con un valor de cero

Como digo en la pregunta es posible contar los registros con un valos cero, y si es así cual es la instrucción para ello. ¿Algún experto me puede ayudar. A parte de esto cuando quiero ebaular alguna respuesta se produce error no se si les ecurre a...
2 respuestas

Desproteger un rango de celdas en una hoja protegida

Tengo una aplicación donde en una hoja se ponen comentarios automáticos con una macro, pero como hay celdas donde hay fórmulas las tengo bloqueadas y ocultas para que no se borren por error al usarla, tengo puesto el Unprotect en la macro por que si...
4 respuestas

How much does it cost to hire a professional app developer Dubai

Hello! If you have finally decided to have an app for your business, you need to look for a TOP MOBILE APP DEVELOPMENT AGENCY DUBAI. It doesn't matter if you are creating an app from scratch or re-launching the pre-existing one. You need to hire a...
11 respuestas