Private Sub コマンド15_Click()
Dim str出身地 As String '出身地の管理
Dim n As Integer 'サーチ文字列の発見場所
Dim rs As New ADODB.Recordset 'ADOのレコードセット
Dim strSQL As String 'SQL文を作成するため
'T_メンバーテーブルから出身地をバンドIDがフォームの値と一緒
strSQL = "Select 出身地 From T_メンバー " _
& " Where バンドID = " & Me![バンドID]
'レコードセットを開く
rs.Open strSQL, CurrentProject.Connection, _
adOpenKeyset, adLockOptimistic
'ループ処理
str出身地 = "" '空文字で初期化
While rs.EOF = False 'いつものEOFが偽の間
'バッファの中に同じ出身地があるか場所をチェックする
n = InStr(str出身地, rs.Fields("出身地"))
If n = 0 Then '出身地が見つからなかったら（重複してない時）
'出身地と" "スペース1つを＋する
str出身地 = str出身地 & rs.Fields("出身地") & " "
End If
rs.MoveNext '次のレコードに移動しないと、とんでもないことに(笑)
Wend
rs.Close '開いたら閉じろ、ドアを開けたら閉めるってしつけられたでしょ(笑)
Set rs = Nothing '変数も後始末しますか。使った器はキレイにしろって?
'データのセットと確認メッセージ表示
Me![txt出身地] = str出身地 '非連結のテキストボックスにデータセット
MsgBox "作成した文字列は" & str出身地 & "です"
End Sub
ポイントは、
^^^^^^^^^^^^
'ループ処理
str出身地 = "" '空文字で初期化
まずは、バッファを空にする。
While rs.EOF = False 'いつものEOFが偽の間
'バッファの中に同じ出身地があるか場所をチェックする
n = InStr(str出身地, rs.Fields("出身地"))
作成している出身地の変数内に、読み込んだ出身地があるかチェックする。
InStrで見つからない場合、０が返ります、これを判断し、
If n = 0 Then '出身地が見つからなかったら（重複してない時）
'出身地と" "スペース1つを＋する
str出身地 = str出身地 & rs.Fields("出身地") & " "
End If
出身地が見つからなかった場合のみ、出身地を＋してます。
rs.MoveNext '次のレコードに移動しないと、とんでもないことに(笑)
Wend
↑テスト結果です。
さてと、完成したし、いっかな。
なんて工夫がないと、
ヤッパ三流プログラマーってＳＱＬ文知らないんだぁ・・・
と、一言メッセージをモラッテシマウノデ、ＳＱＬ文で重複をハジク。
Group Byでグループ化するんダロ？簡単ジャンと思った読者の声を聞きつつ、
ギクっ読まれてるよ行動が。
ホカナイカナァ・・・
DISTINCTキーワード知らないんだぁ？
なにそのキーワード？
騙されたと思って、
Select DISTINCT 〜で、SQL文作ってみなよ
InStrを使う前のプログラムにDISTINCTキーワードを追加してみます。
'T_メンバーテーブルから出身地をバンドIDがフォームの値と一緒
strSQL = "Select DISTINCT 出身地 From T_メンバー " _
& " Where バンドID = " & Me![バンドID]
と、Selectの後にキーワードを＋してみます。
Private Sub コマンド14_Click()
Dim str出身地 As String '出身地の管理
Dim rs As New ADODB.Recordset 'ADOのレコードセット
Dim strSQL As String 'SQL文を作成するため
'T_メンバーテーブルから出身地をバンドIDがフォームの値と一緒
strSQL = "Select DISTINCT 出身地 From T_メンバー " _
& " Where バンドID = " & Me![バンドID]
'レコードセットを開く
rs.Open strSQL, CurrentProject.Connection, _
adOpenKeyset, adLockOptimistic
'ループ処理
str出身地 = "" '空文字で初期化
While rs.EOF = False 'いつものEOFが偽の間
'出身地と" "スペース1つを＋する
str出身地 = str出身地 & rs.Fields("出身地") & " "
rs.MoveNext '次のレコードに移動しないと、とんでもないことに(笑)
Wend
rs.Close '開いたら閉じろ、ドアを開けたら閉めるってしつけられたでしょ(笑)
Set rs = Nothing '変数も後始末しますか。使った器はキレイにしろって?
'データのセットと確認メッセージ表示
Me![txt出身地] = str出身地 '非連結のテキストボックスにデータセット
MsgBox "作成した文字列は" & str出身地 & "です"
End Sub
テストすると、オッ、できましたね。
SQLの結果で重複をハジクタメだけにグループ化してたけど、
物によっては、
Select DISTINCT
と、重複結果を取り除くキーワードを使ってみるのも面白そうですね。
手前味噌解説に酔ってないで、今、ボタンクリックしないと、
txt出身地にデータセットされないよ。
普通はグループが変わったタイミングで出身地も自動で変えたいよ。
そうでした。どちらの処理でもいいので、
グループが変わったタイミング、
親のフォームのレコード移動時に出身地の取得モジュールを書き込みます。
よし、動作したよと安心したら、
新規のデータを入力しようと、レコードを移動したら、
あらら、エラーだよ。
↑エラーメッセージ
strSQL = "Select DISTINCT 出身地 From T_メンバー " _
& " Where バンドID = " & Me![バンドID]
と、Me![バンドID]を参照しようとするが、
新規のデータなので、番号が無かったみたいです。
チェックを入れないとダメなのかぁ。
なんか、無いかなぁ・・新規レコードを判断するプロパティ。
探すと、そのまんまの、.NewRecordってプロパティがあった（笑）
'新規のデータ時、下の処理を走らせない
If Me.NewRecord = True Then '.NewRecordで新規かチッェクする
Me![txt出身地] = "" '空文字でクリア
Exit Sub '関数を途中で抜ける
End If
とチェックを入れて、新規データ追加時は、
出身地のデータはチェックしないことにしました。
下記、作成したレコード移動時のイベントです。
Private Sub Form_Current()
Dim str出身地 As String '出身地の管理
Dim rs As New ADODB.Recordset 'ADOのレコードセット
Dim strSQL As String 'SQL文を作成するため
'新規のデータ時、下の処理を走らせない
If Me.NewRecord = True Then '.NewRecordで新規かチッェクする
Me![txt出身地] = "" '空文字でクリア
Exit Sub '関数を途中で抜ける
End If
'T_メンバーテーブルから出身地をバンドIDがフォームの値と一緒
'DISTINCTキーワードで重複をハジク
strSQL = "Select DISTINCT 出身地 From T_メンバー " _
& " Where バンドID = " & Me![バンドID]
'レコードセットを開く
rs.Open strSQL, CurrentProject.Connection, _
adOpenKeyset, adLockOptimistic
'ループ処理
str出身地 = "" '空文字で初期化
While rs.EOF = False 'いつものEOFが偽の間
'出身地と" "スペース1つを＋する
str出身地 = str出身地 & rs.Fields("出身地") & " "
rs.MoveNext '次のレコードに移動しないと、とんでもないことに(笑)
Wend
rs.Close '開いたら閉じろ、ドアを開けたら閉めるってしつけられたでしょ(笑)
Set rs = Nothing '変数も後始末しますか。使った器はキレイにしろって?
'データのセット
Me![txt出身地] = str出身地 '非連結のテキストボックスにデータセット
End Sub
既存のフォーム（作成した子フォームを選択します）
リンクするフィールドを選択します
（名称が同じフィールドが自動で設定されると思います）
サブフォームの名前を決めて、終了です。
あとは、親フォームにtxt出身地と非連結のテキストボックスを作成します。
（※データセット、連結はこれから作ります）
さて、なんとか、ここまでは、簡単に作れました。
が、配置気にしない（笑）テスト用のイメージです
↑テスト結果です。
えっ、進んだ？進んでナイジャン（笑）
↑テスト結果です。
さてと、完成したし、いっかな。
なんて工夫がないと、
ヤッパ三流プログラマーってＳＱＬ文知らないんだぁ・・・
と、一言メッセージをモラッテシマウノデ、ＳＱＬ文で重複をハジク。
Group Byでグループ化するんダロ？簡単ジャンと思った読者の声を聞きつつ、
ギクっ読まれてるよ行動が。
ホカナイカナァ・・・
DISTINCTキーワード知らないんだぁ？
なにそのキーワード？
騙されたと思って、
Select DISTINCT 〜で、SQL文作ってみなよ
InStrを使う前のプログラムにDISTINCTキーワードを追加してみます。
'T_メンバーテーブルから出身地をバンドIDがフォームの値と一緒
strSQL = "Select DISTINCT 出身地 From T_メンバー " _
& " Where バンドID = " & Me![バンドID]
と、Selectの後にキーワードを＋してみます。
↑エラーメッセージ
strSQL = "Select DISTINCT 出身地 From T_メンバー " _
& " Where バンドID = " & Me![バンドID]
と、Me![バンドID]を参照しようとするが、
新規のデータなので、番号が無かったみたいです。
チェックを入れないとダメなのかぁ。
なんか、無いかなぁ・・新規レコードを判断するプロパティ。
探すと、そのまんまの、.NewRecordってプロパティがあった（笑）
'新規のデータ時、下の処理を走らせない
If Me.NewRecord = True Then '.NewRecordで新規かチッェクする
Me![txt出身地] = "" '空文字でクリア
Exit Sub '関数を途中で抜ける
End If
とチェックを入れて、新規データ追加時は、
出身地のデータはチェックしないことにしました。
下記、作成したレコード移動時のイベントです。