Access VBA note イメージ画像
この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() 

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

レコード抽出Me.Filter = 抽出条件Me.FilterOn = True抽出解除Me.FilterOn = False二つのオプショングループ(担当者 と 完了)から抽出を行うPrivate Sub cmd抽出_Click()    Dim bln完了 As Boolean    Select Case Me.fr完了.Value        Case 1 '未完了     

    RS.Open "tbl勘定科目", CN    RS.Filter = "勘定科目='1112' or 勘定科目 = '1113'"    Do Until RS.EOF        Debug.Print RS("勘定科目"), RS("科目番号")        RS.MoveNext    Loop    -----------------------------------------------------

    RS.CursorLocation = adUseClient        With RS        .Source = "tbl補助科目"        .ActiveConnection = CN        .Open    End With    RS.Sort = "科目コード ASC, 補助科目コード DESC"    Do Until RS.EOF        Debug.Print

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 '東京都*'"   

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() 

    Dim ArrField As Variant    Dim ArrValue As Variant        ArrField = Array("科目コード", "科目名")    ArrValue = Array("1122", "売掛金")        RS.AddNew ArrField, ArrValue-----------------------------------------------------------  

    RS.Update "科目コード", "1112"    RS.Update "科目名", "当座預金"---------------------------------------------------------------    RS("科目コード").Value = "1112"    RS("科目名").Value = "普通預金"    RS.Update-------------------------------

使用例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

↑このページのトップヘ