• 締切済み

マイクロソフト・アクセス+VBで・/既定値

kikaida-の回答

  • kikaida-
  • ベストアンサー率69% (37/53)
回答No.1

結論からいえば、ないです。 Accessというソフトは項目の書式とかは自由に設定できますが、それ以上のことはVBAでやる方針なんだと思います。

situmonnsya
質問者

補足

そうでしたか。 残念！！

この回答がついた質問に戻る
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • アクセスフィールドに既定値

    アクセス２０００を使っています。 例えばフォームのフィールド1に入力すると、フィールド2に最初からフィールド１の内容が表示され、変更することも出来るようにはならないでしょうか？ 既定値として、フィールド名を入力するなど出来ないでしょうか？ よろしくお願い致します。

  • Access サブフォームにフィルター後、計算

    Access2003です。 1.サブフォームにフィルターをかけてレコードを抽出 　（フォームフッターで合計値を計算するフィールドを用意しておく） 2.その合計値を利用した計算結果をカレントレコードのフィールドに自動入力 これを１つのプロシージャで行いたいのですが、うまくいきません。 1と2を分けるとうまくいきます。何か方法はありますでしょうか。 具体的に… サブフォームのカレントレコードの[西暦]フィールドにある値と同じ値が入っているレコードを抽出。 抽出されたレコードの合計をフォームフッターで算出。（[原価合計][受注高合計]） [カレントレコードの売上高]＝[（カレントレコードの）原価]/[原価合計]*[受注高合計] ※全体の原価に占めるカレントレコード原価の割合で、売上高を算出します。 これを一括処理しようとすると、フィルター後の[原価合計][受注合計]の算出が間に合わないのか、「０で除算しました」とエラーが出ます。 フィルターをかけるのと、売上高を求めるのを別々のプロシージャに分けて順に実行するとちゃんと算出できます。 一括でやりたいのですが、良い方法はありますか? 宜しくお願いします。 ※前回もAccessの質問をさせていただきましたが、お礼を入力する前にベストアンサーを決定してしまったため、お礼ができませんでした。回答者の皆さんその節はありがとうございました！

  • Access2000で変数が初期化されないようにする

    フォームを開く際にインプットボックスで担当者名を入れて変数に格納、そのフォームにおけるレコードの登録ごとに、その担当者名をあるテーブルのあるフィールドに毎回入れようとしているのですが、１レコード目はいいのですが、２レコード目以降は変数が初期化されてしまうらしくエラーが出ます。そのような場合に静的変数？を使ったような気がするのですが、どのようにコーディングするのでしょうか？どなたか教えて下さい。よろしくお願いします。

  • アクセスで単票でリスト内もフィルタかけたい

    2002アクセスを使っている初心者です。社員名簿を作っています。テーブル社員名簿.TBL、フィールド「氏名」・・・その他について、単票フォームを作成しました。ツールボックスより、リストコントロールを選択して、貼り付けると、リストボックスウイザードが立ち上がり、その中の3つのメニューの3番目の「リストボックスで選択した値に対応するレコードをフォームで検索する」を選択して、フィールド「氏名」を元に検索してその氏名のレコードの情報をを表示するようにしました。社員全データでは、調子良く動いています。この度、「課」別に表示しようとしています。メニューバーの中のフィルタ（漏斗の絵）を使って、選択フィルタで目標の「課」選択して、実行フィルタを押すと、単票フォームのレコード数は変化して、うまくフィルタしますが、リスト内の「氏名」データがフィルタされません。どうしたらクリックと同時にリスト内のフィールド「氏名」もフィルタされるのですか？宜しくお願いします。

  • ACCESS VBAサブフォーム(DATA SHEET)の値の取得方法

    いつもお世話になっております。 ACCESS VBAでメインフォームに貼りついているサブフォームの値をとりたいのですが、うまくいっていません。 現状は module1でaをPublicで宣言 サブフォーム中のFORM_CURRENT()中で me.field1.setfocus a = me.field1.value として取得しています。 (実装ではメインのほうのボタンAを押したときに サブフォーム、FORM_CURRENT()で取得しておいた値を 別の変数に入れようとしています。) サブフォームのみで実行するとうまくいくようですが、 メインフォームに貼り付けるとうまくいかないようです。 (メインフォームに貼り付けて、サブフォームのFORM_CURRENTにブレイクを 貼って止めようとするが止まらない) そこでメインフォームボタンAクリックイベントで dim a1 as integer Forms![mainform]![subform].form.[field1].setfocus a1 = Forms![mainform]![subform].form.[field1].value として値をとろうと思ったのですが メインフォームからサブフォームにフォーカスをうつせない？ らしく、サポートされていませんの旨のメッセージがでてしまいます。 やりたいこととしては、メインフォームに貼りついたサブフォームの 選択レコードのフィールド値を、メインフォームのボタンを押したときに 取得する。ということなのですが、うまくいっていません。 別の方法でもいいので、実現方法をご存知の方、よろしくお願いします。 ちなみにACCESSは2000を使用、ADOはサポートされていますがDAOは 非サポートのようです。

  • アクセスのフィールドに値をペースト（VB・Access）

    Visual Basic 2005 Express Editionで、 フォーム上のボタンをクリックすると変数内の文字列を Accessフォームの特定のフィールドにセットするというVBを作りたいのですが、 AccessのVBは未経験であるため難儀しております。 Accessのフィールドに値を入れるところがわかりません。 AccessVB初心者の同僚は以下のように教えてくれましたがまったく動きません。 Dim copy_text Dim myAccess copy_text = "○○株式会社" set myAccess = CreateObject("Access.Application") myAccess.Forms("フォーム1").Controls("会社名").text = copy_text 本来"○○株式会社"は変数ではなくクリップボード内に入っています。 なのでクリップボード内の値をアクセスのフィールドにペーストするのでもかまいません。 ネットはいろいろ調べていますが、未経験の自分は基礎編・入門編であっても理解できません。 未経験の自分が作ることに問題がありますが、他にやる人がいないので仕方がありません。 どなたか助けて下さい（涙）

  • Accessマクロの抽出でどうしたらいいでしょうか？

    図のようにフォームには商品テーブルのフィールドを配置しています。 上のテキストボックスには、[商品グループ]の値と等しいレコードを抽出するよう入力します。 [抽出]ボタン：フィルタを実行 [解除]ボタン：フィルタを解除して、すべてのレコードを表示 それぞれクリック時のイベントに割り当てたマクロは以下です。 《マクロ名》《アクション/引数》　　《値》 　抽出　　　　フィルタの実行 　　　　　　　　Where条件式　　　　　[商品グループ]=[Forms]![抽出]![txtキー] 　解除　　　　全レコードの表示 　　　　　　　値の代入 　　　　　　　　アイテム　　　　　　[txtキー] 　　　　　　　　式　　　　　　　　　NULL このようにしましたが、フィルタはフォームの起動時初回は出来ますが、[解除]ボタンを押して[抽出]ボタンを押すと再度の抽出はできません。 初回の１回だけは抽出できるんですけど・・・続けて抽出できるようにするにはどうしたらいいでしょうか？

  • アクセスVBについて

    メインフォームA（非連結） F_main上に コマンドボタンA cmd_AとサブフォームB（クエリに連結しておりメインフォームAとリンクはなし） sbf_Bがあります。 sbf_Bには連結したクエリのフィールドに対応するコンボボックスやテキストボックス が配置されフォームフッターには合計金額等sbf_Bのレコードのフィールドの合計を 表示するテキストボックス txt_total に演算式 （=sum([field])) と 同様にsbf_Bのレコードに対してフィルタを実行するドグルボタン dgl_filterがあります。 F_main.cmd_Aをくりっくすると サブフォーム上のｔｘｔ＿totalの値を取得する。 その際にsbf_Bのフィルタが実行状態（dgl_filterが押された状態）の場合は 強制的に外してtxt_totalの値を取得したい。 以下のコードで実行すると..... ************************************ メインフォーム上のコマンドボタンAをクリック Private Sub cmd_A_Click() モジュールA.プロシージャA End Sub ************************ ***************************** sub プロシージャA dim myTotal as long rem サブフォームBのフィルタ解除して値を取得 with forms("F_main").sbf_B.Form .FilterOn=false .dgl_filter.value=0 myTotal=.txt_total end with msgbox myTotal end sub **************************** 実際の振る舞い dgl_filterが押されていない状態でcmd_Aをクリックすると メッセージボックスは値を取得するが dgl_filterが押されているとメッセージボックスの値が空白になる こうした動きになる理由を教えてほしかったのですが 分る方いるでしょうか？ フィルタをオンオフ直後に値が取得できない理由 もしくは理由はなくそういった仕様なのか？ 補足 あっアクセス２００２です。

  • アクセス　フォームをリクエリしたい

    フォームAを閉じて、フォームBのテーブルに基づいたデータをリクエリ（更新）したいのですが DoCmd.Close acForm, "フォームA" DoCmd.Requery "フォームB" 実行時エラー2109　「カレントレコードには、フォームBという名前のフィールドはありません。」となってしまいます。 フィールド名ではなくフォームB全体を更新したいのですが、どうすればいいでしょうか？ フォームBは開いている状態です。

  • ACCESSのフォームで［条件付き書式］をVB2005のGridView内で出来ないでしょうか

    VB2005が超初心者ですがよろしくお願いいたします。 ACCESSのフォームで［条件付き書式］ みたいな事をVB2005のGridView内で 条件の値に等しいレコードの 特定セルの色だけを変えたいのですが・・・ よろしくお願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する
質問する