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

「未定義関数…」などのエラー

  • ACCESS
  • 2009-04-16 - 更新:2014-06-05

Office2000をSR-1 Premiumにアップデートしていないのが原因で
発生するエラー。
Officeをアップデートすると解消される。

, ,
1,993 views

DAOでレコード検索

  • VB,VBA
  • 2009-03-17 - 更新:2014-05-28 
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,464 views

レポートで連番を表示

  • ACCESS
  • 2009-02-24 - 更新:2012-03-23

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

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

1,880 views

文字列のフォーマット

  • Excel
  • 2009-02-20 - 更新:2012-03-23

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

TEXT関数を使用する

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

結果

10,000
1,903 views

特殊フォルダのパスを取得したいとき

  • VB,VBA
  • 2009-02-19 - 更新:2012-03-23

特殊なフォルダはパソコンによって、あるいはWindowsによって場所がまちまちです。
そんなときそのパスを取得する方法を知っていれば便利ですね。
サンプル1では、デスクトップとマイドキュメントのパスを知ることができます。
サンプル2では、Windowsのセットアップ場所、システムフォルダ、一時フォルダのパスを取得できます。

Public Sub GetSpecialFolder_1()
'特殊フォルダのパスを取得_1
    Dim ws

    Set ws = CreateObject("WScript.Shell")

    MsgBox "Desktop= " & ws.SpecialFolders("Desktop")
    MsgBox "MyDocuments= " & ws.SpecialFolders("MyDocuments")

End Sub

続きを読む…»

5,872 views