Search

  毎日にもっと楽~を! BLOG Tokyo

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



Bookmark and Share


編集長のおすすめの一冊!2010

comments

comment form

(BLOG Tokyo にはじめてコメントされる場合、不適切なコメントを防止するため、掲載前に管理者が内容を確認しています。適切なコメントと判断した場合コメントは直ちに表示されますので、再度コメントを投稿する必要はありません。)

comment form