スポンサードリンク
無料ブログ作成サービス JUGEM
人気ブログランキング くつろぐ ブログ王
■ Mobile
qrcode
クエリでソートが複数の場合のフィールドデザイン
クエリで並び替えが複数の場合

例えば、「地区コード」順→「担当者コード」順の場合
時点で「地区コード」を左側に、「担当者コード」をその右側になるようにフィールドデザインする。
地区コード 顧客コード 担当者コード
1001 5012 201
1001 4987 201
1001 3698 202
1002 1458 211
1002 5645 211
1002 6582 212
1002 6543 213
1002 6589 213
1002 1529 214
1003 5423 221
複数の並び替え(ソート)がある場合デザインビューの左側から順に並べ替えられる。

だから、「担当者コード順」→「地区コード」順の場合は
「担当者コード」を「地区コード」の左側にデザインする。
| 愛アース | 備忘録・ACCESS | comments(0) | trackbacks(0) | pookmark |
配列のように扱う方法
同種のコントロールを複数使いたい時に有効。
例えば、テキストボックスがtxtコード01、txtコード02などと複数ある場合

For lngW1 = 1 To 10
strW1 = Format(lngW1, "00")
varW1 = Me("txtコード" & strW1).Value
・・・
ループの毎に
varW1には「me.txtコード01.Value」、「me.txtコード02.Value」、…、「me.txtコード10.Value」
がセットされる。

配列ではないが、配列に近い使い方ができる。
| 愛アース | 備忘録・ACCESS | comments(0) | trackbacks(0) | pookmark |
インターバルタイマーの実現
一定間隔の時間で何らかの処理をさせるような場合は、FormのTimerイベントを利用する。

FormのTimerイベントを設定(起動)させるには、
Me.TimerInterval = 設定時間(マイクロ秒で設定。1000で1秒、任意で設定。)

FormのTimerイベントを停止させるには、
Me.TimerInterval = 0

起動後、設定時間毎にフォームのタイマーイベントを発行される。
そのイベントを利用すると目的の処理が実現可能。
停止させるまでその状況が続く。

↓このプロシジャー「Form_Timer()」に目的の処理を↓
Private Sub Form_Timer()
'タイマーイベントが発生

***目的の処理***
End Sub
| 愛アース | 備忘録・ACCESS | comments(1) | trackbacks(0) | pookmark |
VBAでUTF-8を扱う方法
ADODB.Streamを使うことになるので
参照設定で「Microsoft ActiveX Data Objects 2.8 Library」にチェックを入れる。


Private Function Func_freadu8(strFnm As String) As String
Dim strList As String
Dim adoSt As New ADODB.Stream
Dim strText As String
With adoSt
.Type = adTypeText
.Charset = "UTF-8"
.Open
.LoadFromFile (strFnm)
Do While Not (.EOS)
strList = .ReadText(adReadLine)
strText = strText & strList & vbLf
Loop
.Close
End With
Func_freadu8 = strText
End Function
| 愛アース | 備忘録・ACCESS | comments(0) | trackbacks(0) | pookmark |
ACCESSのファイル形式を変更する
ACCESSのファイル形式を変更する場合
(たとえば、Access2000のmdbファイルをaccdbファイルに変換する)


(儡溝仂櫃mdbを開く。
[ファイル]タブをクリックし、[保存して発行]をクリック
[データベースファイルの種類]を選択し[名前を付けて保存]
| 愛アース | 備忘録・ACCESS | comments(0) | trackbacks(0) | pookmark |
4 7 10 13 16 19 22 25 28 31 34 37 40 43 46 49 52 55 58 61 64 67 70 73 76 79 82 85 88 91 94 97 100 103 106 109 112 115 118 121 124 127 130 133 136 139 142 145 148 151 154 157 160 163 166 169 172 175 178 181 184 187 190 193 196 199 202 205 208 211 214 217 220 223 226 229 232 235 238 241 244 247 250 253 256 259 262 265 268 271 274