ACCESS VBAにてマウスポインターの形状を変更するには

通常の砂時計などは、用意されたプロパティ・メソッドで変更可能

例）

DoCmd.Hourglass True    '砂時計ポインターにする
Screen.MousePointer = 9 '左右の矢印にする

上記以外の形状に変更したい場合

Win32 APIを使用

General部分にAPI関数を定義（モジュールに書く場合はPublicを使用）

Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" _
　　(ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function SetCursor Lib "user32" _
　　(ByVal hCursor As Long) As Long

ハンドカーソルの定数を定義

Private Const IDC_HAND = 32649& 'ハンドカーソル

マウスカーソルの戻り値（形状）格納用

Private mCursor As Long

フォーム起動時に、ハンドカーソルを取得

Private Sub Form_Load(Cancel As Integer)
　　'マウスポインターを手の形にするためのマウスカーソルを取得
　　mCursor = LoadCursor(0&, IDC_HAND)
End Sub

マウスオーバー時、マウスポインターをハンドカーソルにしたいコントロールの「マウスボタン移動時」イベントに以下の処理を記述

Private Sub Label_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
　　'ラベル上でマウスを手の形にする
　　Call SetCursor(mCursor)
End Sub

Archive等の個人用pstを切断しようとすると、「この操作は失敗しました。 オブジェクトが見つかりませんでした。」というエラーが出て切断できない。

【環境】
OS：Windows XP
Office：2000

【解決方法】
HKEY_USERS内にWindows Messaging Subsystem\Profiles\Microsoft Outlook Internet Settingsを探す。
その中に古い個人用フォルダーのエントリを含むのレジストリ キーを見つけて、キー、右側のウィンドウでを右クリックして [ 削除 ] をクリックします

「半角/全角」キーを押すとバッククォートが入力される。
その場合、キー配列がおかしくなっているので、
Alt+半角/全角キーで切り替えることが可能。

System.Net.WebClientクラスを使用してファイルをダウンロードします

//参照を追加
using System.Net;

・単純なダウンロード

public static void getFile(string uri, string filename)
{
    WebClient wc = new WebClient();
    wc.DownloadFile(uri, filename);
    wc.Dispose();
}

・バイト配列でダウンロード

public static byte[] getFile(string uri)
{
    byte[] data;

    //WebClientの作成
    WebClient wc = new WebClient();
    //ファイルをダウンロードする
    try
    {
        data = wc.DownloadData(uri);

        //後始末
        wc.Dispose();

        if (data.Length < 2500)
        {
            return null;
        }
    }
    catch
    {
        data = null;
    }

    return data;
}

・バイト配列から書き込み保存

public static void SaveFile(byte[] data, string filename)
{
    FileStream fsTo = new FileStream(filename, FileMode.Create, FileAccess.Write);

    fsTo.Write(data, 0, data.Length);

    fsTo.Close();
}

クリップボードにコピー

[control name].SetFocus
[control name].SelStart = 0
[control name].SelLength = Len([control name])
DoCmd.RunCommand acCmdCopy

クリップボードからペースト

DoCmd.RunCommand acCmdPaste

※貼り付けたデータをすぐに加工等する場合は、Me.Refreshなどでデータを一旦反映させることが必要である。