カテゴリー
SugiBlog Webエンジニアのためのお役立ちTips

GoogleMap ルート案内

<form action="http://maps.google.co.jp/maps" method="get" target="_blank">
ここまでのルートを検索
出発地(住所・駅名):<input type="text" size="30" name="saddr" id="saddr" value="" />
交通手段:<input type="radio" name="dirflg" value="r" checked="checked" />電車
<input type="radio" name="dirflg" value="d" />車
<input type="hidden" name="daddr" value="lat,lon" />
<input type="submit" value="ルート検索" />
</form>

・アイコンクリックにイベントを追加

GEvent.addListener(marker, "click", function() {
marker.openInfoWindowHtml([上記HTML]);
});
2,342 views

DAOでレコード検索

Dim dbs As Database
Dim rst As Recordset
Dim strCriteria As String

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("住所テーブル", _
dbOpenDynaset)

With rst
    strCriteria = "住所 Like '東京*'"
    .FindFirst strCriteria
    Do Until .NoMatch
        Debug.Print !ID, !氏名, !住所, !郵便番号
        .FindNext strCriteria
    Loop
    .Close
End With
2,438 views

Googlemap マウスホイールのズーム

GoogleMap v2.78以降

マウスホイールのズーム可否を指定するメソッド

enableScrollWheelZoom // 有効
disableScrollWheelZoom // 無効
2,070 views

レポートで連番を表示

レポートで独自の連番を作成するには?

1.「詳細」エリアにテキストボックスを配置
2.コントロールソースに「=1」と入力
3.プロパティ「集計実行」を全体にする
これにより、「詳細」セクションが呼び出される毎に、1が加算されていきます。

1,856 views

文字列のフォーマット

関数を使用して文字列をカンマ区切りにしたい時
VBではなく、セルに直接入力したい場合に使用

TEXT関数を使用する

TEXT(10000, "#,###")

結果

10,000
1,876 views