Unir registros de varias filas en un solo campo si coincide la referencia

No creo que lo pueda hacer con una consulta, preparé este ejemplo con DAO. Utilizo una tabla auxiliar para ingresar el resultado de la concatenación.

TABLAS

FORMULARIO

CÓDIGO DEL BOTÓN Concatenar

Private Sub btnConcatenar_Click()
 On Error GoTo hay_error
  Dim rs1 As DAO.Recordset
  Dim rs2 As DAO.Recordset
  Dim strTecnicas As String
  CurrentDb.Execute "DELETE FROM tblunetecnicas"
  Set rs1 = CurrentDb.OpenRecordset("SELECT tbltecnicas.REF FROM tbltecnicas GROUP BY tbltecnicas.REF ORDER BY tbltecnicas.REF")
  Set rs2 = CurrentDb.OpenRecordset("SELECT * FROM tbltecnicas ORDER BY REF,TECNICAS")
  Do Until rs1.EOF
    strTecnicas = ""
    rs2.MoveFirst
    Do Until rs2.EOF
      If rs2!REF = rs1!REF Then
       If rs2!tecnicas <> "" Then
        strTecnicas = strTecnicas & rs2!tecnicas & "|"
       End If
      End If
      rs2.MoveNext
    Loop
    If strTecnicas <> "" Then
     strTecnicas = Left(strTecnicas, Len(strTecnicas) - 1)
     CurrentDb.Execute "INSERT INTO tblunetecnicas(REF,UNIONTECNICAS) VALUES(" & "'" & rs1!REF & "','" & strTecnicas & "'" & ")"
    End If
    rs1.MoveNext
  Loop
  rs1.Close
  rs2.Close
  Set rs1 = Nothing
  Set rs2 = Nothing
  Me.Requery
hay_error_exit:
    Exit Sub
hay_error:
      MsgBox Err.Number & " " & Err.Description, vbCritical, "Error.."
      Resume hay_error_exit
End Sub

¡Gracias, me ha funcionado correctamente!
De nuevo gracias por ello y que pase un buen día.