2007年5月16日
【ACCESS】7桁を8桁にする
IDを数値型なんかで保存してしまっている場合、本当は8桁なんだけど7桁になったりして、検索で探せなくなったりして不便だ。やっぱ先頭を0（ゼロ）を使うのであれば、テキスト型でないと駄目だろう。
ACCESSは文字数を数えるLEN関数を利用すると便利だ。
Sub putZero()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = CurrentProject.Connection
Set rs = New ADODB.Recordset
Dim id As String
rs.Open "qry_兼業非常勤", cn, adOpenKeyset, adLockOptimistic 'qry_兼業非常勤を開く
Do Until rs.EOF = True
id = rs!STFID
If Len(id) < 8 Then '8文字未満なら
If Len(id) = 7 Then
id = "0" + id '先頭に0をつける
End If
If Len(id) = 6 Then
id = "00" + id '先頭に00をつける
End If
End If
Debug.Print id
'rs!STFID = id
id = "" 'idを初期化
rs.MoveNext '次の行へ
Loop
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub
- by editor
- at 16:20
編集長のおすすめの一冊！2010
comments