AccessVBAの記述

質問

私の環境はＯＳ：Ｘｐ
　　　　　ＡＣＣＥＳＳ２０００です。

宜しくお願いします

初歩的な記述だとは思うのですが、どうにも解りません。申し訳無いのですが、教えていただければ嬉しいです。

Dim syukko As String

syukko = Me.出庫年 & "年" & Me.出庫月 & "月" & Me.出庫日 & "日"

出庫年と出庫月と出庫日を「年月日」を加えて一つにする仕方は上記であっていると思うのですが、反対に分解するにはどう記述したら良いのでしょうか？

例えば、「－１」というのを
「ー（マイナス）」と「１」に分けるにはどう記述したら良いのでしょう？

宜しくお願い致します。

回答No.3

imogasi

この質問の流れで捉えると、年、月、日は変数
Me.出庫年、Me.出庫月、Me.出庫日に入っているはずで
「分解する」必要はないはず。質問の例示が混乱を招くと思う。文字列で「２００４年１２月２４日」がありそこから、年、月、日の数字をそれぞれ変数に入れたいのなら
下記を参考に
Sub test01()
s = "2004年12月24日"
' s = "2004年2月2日"
p1 = InStr(s, "年")
p2 = InStr(s, "月")
nen = Mid(s, 1, p1 - 1)
mon = Mid(s, p1 + 1, p2 - p1 - 1)
hi = Mid(s, p2 + 1, Len(s) - p2 - 1)
MsgBox nen
MsgBox mon
MsgBox hi
End Sub

回答No.2

noname#21585

私はmid関数をよく使います。mid関数は、1番目の引数は対象の文字列、2番目の引数は対象の中から取り出したい文字の位置、3番目の引数は取り出す長さです。例えば

dim str as String
str = "access2000"
mid(str, 3, 3)

としますと、"access2000"という文字列の前から3個目のキャラクターを起点として3個のキャラクターを取得してくださいということになりますから、

"ces"

が返ります。

回答No.1

Gin_F

文字列を分割する場合には、桁数を指定します。

LEFT
MID
RIGHT
関数を使ってください。

> 例えば、「－１」というのを
Left([フィールド名],1)
Right([フィールド名],1)

とかのように。