oka_meのプロフィール

こんにちは、表題のような内容で行き詰ってしまい質問させてもらいます。 現在、商品在庫のデータベースをACCESS2010を使用してなんとか完成させました。 といっても売上管理等しているわけではなく、単に商品のデータベースです。 【テーブル構成】 T_商品 T_ブランド T_ジャンル T_商品を基本にし、T_ブランド、T_ジャンルはルックアップ用です。 T_商品をデータソースとして、入力、検索用に「F_商品」 というフォームを作ってあります。 入力、検索作業ともに問題なく行えており、現在レコード数は400程度ですが今後5000程度までは増えると思います。 表題のようにEXCELを併用するのは、今回WEBショップをはじめ、利用しているECシステムではCSVで掲載商品データをインポートできるので、それを利用しようと思っております。 理想の動作的には、 上記「商品フォーム」でショップに掲載したい（CSVファイルに転記したい）商品を検索し、 「ショップ掲載リスト」などのボタンを作って押すことで「掲載用.xls」などのエクセルファイルにテーブルのフィールドから必要な「商品名」「ブランド」「価格」などを抜粋して転記、 ショップに掲載したい商品、複数をすべて転記したらエクセルファイルをCSVファイルとして保存し、ECシステムにアップロードです。 現在フォームにエクセルファイルに転記用のボタンを作り、VBAで指定のエクセルファイルを起動するところまででき、コードはネットで探して、以下のようになっております。 Private Sub 転記ボタン_Click() Dim objExcel Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Open "エクセルファイルのパス.xlsx" End sub エクセルファイルはテーブルの定義がしてあり名前を「商品テーブル」としてあります。 ACCESS側のVBAでエクセルシート上の商品テーブル内の上から順に転記していくにはどういうACCESS　VBAを書けばいいのでしょうか？ 上からというのは新しく転記する商品を次の行、次の行にということです。 http://okwave.jp/qa/q356182.html こちらの質問も参考にしてみましたが、「.Cells(i, 1) = RS.Fields("フィールド1")」のところでエラーになりました。。。 長々と的を得てない質問文になってしまいましたが、よろしくお願いいたします。

こんにちは。 ACCESSで、フォームに該当の数値が入力されると注目！の意味で その数値を赤太字で表示させたいのですがどのようにしたらよいでしょうか？ 実際には、 MAIN_TABLEというテーブルを元にKEY_INというフォームを作っています。 そのフォームのPO_NOに入力したときに赤太字にしたいです。 注目させたいものはBULLETIN_BOARDというテーブルの CHECK_POというフィールドにリストアップしています。 条件付き書式がいいと分かったので、 KEY_INフォームのPO_NOに設定して、、 フィールドの値 次の値に等しい DLookUp("[PO_NO]","BULLETIN_BOARD","[CHECK_PO]")　 とすると何の数字でも反応して赤太字になってしまいました。 そして、セキュリティの警告のコンテンツを有効化のボタンを押して 再度確認してみると全然反応しなくなりました。 その後、 DLookUp("[PO_NO]","BULLETIN_BOARD","[CHECK_PO]="&[CHECK_PO]) DLookUp("[PO_NO]","BULLETIN_BOARD","[CHECK_PO]='"&[CHECK_PO]&"'")　 も試してみましたがダメでした。 解決法が分からなくて苦労しています。 教えていただけないでしょうか？

こんにちは。 ACCESSで、フォームに該当の数値が入力されると注目！の意味で その数値を赤太字で表示させたいのですがどのようにしたらよいでしょうか？ 実際には、 MAIN_TABLEというテーブルを元にKEY_INというフォームを作っています。 そのフォームのPO_NOに入力したときに赤太字にしたいです。 注目させたいものはBULLETIN_BOARDというテーブルの CHECK_POというフィールドにリストアップしています。 条件付き書式がいいと分かったので、 KEY_INフォームのPO_NOに設定して、、 フィールドの値 次の値に等しい DLookUp("[PO_NO]","BULLETIN_BOARD","[CHECK_PO]")　 とすると何の数字でも反応して赤太字になってしまいました。 そして、セキュリティの警告のコンテンツを有効化のボタンを押して 再度確認してみると全然反応しなくなりました。 その後、 DLookUp("[PO_NO]","BULLETIN_BOARD","[CHECK_PO]="&[CHECK_PO]) DLookUp("[PO_NO]","BULLETIN_BOARD","[CHECK_PO]='"&[CHECK_PO]&"'")　 も試してみましたがダメでした。 解決法が分からなくて苦労しています。 教えていただけないでしょうか？

Excel2003を使って、(既に用意されている)カレンダーから該当日を選択し、 対象のセルにその日付を反映(代入)させる方法について教えてください。 例えば、A1セルに「終了予定日」とあり、隣りのB1セルに日付を入力する際には、 まず(用意されている)カレンダーを表示させ、そこから該当日(2014.3.31)を選択後、 そのままその日付をB1セルに反映(代入)できるようにしたいのですが、 何かいい方法はありませんでしょうか？ 他の質問箱も見て、挿入→オブジェクト→カレンダーコントロール11.0など、 色々試してみたのですが、うまくいきませんでした。 お分かりになる方がおられましたら、分かりやすいご説明よろしくお願いします。

Excel2003を使って、(既に用意されている)カレンダーから該当日を選択し、 対象のセルにその日付を反映(代入)させる方法について教えてください。 例えば、A1セルに「終了予定日」とあり、隣りのB1セルに日付を入力する際には、 まず(用意されている)カレンダーを表示させ、そこから該当日(2014.3.31)を選択後、 そのままその日付をB1セルに反映(代入)できるようにしたいのですが、 何かいい方法はありませんでしょうか？ 他の質問箱も見て、挿入→オブジェクト→カレンダーコントロール11.0など、 色々試してみたのですが、うまくいきませんでした。 お分かりになる方がおられましたら、分かりやすいご説明よろしくお願いします。