| |
テーブル(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
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
