Access - Problemas con stLinkCriteria

Problemas con stLinkCriteria

Publicado por Jose (3 intervenciones) el 08/08/2022 21:12:00

Tengo el siguiente código

Dim Fecha

    Dim stDocName As String

    Dim stLinkCriteria As String

    Dim Mesa As Integer    Fecha = Date

    stDocName = "Comandas"

    stLinkCriteria0 = "[IdPedido] ='" & Me.IdPedido & "'"

    stLinkCriteria1 = "[Mesa] = '" & Me.Mesa & "'"

    stLinkCriteria2 = "[IdEmpleado] = '" & Me.IdEmpleado & "'"

    stLinkCriteria3 = "[Fecha] = " & Fecha & ""

    stLinkCriteria = stLinkCriteria0 & stLinkCriteria1 & stLinkCriteria2 & stLinkCriteria3

    DoCmd.OpenForm stDocName, , , stLinkCriteria

    'MsgBox "stLinkCriteria es :" & stLinkCriteria

Parece que todo se pasa bien según el MsBox, pero cuando intento abrir el formulario me sale el aviso FALTA EL OPERADOR
Donde ewstoy metiendo la pata?
Gracias

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Problemas con stLinkCriteria

Publicado por Anonimo (3397 intervenciones) el 08/08/2022 23:16:46

Inventándome los datos (fecha, empleado, mesa....) y añadiendo las variables que se citan y no están declaradas (stLinkCriteria0 ... stLinkCriteria3) me ofrece este resultado:

stLinkCriteria es :[IdPedido] ='ABC-111'[Mesa] = '22'[IdEmpleado] = 'Rafael'[Fecha] =22/07/2022

Creo que Access espera esto:

stLinkCriteria es :[IdPedido] ='ABC-111' And [Mesa] = 22 And [IdEmpleado] = 'Rafael' And [Fecha] = #07/22/2022#

Pero (suponiendo que los datos de referencia existan (IdPedido, Mesa, idEmpleado):

Dim stDocName As String, stLinkCriteria As String, Mesa As Integer (ojo Mesa <> Me.Mesa)

    stDocName = "Comandas"

    stLinkCriteria = "[IdPedido] ='" & Me.IdPedido & "'" ' Se suponne que el idPedido es texto

    stLinkCriteria1 = stLinkCriteria & " And [Mesa] = " & Me.Mesa ' aqui al dato se le supone un numero (fuera comillas simples)

    stLinkCriteria = stLinkCriteria & " And [IdEmpleado] = '" & Me.IdEmpleado & "'" ' Se suponne que el ID es texto (Pepe ... Luis...)

    stLinkCriteria = stLinkCriteria & " And [Fecha] = " & CDbl(Date) ' en formato numerico no le afecta la configuracion regional

    DoCmd.OpenForm stDocName, , , stLinkCriteria

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar