Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2103 / 9994

←次へ　｜　前へ→


	【11170】ｆｉｎｄメソッド　エラー

さりー - 09/8/5(水) 20:12 -


	引用なし

	パスワード

テーブル(tbl_m)に　性別　名前　フィールドを作っています

ＡＤＯで性別が男だけイミディエイトさせたいのですがエラーが出ます。

実行時エラー　3021
　ＢＯＦとＥＯＦのいずれかがＴｒｕｅになっているか。または現在のレコードが削除されています

イミディエイトに結果はでますがエラーも出るといった具合です。

どこがおかしいか教えてください

Public Sub kim()

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sex As Variant

Set cn = CurrentProject.Connection
Set rs = New ADODB.Recordset

rs.Open "tbl_m", cn, adOpenKeyset, adLockOptimistic

sex = "性別='男性'"

Do Until rs.EOF
rs.Find sex
Debug.Print rs!社員名
rs.MoveNext
Loop

rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing

End Sub

878 hits

▼

【11170】ｆｉｎｄメソッド　エラー さりー 09/8/5(水) 20:12