コンプライアンスについてちょっとだけ。

いつもの実験ページに書いてみました。

コンプライアンス？

しばらく様子見ですね。

色々と腹がたつ。

月曜日に作業があるから金曜日中に届くように荷物の発送を頼んだのに、
「集荷が来なくて当日午前着となりそうです。」って・・・。

発送までがお前の仕事なんだから、責任持って最後までちゃんと仕事しろ！
と言っても効果のない人間に言うだけもう無駄。
なので言いません。
もういい加減諦めました。

自分の関わる分は仕方ないので自分で全て把握するようにします。
なんのためにその人間にお金払ってるんでしょうね。
なんて非効率！

それにしてもこの不景気にそんな人間よく雇っておけるな。
ある意味スゴイですね。
不景気なんだから、いくらでも補充できそうですが（笑）。

まぁ、それはそれとして。

今在籍している部署の営業と管理職、
あとは所謂お偉いさん方だけが使用可能なグループウェアが導入されて暫く経ちました。
営業と事務方の連携に一切使えないそんなモノを使うことに意味があるのか？
と常々感じていますが、
そのグループウェアにブログが追加されたそうです。
アンタらそれは自己満足するための道具かぃ（嘲笑）。
ログインできる人間だけに通知がある、というのも意味不明。
そういう「こっそり」体質が意味不明。
情報共有ってどの口が言うのか意味不明。

表現が意味不明ですね。

ダメなことを上塗りしてどうするんですかねぇ。

ちなみにそのブログFC2なんですよ（劇爆）
部内向けのブログくらい、作ったらどうよ？
どーせトラックバックも必要ないし、掲示板レベルなんだし。
というか、いずれ誰も読まなくなるかな（笑）。

Micky ユチョンくらいに髪が伸び・・・

スタッフリポート5/24の薔薇をもったユチョンに負けないくらい髪が伸びまして・・・。

暑い！（笑）

切りゃあいいんですが・・・。

Bigeastからのお知らせメールにもあるように、
ジュンスも順調に回復しているようですね(^^

5人揃って元気に踊る姿が見られるかな？

でもまぁ、ちゃんと完治させて欲しいですね。

※敬称略

Access コントロール名に変数組合せ

ex.
対象となるコントロールがtest1からtest10まであるとして、
その値の取得とか。

Dim i as Long
Dim a as Variant

For i = 1 to 10
a = Me("test" & Trim(Str(i)))
Next

みたいな。

Access vba コントロールを変数に

Dim nowControl as Control
Dim testword as String

Set nowControl = Forms![フォーム名].[コントロール名]

testword = "test"

'例えばフォーム[フォーム名]のコントロール[コントロール名]にtestwordを表示させたい
nowControl.Value = testword

さやか

どうでもいいんですが（笑）。

今の会社に名前が「さやか」というヒトが何人かいます。
その世代の流行だったんですかね（笑）。

どうでもいい話でした（笑）。

SEO また消えた！（笑）

ここ数日、検索の動性を見守っている社内研修,社員研修,企業研修,集合研修って結局どうよ？ですが、
また検索結果に表示されなくなりました（笑）。

ん～、どういう風に判断されてるのかな～。

違反はしていないハズなんですけどね(^^;

SEO つまり検索ロボットは・・・。

最近このブログでも話題にしている社内研修について書いた自作ページですが、
2009年5月14日9時時点で、
Google検索のキーフレーズを

社内研修　企業研修

とか、

社内研修　集合研修

などとして検索すると、上位（1位もあり!）表示されるようになりました。
Googleだけですけどね（笑）。

ページを見てもらえればわかりますが、
レイアウトもとくに拘らず、
html初心者用教本の最初のほうに書かれているような、
基本タグ＋基本記述順を守って書いているワケです。

ロボットにとっても解読しやすい構造のほうがいい、
ってことですよね？(^^;

ちなみにこんなページです。
社内研修,社員研修,企業研修,集合研修って結局どうよ？

SEO対策などを謳ったWEBページ

朝から、なんだと。
いいんです。
ちょっと適当に　SEO　無料　とかいうキーフレーズで検索し、
ちょっと適当にページを開けてみて思ったのです。

SEO対策の薀蓄を述べているのに、
その記事の記載が何年何月の記事なのか、
さっぱり書いてないってどうよ？　と（笑）。

TVXQ 東方神起 28th Single 「Stand by U」

Stand by U
7月1日発売みたですね。
Bigeastからはまだメール来ませんが、
これまでのBigeast限定盤がBigeast盤になるからといって、
Bigeastからお知らせのメールが来なくなる、なんてことはないですよね(^^;

コンサートではもう歌ってるのかな？
東京ドームでの公演では、発売日も過ぎていることだし、聴けますかねぇ。

Hero ジェジュンのCrying

最近"O"のライブCDからソロ曲をリピートして聴いていたりします。

ジェジュンのCryingが耳に残りますね。

ハングルは切れ端しか聴き取れないんですけどね（笑）。

ハジマ～♪　とか　クロンゴヤ～♪　とか（笑）。

カタカナでしか書けませーん（汗）。


※敬称略

検索結果に復活（笑）

先日、検索結果にまったく表示をされなくなった！
と書いた件ですが、

社内研修　って

などのキーフレーズで検索すると表示されるようになりました！
なんだったんでしょうね？（笑）

Google社員の方が見てくれて、とか・・・？



社内研修,社員研修,企業研修,集合研修って結局どうよ？

Access Requeryした際のリストボックス内カーソルの位置再現

フォーム上でのカーソルの移動について --Access Club VBA Tips フォーラムが参考になる気がします。

TVXQ 「東方神起、日本デビュー４年目でプラチナ達成」だ！

やりましたねぇ。
中央日報に記事が載っています。
直リンクしちゃって平気かな？

東方神起、日本デビュー４年目でプラチナ達成

ファンとしては嬉しい限りです。

7月5日が待ち遠しいですよ。

Accessリストボックスで複数値を選択後Update（ADO PostgreSQL ファイルDNS）

リストボックスはプロパティからその他＞複数選択で拡張を選択しました。

Private Sub コマンド5_Click()

Dim element

Dim sql As String
Dim cn As New ADODB.Connection


'** ODBC 接続
Set cn = CreateObject("ADODB.Connection")
cn.Open "filedsn=test;uid=test;pwd=test;database=test"
cn.CursorLocation = 3

For Each element In lstTest.ItemsSelected
sql = "update test2 set time = '20090511 14:46:00' where id = " & lstTest.ItemData(element)
cn.Execute sql
'** イミディエイトウィンドウに出力する
Debug.Print lstTest.ItemData(element)
MsgBox lstTest.ItemData(element)
Next

'** レコードセットクローズ
cn.Close

End Sub

Accessリストボックスにテーブル内データを表示（ADO PostgreSQL ファイルDNS）

自分なりにロード

Private Sub form_load()

Dim sql As String 'sql直接書いてるからこれ要らないじゃん。
Dim lstsouce As String
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

'** ODBC 接続
Set cn = CreateObject("ADODB.Connection")
cn.Open "filedsn=test;uid=test;pwd=test;database=test"
cn.CursorLocation = 3

'** レコードセットオープン
Set rs = cn.Execute("select * from test2")

'** レコード処理
Do Until rs.EOF
Debug.Print rs!id & " => " & rs!Name & " => " & rs!Time
lstsource = lstsource & ";" & rs!id & ";" & rs!Name & ";" & rs!Time & vbCrLf
rs.MoveNext
Loop

'** レコードセットクローズ
rs.Close

cn.Close

'** 頭の;を取って・・・
lstsource = Replace(lstsource, ";", "", , 1)
Debug.Print lstsource

'** リストボックスlstTestに表示
lstTest.RowSourceType = "Value List"
lstTest.BoundColumn = 1
lstTest.ColumnCount = 3
lstTest.RowSource = lstsource

End Sub

違法性はまったくないのに・・・。

つい先日、
社内研修,社員研修,企業研修,集合研修って結局どうよ？
というページを作りましたが、
何に触れたのか、
ページタイトルをすべて入力してGoogle検索しても
検索一覧に表示されなくなりました（笑）。

どんな基準で判断してるんですかねぇ・・・。

社内研修って単語をごく一般的なルールで14個配置してあっただけなんですけど。
誰かが通知でもしたのかな？

まぁアドレスとタイトルちょっと変更してやれば・・・（笑）。

Xiah ジュンちゃん意外と元気そう？

東方神起オフィシャルウェブサイトにメンバーの様子がアップされていますね。

STAFF REPORT：東方神起 4th LIVE TOUR 2009～The Secret Code～

怪我をしたという報告が5/4にはありましたから、
5/5の画像を見る限り、怪我が酷くて動けないとか、
そんなことはないようですね。

今日は埼玉スーパーアリーナですねぇ。

無理しない程度に頑張れ！ジュンス！！


※敬称略

奥さんからメールで

うちのコに似たキーカバーが売り切れてた、というメールがありました(笑)

Xiah 相変わらず心配ですね、ジュンスくん

埼玉はバラード増えたりするんでしょうかね。
今回自分は埼玉公演は、Bigeast枠で応募は忘れてたんです（アホぅ）
一般ではハズレまくりでして・・・。
職を失うかも、な危機的状態だったので、つい、ね（笑）。

ジュンスくん、ショックで食事がのどを通らなかったら筋肉落ちるし、
元気になんでも食べていたら、贅肉ついてポニョっとしやすいし・・・。
体形・体力維持は大丈夫かな？とか要らんことを心配してみたり。

どっちにしても、あんま無理すんなー！

こんな文章を書いてみた。

「社内研修,社員研修,企業研修,集合研修って結局どうよ？」

http://www.geocities.jp/caos_seven_soul/column/in-house_training.html

ブログじゃなくて、htmlのページとして書いたのは、

SEO的にどうなるのかなぁ、なんて思ったから（笑）。

SEOブログパーツ？

まぁ、なんでも試すのはタダってことで。

http://onlyone.blogdeco.jp/

どんなキーワードで検索されているかを集計してくれるそうですよ？

IE7の普及率って

どうなんでしょう？普及率。

つまるところ、vistaの普及率ってことですかね？

Windows7ではIE8が標準ですか？（笑）

 

IE7以前のスタイルシート解釈を

いつ頃から無視してもいいかなぁ、と

ちょっと横着なことを考えたまでです。

Xiah ジュンス君・・・怪我って。

東方神起のジュンスがリハーサルで怪我をしたそうです。
5/4、5/5のコンサートでは、車椅子でステージに参加したそうですね。

踊れないシア。
本人が一番悔しいでしょう。

無理をせず、
きちんと治してほしいですね。


※敬称略

IE8をインストールしてみました。

ただインストールしただけですが。

いままでCSSハックなどで苦労したIE独自のスタイルシート解釈が
ようやくWEB標準に準拠しましたね。

ホームページ作成の前任者が
自分の使っているPCの自分が使っているブラウザでのみでしかレイアウト確認を行っていない、
というずさんさが余分な仕事を作ってくれます。

はぁ・・・・。