目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
8 / 262 ←次へ | 前へ→

【276】テーブル更新について
Access  VBA初心者です E-MAIL  - 11/11/27(日) 20:20 -

引用なし
パスワード
   VBA初心者です。
テーブルAを参照して同じサービス書番号のテーブルB2つのフィールドをテーブル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

1,000 hits

【276】テーブル更新について VBA初心者です 11/11/27(日) 20:20 Access[未読]

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
8 / 262 ←次へ | 前へ→
ページ:  ┃  記事番号:   
0
(SS)C-BOARD v3.8 is Free