|
| Filterプロパティ |
Filterプロパティ（条件により抽出） | Dim DB As DATABASE |
|
|
Dim rs1 As Recordset |
| Set DB = CurrentDb() |
| Set rs1 = DB.OpenRecordset("名簿", dbOpenDynaset) |
| rs1.Filter = "性別 = '男' " |
| Set rs1 = rs1.OpenRecordset() |
| Do Until rs1.EOF |
| rs1.Movenext |
| Loop |
| For Next |
For Next | 5レコード削除 |
| Dim I as integer |
| For I = 1 to 5 step 1 |
| rs.delete |
| rs.movenext |
| Next I |
| iif |
iifでﾃｷｽﾄﾎﾞｯｸｽ数値計算、クリア | =Iif([txt株数]="","",(([ｔｘｔ売金額]-[txt手数料])/[ｔｘｔ買金額])-1) |
| |
IIFでLikeを使って検索したい | Iif(IsNull([forms]![事項国名日付検索]![事項T]),True,[事項] Like "*" & [forms]![事項国名日付検索]![事項T] & "*") |
| ｸｴﾘｰIIFを使って抽出したい | Iif([forms]![F_顧客名簿]![趣味all],True,[趣味]=[FORMS]![F_顧客名簿]![趣味選択]) |
 |
 |
| －抽出条件=True－＞条件に合ったものを抽出。 |
| ・all（ｺﾏﾝﾄﾞﾎﾞﾀﾝ）を選択されたら全部、以外（ｺﾝﾎﾞﾎﾞｯｸｽ） |
| なら選択された趣味を抽出。 |
| Option Explicit |
| Option Explicit | Option Compare Database |
| 各ｸﾗｽﾓｼﾞｭｰﾙで、またがって使用可 | Option Explicit |
| Dim SQLP As String |
| 各ｸﾗｽﾓｼﾞｭｰﾙで、またがって使用可 |
| RecordCount | RecordCount | Set rs1 = db.OpenRecordset("名簿", dbOpenDynaset) |
| rs1.MoveLast |
| Debug.Print rs1.RecordCount |
| Recordsetclone | Recordsetclone | ﾌｫｰﾑ |
| Dim rs as Recordset |
| Set rs = Me.Recordsetclone |
| Private Sub TEST_Click() |
| Dim CNT As Integer |
| Dim RS As Recordset |
| Set RS = Me.RecordsetClone |
| '画面上でフィルターなどで絞り込むとそのレコードが対象 |
| CNT = RS.RecordCount |
| End Sub |
| Private Sub 得意先コンボ_AfterUpdate() |
| Me.RecordsetClone.FindFirst "[得意先CD] = " & Me![得意先コンボ] |
| Me.Bookmark = Me.RecordsetClone.Bookmark |
| End Sub |
| どちらも同じ |
| Me.RecordsetClone |
| Forms!名簿.RecordsetClone |