☆ぺんろぐ！

amazonでキン肉マン38巻と一緒に
ゆでたまごの嶋田さん著書の
「火事場の仕事力」も購入〜。

ジャンプ連載時代の話などもあって、
結構おもしろかったかも。

---

火事場の仕事力 (ワニブックスPLUS新書) (2012/04/07) ゆでたまご、嶋田 隆司 他 商品詳細を見る

1. 2012/05/06(日) 18:49:23|
2. キン肉マン
4. | コメント：0

きょうから５月！


とくに深い意味なく
このブログに4月アクセスされた
使用ブラウザ(UserAgent)を円グラフで作成。
ひさびさにエクセルでグラフとかつかった。

相変わらずIEがつよい。
(IEだけで内訳ると
IE9 68% IE8 26% IE7 4% IE6 1%)

Android,iPhoneはPC版表示をした場合しかカウントしてないと思う、
実際はスマートフォン版表示がもっとあると思う。

1. 2012/05/01(火) 15:32:58|
2. WEBデザイン
4. | コメント：0

Wiiで発売するドラゴンクエスト10の発売日は
2012年8月2日発売に決定だそうです。
思ったよりはやい！


オンラインゲームなので、月額料金が必要。
【オンラインサービス利用料】
30日間利用券 1,000円/ Wiiポイント
60日間利用券 1,950円/ Wiiポイント
90日間利用券 2,900円/ Wiiポイント
（３キャラクターまで作成可能）

さらに「キッズタイム」として無料でプレイできる時間もあるらしい。

発売ハードを所有していないので、ちょっと残念な感じですが、
PVみた感じだと内容は、面白そうですね♪


↓↓↓ドラクエに備えてWii買う人増えそう♪今1万8千ぐらいみたい。

Wii本体 (シロ) Wiiリモコンプラス2個、Wiiスポーツリゾート同梱 (2011/06/23) Nintendo Wii 商品詳細を見る

1. 2012/04/29(日) 20:52:13|
2. ゲーム
4. | コメント：0

この前の金曜日阪神戦がなかったので、
なんとなくドラえもんみてましたが、
今ってオープニング曲なく始まって
エンディングテーマにメインテーマをもってきているみたい。

曲名は「夢をかなえてドラえもん」

ドラえもんの曲といえば「あんなこといいな」だけど
いまのテーマも子ども向けな感じやし、
なかなかいいな〜とおもった(^o^)
っていうか2，3日この曲が頭から離れない。。


太鼓の達人の動画。

夢をかなえてドラえもん (2007/07/04) ドラっ子隊、水田わさび mao 他 商品詳細を見る

1. 2012/04/29(日) 14:41:42|
2. 音楽
4. | コメント：0

今回はAccessフォームからメールを送信する方法。
別メールソフトを経由して送信するという形になります。
今回はOfficeに入ってる、「Outlook」を使います。

・Outlookでメールが送受信できる状態にする。
インストールされているけど、使用していない場合は
「ファイル」→「アカウント情報」→「アカウントの追加」でメールを設定しておく。


・Outlookのライブラリを入れる。
VisualBasicの方のウィンドウにあるメニューの
ツール　→　参照設定　の順で選択。
「Microsft Outlook xx Object Library」 (xxはバージョン)
にチェックを入れる。

標準モジュールにメール送信のVBAを記入。

---

Option Compare Database

'アウトルックを起動
Public Sub MailOpen()
　　Dim MSol As Long
　　MSol = Shell("outlook", vbNormalFocus)
　　If MSol = 0 Then MsgBox "起動失敗"
End Sub


'メール送信のソース
Public Sub MailSend()
　　Dim Apl As Outlook.Application
　　Dim Mli As Outlook.MailItem
　　Set Apl = CreateObject("Outlook.Application")
　　Set Mli = Apl.CreateItem(ItemType:=olMailItem)

　　With Mli
　　　　.To = Forms("メールフォーム").Controls("宛先")
　　　　.Subject = Forms("メールフォーム").Controls("件名")
　　　　.Body = Forms("メールフォーム").Controls("本文")
　　　　.Importance = olImportanceNormal
　　　　On Error Resume Next
　　　　.Send
　　　　On Error GoTo 0
　　End With

　　Set Mli = Nothing
　　Set Apl = Nothing
End Sub

'メール内容を送信と同時にテーブルに記録
'※追加クエリ等使って、ログを残す場合のみ
Public Sub MailLog()
　　DoCmd.SetWarnings False '←警告メッセージを非表示設定
　　DoCmd.OpenQuery "メール送信記録クエリ"
　　DoCmd.SetWarnings True '←警告メッセージを表示設定に戻す
End Sub

---

後は、フォーム作成で
メール送信フォームを作って
送信ボタンのソースに

MailOpen
MailSend
MailLog

みたいな感じで記述したら
Accessフォームを利用したメールが送信できるように。

---

Microsoft Office Access2010 通常版 (2010/06/17) Windows 商品詳細を見る

1. 2012/04/28(土) 18:55:22|
2. Access
4. | コメント：0

Accessで作成して完成時など、
アクセスのデフォルトで表示するリボンやメニュー
テーブルやクエリが表示するナビゲーションウィンドウ。
これらの表示を隠したいということはよくありますね。

以下は、フォームに「リボン表示ボタン」というボタンを作ったケースです。
オンとオフの2種類です。

---

Private Sub リボン表示ボタン_Click()
　　'リボン表示
　　DoCmd.ShowToolbar "Ribbon", acToolbarYes

　　'ナビゲーションウィンドウを表示する
　　DoCmd.SelectObject acForm, "", True
End Sub


Private Sub リボン非表示ボタンClick()
　　'リボン非表示
　　DoCmd.ShowToolbar "Ribbon", acToolbarNo

　　'ナビゲーションウィンドウを非表示にする
　　DoCmd.SelectObject acForm, "", True
　　DoCmd.RunCommand acCmdWindowHide
End Sub

---

フォームのロード時からリボンを非表示にする場合は、、

---

Private Sub Form_Load()
　　'リボン非表示
　　DoCmd.ShowToolbar "Ribbon", acToolbarNo

　　'ナビゲーションウィンドウを非表示にする
　　DoCmd.SelectObject acForm, "", True
　　DoCmd.RunCommand acCmdWindowHide
End Sub

---

ちなみにAccess2010/2007の起動時の設定で
最初に開くフォームを指定する場合は、
ファイル→オプション→カレントデータベースの
「フォームの表示」で最初に開くフォームを選ぶ。
ステータスバーの表示・非表示もここで設定できる。

---

Microsoft Office Access2010 通常版 (2010/06/17) Windows 商品詳細を見る

1. 2012/04/28(土) 17:55:06|
2. Access
4. | コメント：0

マクロやVBAでクエリを開く際に、
「○件追加していいですか？」とか、はいいいえのメッセージボックスを
非表示にする方法。

---

DoCmd.SetWarnings False　　'警告メッセージを非表示設定
DoCmd.OpenQuery "クエリ名"
DoCmd.SetWarnings True　　'警告メッセージを表示設定に戻す

---

非表示設定にして、クエリを実行し、
実行後は、元に戻すという流れです。

1. 2012/04/28(土) 17:31:08|
2. Access
4. | コメント：0