Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3505 / 9994 ←次へ　｜　前へ→
【9749】Re:新規作成フォームにOnMouseDownプロシジャを発生させる
質問  たくゾ〜  - 07/8/13(月) 12:00 -
引用なし
パスワード
   ▼小僧 さん：

たびたびすみません。
たくゾ〜です。

>> ３）新規フォームの詳細で、マウスボタンを押した場所に、ラベルを移動する
>についてはご自身で工夫されてみて下さい。
>　　　　.InsertLines 6, "Msgbox ""座標X："" & x & ""　座標Y："" & y "
>　　　　.InsertLines 7, ""

お教えいただきましたコードを、

.InsertLines 6, "Me.L001.Left = X"
.InsertLines 7, "Me.L001.Top = Y"

としまして、画面上は動く事を確認したのですが、
終了して、再度フォームを開くと、元の位置になってしまいます。

フォームのＳａｖｅをしても保存されません。
デザインビューで開き直してから　値を代入するとエラーになります。

移動したラベルを　固定したいのですが良い方法はございますでしょうか。
946 hits
▼ 【9742】フォームを新規作成し、フォーム詳細のOnMouseDownにイベントプロシージャを... たくゾ〜 07/8/8(水) 22:53 質問[未読]
【9743】新規作成フォームにOnMouseDownプロシジャを... 小僧 07/8/9(木) 10:49 回答[未読]
【9746】Re:新規作成フォームにOnMouseDownプロシジ... たくゾ〜 07/8/9(木) 23:49 お礼[未読]
【9749】Re:新規作成フォームにOnMouseDownプロシジ... たくゾ〜 07/8/13(月) 12:00 質問[未読]≪
【9752】Re:新規作成フォームにOnMouseDownプロシジ... 小僧 07/8/13(月) 19:10 回答[未読]
【9753】Re:新規作成フォームにOnMouseDownプロシジ... たくゾ〜 07/8/13(月) 21:58 お礼[未読]
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3505 / 9994 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078201
(SS)C-BOARD v3.8 is Free