堀川です、こんにちは

-----Original Message-----
From: 岡田　晃一 [mailto:who@sub.example.jp] 
Sent: Saturday, April 13, 2002 4:14 AM
To: who@example.ne.jp
Subject: [ml-msde-beg:00196] ストアドプロシージャの再同期について


最近はサーバー構築が忙しくて、なかなかお返事ができずに
遅れてすいません。

状況が把握できなかったので、私の方でメイン側フォームを
勝手に推測し、
　　　http://www.horikawa.ne.jp/msde/tmp/form.gif
このようなフォームで調べてみました。


［メインフォームのレコードソース］
  Create Procedure Proc_日報番号
  As
     SET NOCOUNT ON
     SELECT DISTINCT 日報番号 FROM  売上日報明細
     ORDER BY 日報番号




[メインフォームのサブフォームコントロール]
　　リンク子フィールド   は、日報番号
　　リンク親フィールド   は、日報番号




[サブフォームのレコードソース]
Create Procedure Proc_日報明細
(
     @指定番号 int
)
As
 　set nocount on
　SELECT [売上日報明細].日報番号, [売上日報明細].行番号,
       [売上日報明細].数量, [売上日報明細].販売価格,
       [売上日報明細].商品ID, [商品テーブル].品名
　FROM  商品テーブル INNER JOIN
       売上日報明細 ON
       [商品テーブル].商品ID = [売上日報明細].商品ID
  where [売上日報明細].日報番号 = @指定番号





[サブフォームの再同期コマンド]
     Resync_日報明細  ? ,  ?

（注）連結主キーが定義された順番に、パラメータが渡される

Create Procedure Resync_日報明細
 (
   @no  int,
   @no2 int
 )
As
    SET NOCOUNT ON
    SELECT [売上日報明細].日報番号, 
           [売上日報明細].行番号,
           [売上日報明細].数量,
           [売上日報明細].販売価格,
           [売上日報明細].商品ID,
           [商品テーブル].品名
    FROM [商品テーブル] INNER JOIN
           [売上日報明細] ON  [商品テーブル].商品ID = [売上日報明細].商
品ID
    where(  [売上日報明細].日報番号 = @no and [売上日報明細].行番号 =
@no2 )
  return




[サブフォームの入力パラメータ]
       @指定番号 int = forms("売り上げ日報メイン")![日報番号]




[サブフォームのプログラム]
   Private Sub Form_Load()
           Me.UniqueTable = "売上日報明細"
  End Sub

  Access2002では、固有のテーブルプロパティの入力が、なぜかできないので
プログラムから設定した（私のマシンがおかしいのかな？）




以上のような状況で、『商品ID』を変更し、レコードを保存すると、『品名』の
値が
再同期コマンドによって正しく修正表示されます。

まったく問題は発生しておりません。

テスト内容が異なっていれば、お知らせ下さい。


------------------------------------
（株）日本技術ソフト開発
  　    　堀川　明  (Akira Horikawa)
    ０４月１８日（木曜日）　１２時５８分記
        mailto:who@example.ne.jp
        http://www.horikawa.ne.jp/msde/