----- Original Message -----
From: "Akira Horikawa" <who@example.ne.jp>
To: <who@example.ne.jp>
Sent: Thursday, April 18, 2002 12:58 PM
Subject: [ml-msde-beg:00198] RE: ストアドプロシージャの再同期について


> 堀川です、こんにちは
>
> -----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] ストアドプロシージャの再同期について
>
>
> 最近はサーバー構築が忙しくて、なかなかお返事ができずに
> 遅れてすいません。
>

こちらこそお忙しい所お返事頂きありがとうございました。
結果的には出来ました。ありがとうございました。
ただ少し変です。
最初、VBA上での再同期コマンドがおかしいのかと
思っていたのですが、
Resync_日報明細  ? ,  ?　を指定して、実行しても
表示されません。
それで、最初に主キーを行番号だけ指定して
実行した方を連結主キーの設定に変えて、
上記のコマンドで実行した所、表示されるんです。
なにが、違うんだろうと思い、コードをながめて見ても
違うところはないんです。
それでこんどは、後に作ったフォームに設定をかえて、
出来たほうの設定で実行して見ると、今度は表示されません。
なんだ、フォームの設定がおかしいのかと思い確認してみました。
違いといえば、サブフォームのプロパティに、
最同期コマンドと固有のテーブルが、
いつのまにか設定されています。
（非連結フォームなので、設定した覚えはないんですが）
それに、堀川さんはAccess2002では固有のテーブルプロパティ
が入力できないとおっしゃってますよね、
でも私のはAccess2000なんですが、
ビューをレコードソースにすると、テーブル一覧が、表示されますが、
それをストアドに変えると、一覧は表示されなくて、
手入力しようとすると、一覧から
入力して下さい、とゆうメッセージがでて、入力できません。
そこで、ビュー表を作成して、テーブル一覧を表示させ、
一覧から、テーブルを選択し、レコードソースのビュー表を
プロパティから削除すると、そのまま、設定はのこります。
（これが、正しい処理なのでしょうか?堀川さんの本には、
こんなふうには書いてない様な気がするのですが？）
で実行して見ると、今度は表示されます。
変だなとおもいながら、同じように
後の設定を同じ操作で実行してみると今度は表示されません。
なせ？？？？
で、設定をもどしたり、また変えたり、いろいろしているうちに
（この間、Accessは何回か、エラーがでて落ちてます。）
基本的な設定は何も変えてないのになぜか、表示される様になりました。
最終的には、サブフォームのプロパティには、なにも設定していません。
でも、今度はきちんと表示されます。私のAccess2000はどこかおかしいので
しょうか？OSはWindowsMEで、Access2000+MEDEです。
とりあえず、出来たコードを書きます。あんまり参考にはならないと思いますが、
フォームはメインが単票、サブが帳票形式です。
メインとサブは日報番号でリンクです。
また解からなくなったら質問させて頂きます。
ありとうございました。

Private Sub Form_Load()
Dim cn As ADODB.Connection
Dim rs As New ADODB.Recordset
Set cn = CurrentProject.Connection

rs.CursorLocation = adUseServer
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic


rs.Open "日報番号", cn, , , adCmdTable

Set Me.Recordset = rs


Me![売上日報番号].ControlSource = "日報番号"
Me![店舗名].ControlSource = "店舗名"
Me![日付].ControlSource = "日付"

Me.Requery
rs.Close
cn.Close

Me!日報明細.Form.InputParameters = "@指定番号 int = forms![売上日報]![売上日
報番号]"

Me!日報明細.Form.ResyncCommand = "Resync_日報明細  ?,?"

Me!日報明細.Form.UniqueTable = "売上日報明細"

Me!日報明細.Form.RecordSource = "Proc_日報明細"

Me!日報明細.Form![日報番号].ControlSource = "日報番号"
Me!日報明細.Form![行番号].ControlSource = "行番号"
Me!日報明細.Form![商品ID].ControlSource = "商品ID"
Me!日報明細.Form![数量].ControlSource = "数量"
Me!日報明細.Form![品名].ControlSource = "品名"
Me!日報明細.Form![原価率].ControlSource = "原価率"
Me!日報明細.Form![仕入原価].ControlSource = "仕入原価"
Me!日報明細.Form![販売価格].ControlSource = "販売価格"

Me.Requery



End Sub





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