Option Compare DatabaseOption ExplicitDim myADOcon As New ADODB.ConnectionDim myRecSet As New ADODB.RecordsetConst Prv_Jet40 = "Provider=Microsoft.Jet.OLEDB.4.0;"Sub Open_ADOdb() Set myADOcon = CurrentProject.ConnectionEnd SubSub Close_myRecSet()
Ado
Access-VBA [ADO] レポートでのレコード抽出 Filter FilterOn
Private Sub cmd印刷_Click()On Error GoTo Err_cmd印刷_Click Dim stDocName As String stDocName = "rpt個人確定申告管理" DoCmd.OpenReport stDocName, acPreview With Reports(stDocName) Select Case fr担当者.Valu
Access-VBA [ADO] フォームでのレコード抽出 Filter FilterOn
レコード抽出Me.Filter = 抽出条件Me.FilterOn = True抽出解除Me.FilterOn = False二つのオプショングループ(担当者 と 完了)から抽出を行うPrivate Sub cmd抽出_Click() Dim bln完了 As Boolean Select Case Me.fr完了.Value Case 1 '未完了
Access-VBA [ADO] レコード抽出(Filter)
RS.Open "tbl勘定科目", CN RS.Filter = "勘定科目='1112' or 勘定科目 = '1113'" Do Until RS.EOF Debug.Print RS("勘定科目"), RS("科目番号") RS.MoveNext Loop -----------------------------------------------------
Access-VBA [ADO] レコード並べ替え(Sort)
RS.CursorLocation = adUseClient With RS .Source = "tbl補助科目" .ActiveConnection = CN .Open End With RS.Sort = "科目コード ASC, 補助科目コード DESC" Do Until RS.EOF Debug.Print
Access-VBA [ADO] レコード検索
Sub test2() Dim CN As ADODB.Connection Dim RS As New ADODB.Recordset Set CN = CurrentProject.Connection RS.Open "tbl法人名簿", CN, adOpenStatic, adLockReadOnly Do RS.Find "住所1 Like '東京都*'"
Access-VBA [ADO] レコード削除
Option Compare DatabaseOption ExplicitDim myADOcon As New ADODB.ConnectionDim myRecSet As New ADODB.RecordsetConst Prv_Jet40 = "Provider=Microsoft.Jet.OLEDB.4.0;"Sub Open_ADOdb() Set myADOcon = CurrentProject.ConnectionEnd SubSub Close_myRecSet()
Access-VBA [ADO] レコード追加
Dim ArrField As Variant Dim ArrValue As Variant ArrField = Array("科目コード", "科目名") ArrValue = Array("1122", "売掛金") RS.AddNew ArrField, ArrValue-----------------------------------------------------------
Access-VBA [ADO] レコード更新
RS.Update "科目コード", "1112" RS.Update "科目名", "当座預金"--------------------------------------------------------------- RS("科目コード").Value = "1112" RS("科目名").Value = "普通預金" RS.Update-------------------------------
Access-VBA [ADO] カレントレコードの移動
使用例RS.MoveFirstDo Until RS.EOF Debug.Print RS.Fields(0), RS.Fields(1), RS.Fields(2) RS.MoveNextLoopMoveFirst 先頭へMoveLast 最後へMoveNext 次へMovePrevious 前へMove番号 指定した数を次へレコードセットにレコードがない時 BOF=True EOF=True