Access VBA質問箱 IV

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

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


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

3524 / 9994

←次へ　｜　前へ→


	【9729】Re:枝番に連番を振る処理について

Nao - 07/8/2(木) 18:01 -


	引用なし

	パスワード

本当にこれ実行してエラーが出ないんですか？

単純なコピペならエラーバリバリだと思いますけど？
Dim ds As DAO.Database
　　^^
Set db = CurrentDb()
　　^^
そもそもここからエラーです。
（もしかして本物には On Error が付いてるとかはない？）

とりあえず FindFirst のところということで
事業者ＮＯ（２バイトの英数字はエリア名としては不適当ですが）
がテキスト型なら

rs2.FindFirst "事業者ＮＯ = '" & rs1!事業者ＮＯ & "'"

数字型なら

rs2.FindFirst "事業者ＮＯ = " & rs1!事業者ＮＯ

でどうでしょうか？

追伸：
事業者ＮＯのエリア型が？？？です。
ＳＱＬの「T2.事業者ＮＯ) > 0)) 」から見ると数字型（でないとエラーになるはず）
Dim fldid1 As String　に格納して比較しているところではテキスト型

まずこの辺で問題が出ると思いますけど・・・

591 hits

▼

【9725】枝番に連番を振る処理について ゆか 07/8/2(木) 10:20