Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

6809 / 9994

←次へ　｜　前へ→


	【6384】引数の書き方

山田 - 05/9/29(木) 16:28 -


	引用なし

	パスワード

全部のモジュールを書いておきます。

Dim cn As ADODB.Connection
Dim re1 As ADODB.Recordset
Dim rs2 As ADODB.Recordset

Set cn = Application.CurrentProject.Connection
Set rs1 = New ADODB.Recordset
Set rs2 = New ADODB.Recordset

rs1.Open "T_出張所ﾏｽﾀ", cn, adOpenKeyset, adLockOptimistic
rs2.Open "T_年度予算A", cn, adOpenKeyset, adLockOptimistic

rs1.MoveFirst

Do Until rs1.EOF

rs2.Find "'期' & '出張所CD' ='" & rs1!期 & rs1!出張所CD & "'"

If rs2.EOF Then
　 rs2.AddNew
　　　 rs2![期] = rs1![期]
　　　 rs2![出張所CD] = rs1![出張所CD]
　　　 rs2.Update
End If
rs2.MoveNext
Loop

rs1.Close
rs2.Close
cn.Close

302 hits

▼

【6383】引数の書き方 山田 05/9/29(木) 16:23