アクセス フィールド名の変更

質問

フィールド名　[1],[2],・・・・を
[090701],[090702],・・・
に変更するように

Dim i As String
Dim ret As String
ret = InputBox("入力例　　090701")
i = ret
DoCmd.RunSQL "SELECT [クエリ112].[1] AS [" & i & "], [クエリ112].[2] AS [" & i + 1 & "], ........中略
End Sub

としましたが
[090701],[90702],[90703],・・・
２番目から　090702 になりません。
どのようにすればよいのか教えていただけませんか。

回答No.1

Dxak

自動型変換の話ですね

ret = "090701"
だとして
ret + 1 = "090701" + 1
足せるわけが無いから・・・自動的に
ret + 1 = "090701" + 1 = 90701 + 1 = 90702
と、数値化してます

これを書式を整えるなら、Format関数で整えることになりますね
後は、考えて見ましょう

お礼

[" & i + 1 & "]　を [0" & i + 1 & "]　にして
解決しました。

DoCmd.RunSQL "SELECT [クエリ112].[1] AS [" & i & "], [クエリ112].[2] AS [0" & i + 1 & "], ........中略
End Sub