アクセス　入力した文字を自動で他のフィールドに返す

解決済

質問者：IloveCECIL
質問日時：2013/10/30 13:42
回答数：6件

アクセス2000を使用しています。
フォームでテーブルにデータを入力しています。
フィールド1に【みかん　A-1】と入力するとフィールド2に自動的に【みかん】と
空白の前の文字を返したいのですが可能でしょうか？
必ず半角のスペースが間に入りますのでその前の文字（文字数は決まってません）を
自動で入力されるようにしたいです。
テーブルのフィールドにも入力されるように反映もしたいです。
DLookupではやはりフィールド全体になりますよね？

分かりにくい説明ですがよろしくお願いします。
初心者ですので分かりやすく教えて頂けると助かります。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (6件)

No.1

回答者： f_a_007
回答日時：2013/10/30 13:58

Option Compare Database

Public Function CutStr(ByVal Text As String,
　　　　　　　　　　　　　　　ByVal Separator As String,
　　　　　　　　　　　　　　　ByVal N As Integer) As String
　　Dim strDatas() As String

　　strDatas = Split("" & Separator & Text, Separator, , 0)
　　CutStr = strDatas(N * Abs(N <= UBound(strDatas)))
End Function

上の CutStr関数を使うと簡単に実現できます。

? CutStr("AAA BBB", " ", 1)
AAA
? CutStr("AAA BBB", " ", 2)
BBB

この回答への補足

上のコードはどこにしたらいいのでしょうか？
画像ではテキスト3のコントロールソースがありますがテキスト3は
新たにどこかに作る感じですか？
全くの無知でお恥ずかしいです。。。

補足日時：2013/10/30 15:55

通報する

- 0
- 件

通報する

No.2

回答者： f_a_007
回答日時：2013/10/30 14:12

補足：iif関数を使わない例

=CutStr([テキスト1] & ""," ",1)

- 0
- 件

通報する

No.3ベストアンサー

回答者： piroin654
回答日時：2013/10/30 14:55

フィールド1の更新後処理のイベントで、

Private Sub フィールド1_AfterUpdate()
　　Dim var As Variant
　　'split関数で変数varに文字列を半角スペースのところで分離して格納します。配列です。
　　var = Split(Me!フィールド1, " ")
　　'分解した文字列の最初を取り出しフィールド2にいれます
　　Me!フィールド2 = var(0)
End Sub

でいいのでは？
更新後処理ですから、フィールド1に入力後
フィールド2などをクリックしてフォーカス
を移動するようにします。

- 0
- 件

通報する

この回答へのお礼

出来ました！！ありがとうございました。

通報する

お礼日時：2013/10/30 15:55

No.4

回答者： f_a_007
回答日時：2013/10/30 17:05

Q1、上のコードはどこにしたらいいのでしょうか？

A1、標準モジュールに関数（Function）として登録します。

Q2、テキスト3とは？
A2、フィールド2に相当します。

つまり、標準モジュールにDlookup()と同じ働きをする関数CutStr()を登録。
もって、[フィールド2]のコントロールソースを指定して目的を達成。
そういう回答です。