Sub dispData() Dim db As DAO.Database Set db = CurrentDb Dim rs As DAO.Recordset 'テーブルを指定する Set rs = db.OpenRecordset("T01Prefecture") 'レコードの終了までループする Do Until rs.EOF Debug.Print rs.Fields("表示させたいフィールド名")…

Sub SqlExecute() Dim db As DAO.Database Set db = CurrentDb Dim sql As String sql = "SELECT * FROM T01Prefecture WHERE PREF_CD >= 40" Dim rs As DAO.Recordset Set rs = db.OpenRecordset(sql) Do Until rs.EOF Debug.Print rs.Fields("PREF_CD") & …

いやぁWebのディレクションを初めてちょうど1年くらいたちました。 Webディレクターというより正確には 社内SE兼ショッピングモール担当者兼ディレクター兼コーダーって感じでしょうか？ たくさんの業務をこなしてみて、 見えてきた世界はなかなかにいい眺め…

いきなり空いた時間にサクサクっと 暇つぶし程度にプログラミング。 久々にVBAを使って FIZZBUZZ問題に挑んでみた。 意味は・・・・ まったくもってない！昔、Mさんに教えていただいた、「なべあつ」プログラム。 3の整数と3がつく数字のときにあほになるプ…

業務備忘録 年行くと忘れるからなぁ。1.[編集]-[キーボードショートカット](Alt+Shift+Ctrl+K) 2.ショートカットを割り当てたい動作を選択 3.キーの入力 これでOK

私はSEOの担当もしているので、 iframeとは対極の人間ですが、 理由があってiframeを使うことになった。 デフォルトでborder指定が入っているんだけど、 Dreamweaver CS4の補完機能ではiframeのborderに指定できない。 で、解決したんだけど、 若干めんどく…

こんにちは、ウエンです。 ぐわし！！ 前回書いた、イエローゴジラネタが意外に好調だったため、 次の紹介ネタを書いていきます。 みんなコボちゃんと聞くと何を想像しますか？ あれですよね！！漫画の ただね、日本最強のコボちゃん、、、 いや！世界最強の…