| |
VBA初心者です。
テーブルAを参照して同じサービス書番号のテーブルB２つのフィールドをテーブルAの内容に更新するクエリを作成したのですが、
「メソッドまたはデータメンバが見つかりません」というエラーになります。
初歩的なことだとは思うのですが、行き詰っております。
どなたか教えていただけませんでしょうか。
よろしくお願いいたします。
Private Sub 使用日更新_Click()
Dim CN As dao.Connection
Dim rsA As dao.Recordset
Dim rsB As dao.Recordset
Set CN = CurrentProject.Connection
rsA.Open "T_使用", CN, adOpenKeyset, adLockOptimistic
rsB.Open "T_サービス書", CN, adOpenKeyset, adLockOptimistic
Do Until rsA.EOF
rsB.Filter = " サービス書番号 = '" & rsA!サービス書番号 & "'"
If rsB.EOF Then
rsB.AddNew
rsB!使用日 = rsA!サービス書使用日
rsB!使用社員番号 = rsA!使用社員
rsB.Update
End If
rsA.MoveNext
Loop
rsB.Close: Set rsB = Nothing
rsA.Close: Set rsA = Nothing
CN.Close: Set CN = Nothing
End Sub
|
|
VBA初心者です
- 11/11/27(日) 20:20 -
![[未読]](./data/FAQ/image/read_icon.gif){kind=icon}
≪
