Ｐａｇｅ 314 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼一つのフォームに複数のレコードを表示したい みりん 03/6/23(月) 11:41 ┣Re:一つのフォームに複数のレコードを表示したい こうちゃん 03/6/23(月) 13:06 ┃ ┗Re:一つのフォームに複数のレコードを表示したい みりん 03/6/23(月) 13:41 ┃ ┗Re:一つのフォームに複数のレコードを表示したい こうちゃん 03/6/23(月) 15:44 ┃ ┗Re:一つのフォームに複数のレコードを表示したい みりん 03/6/23(月) 16:46 ┃ ┗Re:一つのフォームに複数のレコードを表示したい みりん 03/6/23(月) 16:49 ┃ ┗Re:一つのフォームに複数のレコードを表示したい こうちゃん 03/6/23(月) 18:12 ┃ ┗Re:一つのフォームに複数のレコードを表示したい みりん 03/6/24(火) 8:32 ┃ ┗Re:一つのフォームに複数のレコードを表示したい こうちゃん 03/6/24(火) 9:11 ┃ ┗Re:一つのフォームに複数のレコードを表示したい みりん 03/6/24(火) 9:39 ┃ ┣Re:一つのフォームに複数のレコードを表示したい みりん 03/6/24(火) 9:50 ┃ ┗SQLの勉強が必要かも・・ こうちゃん 03/6/24(火) 10:29 ┃ ┗Re:SQLの勉強が必要かも・・ みりん 03/6/24(火) 11:17 ┃ ┗Re:SQLの勉強が必要かも・・ みりん 03/6/24(火) 11:31 ┃ ┗Re:SQLの勉強が必要かも・・ みりん 03/6/24(火) 15:22 ┗深くなったのでこちらで こうちゃん 03/6/24(火) 16:01 ┗商品カタログを作成したい。 みりん 03/6/24(火) 17:01 ┗Re:商品カタログを作成したい。 こうちゃん 03/6/24(火) 17:43 ┗Re:商品カタログを作成したい。 みりん 03/6/25(水) 9:43 ┗Re:商品カタログを作成したい。 こうちゃん 03/6/25(水) 10:56 ┗Re:商品カタログを作成したい。 みりん 03/6/25(水) 11:47 ─────────────────────────────────────── ■題名 ： 一つのフォームに複数のレコードを表示したい ■名前 ： みりん ■日付 ： 03/6/23(月) 11:41 -------------------------------------------------------------------------
| こんにちは。宜しくお願いします。 一つのフォームに複数のレコードを表示したいのですが、例えば画像付きのレコード が既に別にあるものとして、その画像レコードをフォーム上で任意に、この画像とこ の画像を表示させるといったふうにしたいのですが、方法についてどなたかご教授頂 きたくお願い致します。 |
| みりんさん、こんにちは >一つのフォームに複数のレコードを表示したいのですが、例えば画像付きのレコード >が既に別にあるものとして、その画像レコードをフォーム上で任意に、この画像とこ >の画像を表示させるといったふうにしたいのですが、方法についてどなたかご教授頂 >きたくお願い致します。 もう少し条件を提示していただかないとレスがつけづらいですね。 >画像付きのレコード どんなレコード？OLEオブジェクト型？ハイパーリンク型？ファイルのパスを持ってるの？ >この画像とこの画像を表示させる 表示させる画像はどうやって指定するのですか？また、指定する数は固定？ ＃一般的にいえば、表示する画像の指定方法は問題になるのでしょうが、非連結のフォームを作成して、イメージコントロールなりオブジェクトフレームなりを使用して画像表示するだけなんでしょうね。 |
| すいません。言葉足らずでご迷惑をおかけします。 宜しくお願いします。 >>一つのフォームに複数のレコードを表示したいのですが、例えば画像付きのレコード >>が既に別にあるものとして、その画像レコードをフォーム上で任意に、この画像とこ >>の画像を表示させるといったふうにしたいのですが、方法についてどなたかご教授頂 >>きたくお願い致します。 > >もう少し条件を提示していただかないとレスがつけづらいですね。 > >>画像付きのレコード >どんなレコード？OLEオブジェクト型？ハイパーリンク型？ファイルのパスを持ってるの？ ファイルパスを持っていますが、画像だけでなく画像と製品名、価格を既存テーブルから拾って表示したいです。 >>この画像とこの画像を表示させる >表示させる画像はどうやって指定するのですか？また、指定する数は固定？ テキストボックスに商品名を入力した後、検索ボタンをクリックして指定したいと。 表示数は１フォームあたり９レコード固定です。 >＃一般的にいえば、表示する画像の指定方法は問題になるのでしょうが、非連結のフォームを作成して、イメージコントロールなりオブジェクトフレームなりを使用して画像表示するだけなんでしょうね。 |
| みりんさん、こんにちは >ファイルパスを持っていますが、画像だけでなく画像と製品名、価格を既存テーブルから拾って表示したいです。 >テキストボックスに商品名を入力した後、検索ボタンをクリックして指定したいと。 >表示数は１フォームあたり９レコード固定です。 ADOで既存テーブルから情報を選択して表示するコードの例です 非連結のフォームで、 入力用として 商品名1 ・・・・・商品名9のテキストボックスがあり 出力用として 画像1 ・・・・・ 画像9のイメージコントロール 製品名1、価格1 ・・・・・製品名9、価格9 のテキストボックスがあり、 検索ボタンがあるフォームを想定しています。 なお、データ入力の有無、ファイルの有無のチェックや、エラーチェックはしていません。 検索ボタンのクリックイベントを想定しています。 ほかにも方法はありますが、とりあえずお試しください。 （注：ADOを使用していますので、Access2000以降対象です。WinやAccessのバージョンも書いてくださいね） またコード中の「１〜9 処理」は各1のものしか書いてありませんので、１から9分書いてくださいね。 Private Sub 検索_Click() Dim DataConn As ADODB.Connection Dim rs As ADODB.Recordset Dim strSQL As String Set DataConn = CurrentProject.Connection '写真フォルダ名の取得 Set rs = New ADODB.Recordset '************ １〜9 処理 ************* strSQL = "SELECT 画像パス, 製品名, 価格 FROM 既存テーブル " strSQL = strSQL & "WHERE 商品名 = '" & ME.商品名1 & "'" rs.Open strSQL, DataConn, adOpenStatic If Not rs.EOF Then Me!画像1.Picture = rs("画像パス") Me!製品名1.Value = rs("製品名") Me!価格1.Value = rs("価格") End If rs.Close '******** １〜9 処理ここまで ********* Set rs = Nothing Set DataConn = Nothing End Sub |
| ▼こうちゃん さん： >みりんさん、こんにちは > >>ファイルパスを持っていますが、画像だけでなく画像と製品名、価格を既存テーブルから拾って表示したいです。 >>テキストボックスに商品名を入力した後、検索ボタンをクリックして指定したいと。 >>表示数は１フォームあたり９レコード固定です。 > >ADOで既存テーブルから情報を選択して表示するコードの例です >非連結のフォームで、 >入力用として >商品名1 ・・・・・商品名9のテキストボックスがあり >出力用として >画像1 ・・・・・ 画像9のイメージコントロール >製品名1、価格1 ・・・・・製品名9、価格9 のテキストボックスがあり、 >検索ボタンがあるフォームを想定しています。 > >なお、データ入力の有無、ファイルの有無のチェックや、エラーチェックはしていません。 >検索ボタンのクリックイベントを想定しています。 > >ほかにも方法はありますが、とりあえずお試しください。 >（注：ADOを使用していますので、Access2000以降対象です。WinやAccessのバージョンも書いてくださいね） >またコード中の「１〜9 処理」は各1のものしか書いてありませんので、１から9分書いてくださいね。 > >Private Sub 検索_Click() > > Dim DataConn As ADODB.Connection > Dim rs As ADODB.Recordset > Dim strSQL As String > > Set DataConn = CurrentProject.Connection > > '写真フォルダ名の取得 > > Set rs = New ADODB.Recordset > > '************ １〜9 処理 ************* > strSQL = "SELECT 画像パス, 製品名, 価格 FROM 既存テーブル " > strSQL = strSQL & "WHERE 商品名 = '" & ME.商品名1 & "'" > rs.Open strSQL, DataConn, adOpenStatic > If Not rs.EOF Then > Me!画像1.Picture = rs("画像パス") > Me!製品名1.Value = rs("製品名") > Me!価格1.Value = rs("価格") > End If > rs.Close > '******** １〜9 処理ここまで ********* > > Set rs = Nothing > Set DataConn = Nothing > >End Sub ご回答ありがとうございました。非常に初心者の質問で恐縮ですが 早速試してみたところ、rs.Open strSQL, DataConn, adOpenStaticの ところでエラーになってしまい「FROM句の構文エラーです」となってしまいます。 おそらく私がコードの記述を間違ってしまった為と思われますが何かヒントがご ざいましたらご教授下さい。宜しくお願いします。 |
| ▼みりん さん： >▼こうちゃん さん： >>みりんさん、こんにちは >> >>>ファイルパスを持っていますが、画像だけでなく画像と製品名、価格を既存テーブルから拾って表示したいです。 >>>テキストボックスに商品名を入力した後、検索ボタンをクリックして指定したいと。 >>>表示数は１フォームあたり９レコード固定です。 >> >>ADOで既存テーブルから情報を選択して表示するコードの例です >>非連結のフォームで、 >>入力用として >>商品名1 ・・・・・商品名9のテキストボックスがあり >>出力用として >>画像1 ・・・・・ 画像9のイメージコントロール >>製品名1、価格1 ・・・・・製品名9、価格9 のテキストボックスがあり、 >>検索ボタンがあるフォームを想定しています。 >> >>なお、データ入力の有無、ファイルの有無のチェックや、エラーチェックはしていません。 >>検索ボタンのクリックイベントを想定しています。 >> >>ほかにも方法はありますが、とりあえずお試しください。 >>（注：ADOを使用していますので、Access2000以降対象です。WinやAccessのバージョンも書いてくださいね） >>またコード中の「１〜9 処理」は各1のものしか書いてありませんので、１から9分書いてくださいね。 >> >>Private Sub 検索_Click() >> >> Dim DataConn As ADODB.Connection >> Dim rs As ADODB.Recordset >> Dim strSQL As String >> >> Set DataConn = CurrentProject.Connection >> >> '写真フォルダ名の取得 >> >> Set rs = New ADODB.Recordset >> >> '************ １〜9 処理 ************* >> strSQL = "SELECT 画像パス, 製品名, 価格 FROM 既存テーブル " >> strSQL = strSQL & "WHERE 商品名 = '" & ME.商品名1 & "'" >> rs.Open strSQL, DataConn, adOpenStatic >> If Not rs.EOF Then >> Me!画像1.Picture = rs("画像パス") >> Me!製品名1.Value = rs("製品名") >> Me!価格1.Value = rs("価格") >> End If >> rs.Close >> '******** １〜9 処理ここまで ********* >> >> Set rs = Nothing >> Set DataConn = Nothing >> >>End Sub > >ご回答ありがとうございました。非常に初心者の質問で恐縮ですが >早速試してみたところ、rs.Open strSQL, DataConn, adOpenStaticの >ところでエラーになってしまい「FROM句の構文エラーです」となってしまいます。 >おそらく私がコードの記述を間違ってしまった為と思われますが何かヒントがご >ざいましたらご教授下さい。宜しくお願いします。 すいません。書き忘れました。ちなみにAccess2002を使用しております。 |
| みりんさん、こんにちは >>ご回答ありがとうございました。非常に初心者の質問で恐縮ですが >>早速試してみたところ、rs.Open strSQL, DataConn, adOpenStaticの >>ところでエラーになってしまい「FROM句の構文エラーです」となってしまいます。 >>おそらく私がコードの記述を間違ってしまった為と思われますが何かヒントがご >>ざいましたらご教授下さい。宜しくお願いします。 >すいません。書き忘れました。ちなみにAccess2002を使用しております。 みりんさんの書いたコードおよびテーブル構成をUPしてください。 回答しようがありません。 情報は可能な限り提示することが解決の早道＆礼儀だと思いますよ^^ |
| ▼こうちゃん さん： >みりんさん、こんにちは > >>>ご回答ありがとうございました。非常に初心者の質問で恐縮ですが >>>早速試してみたところ、rs.Open strSQL, DataConn, adOpenStaticの >>>ところでエラーになってしまい「FROM句の構文エラーです」となってしまいます。 >>>おそらく私がコードの記述を間違ってしまった為と思われますが何かヒントがご >>>ざいましたらご教授下さい。宜しくお願いします。 >>すいません。書き忘れました。ちなみにAccess2002を使用しております。 > >みりんさんの書いたコードおよびテーブル構成をUPしてください。 >回答しようがありません。 > >情報は可能な限り提示することが解決の早道＆礼儀だと思いますよ^^ 申し訳ありませんでした。 以下のように記述致しました。宜しくお願い致します。 Private Sub 検索_Click() Dim DataConn As ADODB.Connection Dim rs As ADODB.Recordset Dim strSQL As String Set DataConn = CurrentProject.Connection '写真フォルダ名の取得 Set rs = New ADODB.Recordset '************ １〜9 処理 ************* strSQL = "SELECT ファイルパス１,商品名,希望小売価格 FROM syo_tbl" strSQL = strSQL & "WHERE 検索商品名 = '" & Me.検索商品名1 & "'" rs.Open strSQL, DataConn, adOpenStatic If Not rs.EOF Then Me!画像1.Picture = rs("ファイルパス１") Me!商品名1.Value = rs("商品名") Me!希望小売価格1.Value = rs("希望小売価格") End If rs.Close '******** １〜9 処理ここまで ********* Set rs = Nothing Set DataConn = Nothing End Sub |
| みりんさん、おはようございます SQL文のテーブル名とWHERE区の間に空白がないのが原因と思われます。 "syo_tbl"のあとに空白1個いれてみてください。 またフィールド名の"1"が全角・半角入り混じっているようですがこの辺も実際のものとあわせるようにご注意ください。 > strSQL = "SELECT ファイルパス１,商品名,希望小売価格 FROM syo_tbl" > strSQL = strSQL & "WHERE 検索商品名 = '" & Me.検索商品名1 & "'" strSQL = "SELECT ファイルパス１,商品名,希望小売価格 FROM syo_tbl " strSQL = strSQL & "WHERE 検索商品名 = '" & Me.検索商品名1 & "'" 私のサンプルがよくなかったですね。 言い訳させていただくと、テーブル構造やフォーム構成がわかっていれば試験用のフォームやテーブルを実際に作成して動作確認してからUPするのですが、今回はその辺りが不明だったため雰囲気がわかればいいかと思い、オンラインで書き込んじゃいました。 失礼いたしました。 |
| ▼こうちゃん さん： >みりんさん、おはようございます > >SQL文のテーブル名とWHERE区の間に空白がないのが原因と思われます。 >"syo_tbl"のあとに空白1個いれてみてください。 >またフィールド名の"1"が全角・半角入り混じっているようですがこの辺も実際のものとあわせるようにご注意ください。 > >> strSQL = "SELECT ファイルパス１,商品名,希望小売価格 FROM syo_tbl" >> strSQL = strSQL & "WHERE 検索商品名 = '" & Me.検索商品名1 & "'" > > strSQL = "SELECT ファイルパス１,商品名,希望小売価格 FROM syo_tbl " > strSQL = strSQL & "WHERE 検索商品名 = '" & Me.検索商品名1 & "'" > >私のサンプルがよくなかったですね。 >言い訳させていただくと、テーブル構造やフォーム構成がわかっていれば試験用のフォームやテーブルを実際に作成して動作確認してからUPするのですが、今回はその辺りが不明だったため雰囲気がわかればいいかと思い、オンラインで書き込んじゃいました。 >失礼いたしました。 度々申し訳ありませんでした。早速スペースを入れ実行してみましたが、またエラーに なってしまいました。ファイルパス１という項目は私がテーブルを作成する時に誤って 全角にしてしまい、それがそのまま継承されている為です。 一つお聞きしたいのですが、サンプルとして頂いた下記の行 strSQL = strSQL & "WHERE 商品名 = '" & ME.商品名1 & "'" の「商品名」は他行の「製品名」とは別の項目ということでしょうか？ ご教授頂きたくお願い申し上げます。 |
| ▼みりん さん： >▼こうちゃん さん： >>みりんさん、おはようございます >> >>SQL文のテーブル名とWHERE区の間に空白がないのが原因と思われます。 >>"syo_tbl"のあとに空白1個いれてみてください。 >>またフィールド名の"1"が全角・半角入り混じっているようですがこの辺も実際のものとあわせるようにご注意ください。 >> >>> strSQL = "SELECT ファイルパス１,商品名,希望小売価格 FROM syo_tbl" >>> strSQL = strSQL & "WHERE 検索商品名 = '" & Me.検索商品名1 & "'" >> >> strSQL = "SELECT ファイルパス１,商品名,希望小売価格 FROM syo_tbl " >> strSQL = strSQL & "WHERE 検索商品名 = '" & Me.検索商品名1 & "'" >> >>私のサンプルがよくなかったですね。 >>言い訳させていただくと、テーブル構造やフォーム構成がわかっていれば試験用のフォームやテーブルを実際に作成して動作確認してからUPするのですが、今回はその辺りが不明だったため雰囲気がわかればいいかと思い、オンラインで書き込んじゃいました。 >>失礼いたしました。 > >度々申し訳ありませんでした。早速スペースを入れ実行してみましたが、またエラーに >なってしまいました。ファイルパス１という項目は私がテーブルを作成する時に誤って >全角にしてしまい、それがそのまま継承されている為です。 >一つお聞きしたいのですが、サンプルとして頂いた下記の行 >strSQL = strSQL & "WHERE 商品名 = '" & ME.商品名1 & "'" >の「商品名」は他行の「製品名」とは別の項目ということでしょうか？ >ご教授頂きたくお願い申し上げます。 エラーメツセージの内容ですが、 実行時エラー'-2147217904(80040e10)' No value given for one or more required parameters. となっております。宜しくお願い致します。 |
| みりんさん、こんにちは >度々申し訳ありませんでした。早速スペースを入れ実行してみましたが、またエラーに >なってしまいました。ファイルパス１という項目は私がテーブルを作成する時に誤って >全角にしてしまい、それがそのまま継承されている為です。 >一つお聞きしたいのですが、サンプルとして頂いた下記の行 >strSQL = strSQL & "WHERE 商品名 = '" & ME.商品名1 & "'" >の「商品名」は他行の「製品名」とは別の項目ということでしょうか？ >ご教授頂きたくお願い申し上げます。 商品名というフィールドがあるとの想定です。 商品名<>製品名だと思っておりました。 最初の書き込みで、商品名を入力させて、検索して、製品名や価格を表示するといいうような記載があったかにおもいますが、ちがいましたか？ 「"WHERE 商品名 = '" & ME.商品名1 & "'" 」の意味としては、「テーブルの商品名フィールドがME.商品名1と同じもの」って意味です。 SELECT文のSELCT句やWHERE句のフィールド名も実際のテーブルのものとあわせてくださいね。 それからこの場合の検索は完全一致です。あいまい検索が必要だったりしたらSQL文にLIKEを使用したりする工夫が必要になりますよ。 ＃選択クエリを作って、SQLビュー見てみると参考になるかも・・ 「SQL文ってなにがなんだか分からん！！」ってことなら、検索用の選択クエリを作っておいて、表示用フォームは連結フォームってことにしたほうがいいかもしれませんね。 ただ、SQL覚えるとDBの使用方法に幅がでますから、がんばっちゃうことをお勧めしますが・・・ |
| ▼こうちゃん さん： >みりんさん、こんにちは > >>度々申し訳ありませんでした。早速スペースを入れ実行してみましたが、またエラーに >>なってしまいました。ファイルパス１という項目は私がテーブルを作成する時に誤って >>全角にしてしまい、それがそのまま継承されている為です。 >>一つお聞きしたいのですが、サンプルとして頂いた下記の行 >>strSQL = strSQL & "WHERE 商品名 = '" & ME.商品名1 & "'" >>の「商品名」は他行の「製品名」とは別の項目ということでしょうか？ >>ご教授頂きたくお願い申し上げます。 > >商品名というフィールドがあるとの想定です。 >商品名<>製品名だと思っておりました。 > >最初の書き込みで、商品名を入力させて、検索して、製品名や価格を表示するといいうような記載があったかにおもいますが、ちがいましたか？ > >「"WHERE 商品名 = '" & ME.商品名1 & "'" 」の意味としては、「テーブルの商品名フィールドがME.商品名1と同じもの」って意味です。 > >SELECT文のSELCT句やWHERE句のフィールド名も実際のテーブルのものとあわせてくださいね。 >それからこの場合の検索は完全一致です。あいまい検索が必要だったりしたらSQL文にLIKEを使用したりする工夫が必要になりますよ。 > >＃選択クエリを作って、SQLビュー見てみると参考になるかも・・ > >「SQL文ってなにがなんだか分からん！！」ってことなら、検索用の選択クエリを作っておいて、表示用フォームは連結フォームってことにしたほうがいいかもしれませんね。 >ただ、SQL覚えるとDBの使用方法に幅がでますから、がんばっちゃうことをお勧めしますが・・・ 色々とご指導頂きすいませんでした。ありがとうございました。 励ましを頂き、がんばってＳＱＬを覚えようと思います。 お蔭様でSQL文も少し理解できてきました。（まだまだですが、、） また分からないことがあれば質問させて頂くかも知れませんが 何卒、宜しくお願い致します。 |
| ▼みりん さん： >▼こうちゃん さん： >>みりんさん、こんにちは >> >>>度々申し訳ありませんでした。早速スペースを入れ実行してみましたが、またエラーに >>>なってしまいました。ファイルパス１という項目は私がテーブルを作成する時に誤って >>>全角にしてしまい、それがそのまま継承されている為です。 >>>一つお聞きしたいのですが、サンプルとして頂いた下記の行 >>>strSQL = strSQL & "WHERE 商品名 = '" & ME.商品名1 & "'" >>>の「商品名」は他行の「製品名」とは別の項目ということでしょうか？ >>>ご教授頂きたくお願い申し上げます。 >> >>商品名というフィールドがあるとの想定です。 >>商品名<>製品名だと思っておりました。 >> >>最初の書き込みで、商品名を入力させて、検索して、製品名や価格を表示するといいうような記載があったかにおもいますが、ちがいましたか？ >> >>「"WHERE 商品名 = '" & ME.商品名1 & "'" 」の意味としては、「テーブルの商品名フィールドがME.商品名1と同じもの」って意味です。 >> >>SELECT文のSELCT句やWHERE句のフィールド名も実際のテーブルのものとあわせてくださいね。 >>それからこの場合の検索は完全一致です。あいまい検索が必要だったりしたらSQL文にLIKEを使用したりする工夫が必要になりますよ。 >> >>＃選択クエリを作って、SQLビュー見てみると参考になるかも・・ >> >>「SQL文ってなにがなんだか分からん！！」ってことなら、検索用の選択クエリを作っておいて、表示用フォームは連結フォームってことにしたほうがいいかもしれませんね。 >>ただ、SQL覚えるとDBの使用方法に幅がでますから、がんばっちゃうことをお勧めしますが・・・ > >色々とご指導頂きすいませんでした。ありがとうございました。 >励ましを頂き、がんばってＳＱＬを覚えようと思います。 >お蔭様でSQL文も少し理解できてきました。（まだまだですが、、） >また分からないことがあれば質問させて頂くかも知れませんが >何卒、宜しくお願い致します。 ありがとうございました。もう一度フォームを見直したところ「商品名1」という フィールドの名称が間違っておりました。この名称を直してやったら直りました。 すいません私の勘違いでした。本当にありがとうございました。 |
| ▼みりん さん： >▼みりん さん： >>▼こうちゃん さん： >>>みりんさん、こんにちは >>> >>>>度々申し訳ありませんでした。早速スペースを入れ実行してみましたが、またエラーに >>>>なってしまいました。ファイルパス１という項目は私がテーブルを作成する時に誤って >>>>全角にしてしまい、それがそのまま継承されている為です。 >>>>一つお聞きしたいのですが、サンプルとして頂いた下記の行 >>>>strSQL = strSQL & "WHERE 商品名 = '" & ME.商品名1 & "'" >>>>の「商品名」は他行の「製品名」とは別の項目ということでしょうか？ >>>>ご教授頂きたくお願い申し上げます。 >>> >>>商品名というフィールドがあるとの想定です。 >>>商品名<>製品名だと思っておりました。 >>> >>>最初の書き込みで、商品名を入力させて、検索して、製品名や価格を表示するといいうような記載があったかにおもいますが、ちがいましたか？ >>> >>>「"WHERE 商品名 = '" & ME.商品名1 & "'" 」の意味としては、「テーブルの商品名フィールドがME.商品名1と同じもの」って意味です。 >>> >>>SELECT文のSELCT句やWHERE句のフィールド名も実際のテーブルのものとあわせてくださいね。 >>>それからこの場合の検索は完全一致です。あいまい検索が必要だったりしたらSQL文にLIKEを使用したりする工夫が必要になりますよ。 >>> >>>＃選択クエリを作って、SQLビュー見てみると参考になるかも・・ >>> >>>「SQL文ってなにがなんだか分からん！！」ってことなら、検索用の選択クエリを作っておいて、表示用フォームは連結フォームってことにしたほうがいいかもしれませんね。 >>>ただ、SQL覚えるとDBの使用方法に幅がでますから、がんばっちゃうことをお勧めしますが・・・ >> >>色々とご指導頂きすいませんでした。ありがとうございました。 >>励ましを頂き、がんばってＳＱＬを覚えようと思います。 >>お蔭様でSQL文も少し理解できてきました。（まだまだですが、、） >>また分からないことがあれば質問させて頂くかも知れませんが >>何卒、宜しくお願い致します。 > >ありがとうございました。もう一度フォームを見直したところ「商品名1」という >フィールドの名称が間違っておりました。この名称を直してやったら直りました。 >すいません私の勘違いでした。本当にありがとうございました。 申し訳ありません。追加です。。 ご教授頂いた甲斐あって目的の物「商品カタログ」のような感じのフォームが完成 しました。 しかしここで少し問題が発生してしまいました。任意に商品を選ぶ事が出来た訳で すがこれを新しいレコードとして保存できません。 テーブルから新しいテーブルを作成するという事になるかと思いますが、 SELECT * INTOを使うという事はなんとなく分かりますが、具体的にどのタイミング で使えば良いかよくわかりません。 再三お手数をお掛け致しますが、ご教授頂ければ幸いです。 |
| みりんさんこんにちは ですから情報を提示しないと回答しようがありません。 このフォームの目的は、注文用フォームとかで、入力されたものを別テーブルに保存するのですか？ そのテーブルの構成は？ また検索以外に、保存用のボタンとかを使用するのですか？ |
| ▼こうちゃん さん： >みりんさんこんにちは > >ですから情報を提示しないと回答しようがありません。 >このフォームの目的は、注文用フォームとかで、入力されたものを別テーブルに保存するのですか？ > >そのテーブルの構成は？ >また検索以外に、保存用のボタンとかを使用するのですか？ 申し訳ありません。情報掲示不足ごめんなさい。空回りしてしまいました。 このフォームの目的を掲示させて頂きます。 １．既存のテーブルより任意の商品を呼び出し(9品目分)フォームに表示させる。 ２．任意に呼び出した９品に管理番号(自動付番)を付け「保存ボタン」を押下した時に 別テーブルに９品を１レコード分として保存したい。 いわゆる商品カタログを作りたい訳です。 ３．２．にて保存した各レコードを呼び出して印刷も可能としたい。 だいたいこんな感じの事を想定しております。 現在、ご指導により１．が完成しております。２．以降がよく分かりません。 テーブルの構成は、１．と同じく画像パス(写真)、製品名、価格です。管理番号だけ追 加という形になる予定です。 この場合、テーブルから新しいテーブルを作成するという事で良いのでしょうか？ 度々申し訳ありません。ご教授下さい宜しくお願い致します。 |
| みりんさん、こんにちは >申し訳ありません。情報掲示不足ごめんなさい。空回りしてしまいました。 >このフォームの目的を掲示させて頂きます。 > >１．既存のテーブルより任意の商品を呼び出し(9品目分)フォームに表示させる。 >２．任意に呼び出した９品に管理番号(自動付番)を付け「保存ボタン」を押下した時に > 別テーブルに９品を１レコード分として保存したい。 > いわゆる商品カタログを作りたい訳です。 >３．２．にて保存した各レコードを呼び出して印刷も可能としたい。 > >だいたいこんな感じの事を想定しております。 >現在、ご指導により１．が完成しております。２．以降がよく分かりません。 >テーブルの構成は、１．と同じく画像パス(写真)、製品名、価格です。管理番号だけ追 >加という形になる予定です。 9品目を1レコードとするなら1.と同じテーブル構成はありえません。 また管理番号の追加規則もわかりません。 「テーブルを追加」ではなくレコードの追加ですかね？ SELECT INTO ではなくてINSERT INTOになりませんか？ とにかくテーブルの構成を検討してご提示ください。 >この場合、テーブルから新しいテーブルを作成するという事で良いのでしょうか？ >度々申し訳ありません。ご教授下さい宜しくお願い致します。 |
| お世話になります。 >>１．既存のテーブルより任意の商品を呼び出し(9品目分)フォームに表示させる。 >>２．任意に呼び出した９品に管理番号(自動付番)を付け「保存ボタン」を押下した時に >> 別テーブルに９品を１レコード分として保存したい。 >> いわゆる商品カタログを作りたい訳です。 >>３．２．にて保存した各レコードを呼び出して印刷も可能としたい。 >> >>だいたいこんな感じの事を想定しております。 >>現在、ご指導により１．が完成しております。２．以降がよく分かりません。 >>テーブルの構成は、１．と同じく画像パス(写真)、製品名、価格です。管理番号だけ追 >>加という形になる予定です。 >9品目を1レコードとするなら1.と同じテーブル構成はありえません。 >また管理番号の追加規則もわかりません。 > >「テーブルを追加」ではなくレコードの追加ですかね？ >SELECT INTO ではなくてINSERT INTOになりませんか？ > >とにかくテーブルの構成を検討してご提示ください。 おはようございます。お世話になります。 予めテーブルを作っておく必要があるという事ですかね？ となると、こうちゃんさんの言うとおりテーブルではなくレコードの追加ですよね。 テーブル構成は、任意選択でフォームに表示した画像パス1〜9、製品名1〜9、価格1〜9 それと管理番号です。これを1レコードとして別テーブルに保存したいと思います。 管理番号の規則性は、項目名を「ID」として1から始まってレコードが増える度に+1を 加算していく方法で考えています。これについては、下記のコードで予定しております。 Dim IDMax As Variant IDMax = DMax("ID", "テーブル名未定") If IsNull(IDMax) Then Me.ID = 1 Else Me.ID = IDMax + 1 End If レコードの追加方法についてご教授頂きたくお願いいたします。 度々申し訳ありません。 |
| みりんさん、こんにちは >>> いわゆる商品カタログを作りたい訳です。 商品カタログのイメージをつかみきれません。^^; >Dim IDMax As Variant > > IDMax = DMax("ID", "テーブル名未定") > If IsNull(IDMax) Then > Me.ID = 1 > Else > Me.ID = IDMax + 1 > End If 追加クエリでも可能だと思いますが、SQLでやられるならHELPでJET SQL リファレンス-データ操作言語-INSERTを参照してください。 あわせてADOのリファレンスでExecuteメソッドも確認しておいてください。 SQL文および実行文はこんな感じになると思います。 strSQL="INSERT INTO テーブル名未定(管理番号,画像パス1,・・・・価格9) VALUES(" & Me.ID & "," & Me.画像パス1 & "," & ・・・・・ & ")" DataConn.Execute strSQL テーブル等が決まってコード書いてみて不明な点があったら、具体的に質問してみてくださいね。 |
| ▼こうちゃん さん： >みりんさん、こんにちは > >>>> いわゆる商品カタログを作りたい訳です。 >商品カタログのイメージをつかみきれません。^^; > >>Dim IDMax As Variant >> >> IDMax = DMax("ID", "テーブル名未定") >> If IsNull(IDMax) Then >> Me.ID = 1 >> Else >> Me.ID = IDMax + 1 >> End If > >追加クエリでも可能だと思いますが、SQLでやられるならHELPでJET SQL リファレンス-データ操作言語-INSERTを参照してください。 >あわせてADOのリファレンスでExecuteメソッドも確認しておいてください。 > >SQL文および実行文はこんな感じになると思います。 > >strSQL="INSERT INTO テーブル名未定(管理番号,画像パス1,・・・・価格9) VALUES(" & Me.ID & "," & Me.画像パス1 & "," & ・・・・・ & ")" > >DataConn.Execute strSQL > >テーブル等が決まってコード書いてみて不明な点があったら、具体的に質問してみてくださいね。 ありがとうございました。 頑張ってコードを書いて見ます。 多分つまづいてしまう可能性大なので、その節はまたお世話になってしまうかも知れません。自分でも良く考え勉強しながらやってみます。 |