こんばんは若槻です。足元だったり足の上だったりにチビ猫が
寝てくれるのはあったかくて嬉しいんですが動きたい時に中々
（心情的に）動きがたいのが難点だと思います。


さて、本日は政治に関して思ったことをつらつら述べているので
見たくない方はバック推奨ですﾉｼ

こんばんは若槻です。あまりに寒くてにゃんこの体温が身にしみます(笑


さて、やることいっぱいなのには代わりがないのですが、
ありすぎて次はどれに手をつければいいのか分からない状況です。
とりあえず最初は人にあげるものですね。

やらなくちゃいけないもの→やりたいもの

うん、頑張れ私。


サイト拍手くださった方々、ありがとうございます！



～以下自分用メモ～
1.友人への小説*2
2.すがたくさんへのお礼絵
---------------
3.「僕らの世界」続き
4.謝の過去話続き
5.新作
6.動画

こんばんは若槻です。よーーーやく最近ずっと取り掛かってた
作成物が完成しました！

で、何作ってたかって言うと、雪瀬さんの誕生日プレゼントです。
実はずーっと前（約1年前）に言われてて、この間誕生日来ちゃったって言う←

凄い時間かかりました（主に私の集中力の彷徨い具合で）。
本当は小説で作るつもりだったんですが、
「待たせちゃったしFlashで頑張ろう！」　
とか思ったのが失敗の元だったかもしれませんorz
個人的には頑張ったんですが、今更気付きました。

Flashだと見られない場合あるやん（゜д゜）

と。うちはソフトあるからそのままで平気だけど駄目な人は
フラッシュファイルって見られませんよね……。
うわ、見られなかったらごめんなさい雪瀬さん！

駄目だった時は書き直します。うん。任せて（（



さて、あと書かなきゃいけないのは2本です。
友人ズの誕生日プレゼント！
こっちは小説じゃ～（－ω－）｛小説で2次創作は久しぶりだな

あ、あと5月誕生日の子達のイラストも構想で
止まっちゃってるから描かなきゃΣ


以下拍手返信です。

こんばんは若槻です。充実はしていたけどやるべきことに
ノータッチな自分に気分はorzです。


先週は時間がなくなってしまったので終わりませんでした。
今週は先々をすでにメモったのでさくさく進むはず……と
高をくくっていたのですが、気が付くと一日集中していたものが
作らなきゃいけないものじゃなかったという結果←


ちなみに作っていたのは……引く人がいる可能性があるので
追記に格納。個人的にはそんなにおかしなものではないけど
人によっては駄目な類かもです？

あ、別に作ってたもの載せてるわけじゃありません。
完成品は何ヵ月後かになると思いますﾉｼ



ブログ拍手くださった方々、ありがとうございます。

こんばんは若槻です。きりちゃんのところにぽんと投下してきた
VBAの修正版が出来たから載っけてみます。


「Access VBA　マウスホイール制御」
○やりたいこと
→フォームでマウスホイールをするとレコードが移動してしまうので
　それをなくす

○ソース

Dim bbb As Integer

'=============================================
' フォームの読み込み時
'=============================================
Private Sub Form_Load()
  bbb = 0
End Sub

☆やっていること
フォームの読み込み時に変数ｂｂｂに0を入れる


'=============================================
'レコード移動時
'=============================================
Private Sub Form_Current()
　If Me.NewRecord Then Exit Sub
　
　Me.[コントロール名].SetFocus
　Me.Dirty = True
End Sub

☆やっていること
レコード移動時の処理。
　1.次のレコードが新しいレコードの時は作用しない
　2.どれでもいいからコントロールを選んでおく。これを選ばないとエラーになる
　3.「Dirty」はカレントレコードの変更の有無を表す。今はTrueなので変更有り　
　　　→変更有り＝更新前処理が入る


'=============================================
' マウスホイールを動かした時
'=============================================
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
  bbb = Count
End Sub

☆やっていること
マウスホイールが動かされたらｂｂｂにCountの値を入れる
（Countの値＝ホイールされて動こうとしているレコードの数）


'=============================================
' レコードに変更があった時
'=============================================
Private Sub Form_BeforeUpdate(Cancel As Integer)
  If bbb <> 0 Then
    Cancel = True
    bbb = 0
  End If
End Sub

☆やっていること
ｂｂｂの値が0でない時にCancelをTrueにして処理をキャンセルする。
※1ここでキャンセルされると移動もキャンセルになる
※2判断は必ず「0でない」にする。ｂｂｂの値はマイナス値にもなる
※3ｂｂｂの値を初期化しておく
（上のレコード移動時の処理を超えると自動的に入ってくる）


＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
◎修正前
→前回はString型で文字を入れる感じでやっていたのですが、
　思いっきりホイールすると動いてしまったので数値型にしました。
　（きりちゃん報告。自分で確認しろよって話ですね分かりまｓ）

細かい原理は理解しきれてませんが多分一気にやるとどっかしらで
値が入らなくなるんだと思います。
というわけで数値型でFA。

※注意※
上のソースは若槻が触る分には特に問題はありませんでしたが、
プログラムによっては不具合を起こす可能性、動作しない可能性も
あります。その場合にこちらで責任を取ることは出来ませんので
ご了承ください。

---

＝2013/07/04　追記＝
VBAやPC系で学んだことをまとめる備忘録ブログを
作りました。


若風備忘録


内容は徐々に増えますが、こちらの内容もそちらに
入っています。

この記事に関しては説明等の内容は特に変わりません。

---

以下拍手返信です。
サイト拍手含め名無しの拍手の方々もありがとうございます！