| |
メインフォームで選択条件を入力して、条件に合致するデータをサブフォームに
表示して、更にサブフォームの表示データから任意のデータを選択する処理の
プログラムを作成しています。
教えて頂きたい処理はサブフォームで１件も選択していない時に
エラーメッセージを出した後、カーソルを１行目（先頭レコード）にsetfocusしたいのでが、最終行にカーソルがあります。
サブフォームのコードは以下の通りです。
Private Sub 合計個数_Exit(Cancel As Integer)
Dim DB As Database
Dim RS As Recordset
Dim rs_2 As Recordset
Dim MySQL As String
Dim Rst3 As Recordset
Dim 行数 As Integer
Set DB = CurrentDb
Set Rst3 = DB.OpenRecordset("wk_印刷用合計デー タ",dbOpenTable) 'IN
If Nz(Me!選択) = 1 Then
cnt選択 = cnt選択 + 1
End If
MySQL = "select * from Q_印刷用合計データ where 出庫No. = " & Me!出庫No.
Set RS = DB.OpenRecordset(MySQL)
If RS.RecordCount = 0 Then
MsgBox "データ？？？", vbOKOnly, "SUB"
Cancel = True
End If
'------最終行のチェック
If Me.CurrentRecord = Me.Recordset.RecordCount Then
If cnt選択 = 0 Then
MsgBox "１件も選択していません"
Rst3.MoveFirst ＜−−−？
Exit Sub
End If
Me.Parent.cmd印刷.Enabled = True
Me.Parent.cmd印刷.SetFocus
End If
END SUB
上記のコードで最終行の時に１件も選択されていない（cnt選択=0）時に
MoveFirstを書いたのですがここが動作していないと思います。
サブフォームのレコードソースはWK_印刷用データを指定しています。
どうぞ宜しくお教え下さい
|
|
ハジメ
- 06/8/1(火) 15:34 -
