Problema con vba y sql
Tengo el siguiente código:
SQL = "SELECT Colaborador FROM Cursos_Comunicados WHERE (Obligatoria)= True AND (Fecha_Comunicacion)= Forms.[Cursos_Comunicados].[Texto50]"
RS = CurrentDb.OpenRecordset(SQL)
RS.MoveFirst
Do While Not RS.EOF
If RS!Colaborador <> var Then
var = RS!Colaborador
DoCmd.OpenReport "Aviso_Visita_Obligatoria", acViewPreview, , Colaborador = var
End If
RS.MoveNext
Loop
Me da el siguiente error: "Se ha producido el error 3061 en tiempo de ejecución. Pocos parámetros, se esperaba 1"
SQL = "SELECT Colaborador FROM Cursos_Comunicados WHERE (Obligatoria)= True AND (Fecha_Comunicacion)= Forms.[Cursos_Comunicados].[Texto50]"
RS = CurrentDb.OpenRecordset(SQL)
RS.MoveFirst
Do While Not RS.EOF
If RS!Colaborador <> var Then
var = RS!Colaborador
DoCmd.OpenReport "Aviso_Visita_Obligatoria", acViewPreview, , Colaborador = var
End If
RS.MoveNext
Loop
Me da el siguiente error: "Se ha producido el error 3061 en tiempo de ejecución. Pocos parámetros, se esperaba 1"
1 respuesta
Respuesta de xavi -ae soft-
1