Access VBA質問箱 IV

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

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


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

3383 / 9994

←次へ　｜　前へ→


	【9872】実行時ｴﾗｰ3061

taka

- 07/9/27(木) 11:02 -


	引用なし

	パスワード

VBAがよくわかっていない初心者ですがよろしくお願いします。
ある文をほぼまねて下記のものをつくりました。階層が3つあり第一階層ではうまく行ったのですが、二階層めでつまずきました。よろしくお願いします。
Dim W_mitu_M　As Recordset
Dim w_gyo As Integer
Dim w_sql_W As String
Dim w_中項目No As Long

Me.Recalc
If IsNull(Me![中項目連番]) Then
　Exit Sub
End If
w_gyo = Me![中項目連番]
w_sql_W = "SELECT * FROM Q_見積明細中項目クエリ WHERE [中項目連番] >= " & w_gyo & " order by 中項目連番 "
ここでｴﾗｰ　Set W_siire_M = CurrentDb.OpenRecordset(w_sql_W, dbOpenDynaset)
Do Until W_mitu_M.EOF
　W_mitu_M.Edit
　W_mitu_M!中項目連番 = W_siire_M!中項目連番 + 1
　W_mitu_M.Update
　W_mitu_M.MoveNext
Loop
　W_mitu_M.AddNew
　W_mitu_M!中項目連番 = w_gyo
　W_mitu_M!中項目No = DMax("中項目No", "Q_見積明細中項目クエリ") + 1
　W_mitu_M.Update
　
　Form.Requery
DoCmd.GoToRecord , , acGoTo, w_gyo

1,371 hits

▼

【9872】実行時ｴﾗｰ3061 taka 07/9/27(木) 11:02