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

-----------------------------------------------------------    
    
    RS.AddNew
    RS("科目コード").Value = "1122"
    RS("科目名").Value = "売掛金"
    RS.Update

-----------------------------------------------------------    

カレントレコードは追加したレコード


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ