ACCESS Programming

　　ACCESS tips http://www.tsware.jp/
　　外部プログラムを実行し終了を待つ方法
　　　文字列長を正しく得る方法　LenB(StrConv("string", vbFromUnicode))
　　リンクテーブルを自動的にカレントに張り直す方法link_update.txt
　　カナをローマ字に変換するkana_to_ronaji　(VBA)

並び替え変更VBA
　Me.Form.OrderBy = "予約番号 DESC,接種日 DESC"

★★★　一覧フォームにSQLデータを流し込むVBA

Dim strSQL As String
strSQL = "SELECT Q_daily_report.* FROM Q_daily_report WHERE 接種日 = '" & Me!txt_date & "'"
Me.RecordSource = strSQL

★★★　一覧を、並び替えるVBA

If Me.lbl予約日.Caption = "予約日↓" Then
Me.Form.OrderBy = "予約番号 DESC,接種日 DESC"
Me.Form.OrderByOn = True
Me.lbl予約日.Caption = "予約日↑"
Me.lbl接種日.Caption = "接種日"
g_orderBy = 1
Else
Me.Form.OrderBy = "予約番号,接種日"
Me.Form.OrderByOn = True
Me.lbl予約日.Caption = "予約日↓"
Me.lbl接種日.Caption = "接種日"
g_orderBy = 0
End If