お世話になります。
伝票の登録フォームを作ったのですが
コンボボックスを設定したためマウス操作とキーボード入力が入れ替わります。
少しは軽減しようと、規定値設定の活用を考えたのですが行き詰っています。

取引の目的によって借方勘定科目と貸方勘定科目の内容はある程度決まります。
目的テーブルに借方勘定科目、貸方勘定科目規定値のフィールドを設定してこれに備えましたがこの先がわかりません。

伝票の登録フォームを添付しますのでこれをもとに教えて頂けると助かります。

フォームは日付、目的を入力するメインフォーム「仕訳伝票入力」
と勘定科目金額を入力するサブフォーム「仕訳伝票入力サブ」の構成です。

添付は目的のコンボボックスをクリックしたところです。
借方の28 貸方の2をサブホームのそれぞれの項目の規定値に設定したいのですが

「ACCESSのテキストボックスの規定値を」の質問画像

このQ&Aに関連する最新のQ&A

A 回答 (1件)

よ~く、考えてください



"DefaultValue/既定値" プロパティ - Access - Microsoft Office Online
http://office.microsoft.com/ja-jp/access/HA01232 …

> 設定値は、新しいレコードを作成するときにフィールドに自動的に
> 入力されるテキストまたは式です。

と、あるように、サブフォームに、「水道光熱費」と入力する前に、既定値として、設定する必要があります
新規レコード作成時に、自動的に入力される値の話ですので、質問されている主旨からすれば、既定値で設定するものでは、無いように思われます

もう少し、相関関係が判れば、アドバイスのやりようがあるとは、思いますが、現在のところ、こんな説明です
    • good
    • 0
この回答へのお礼

ご回答有難うございます。
情報の足りない質問になりました。すみません

規定値の動作が便利かと思いこういう質問になりましたが
同じ様な動作が出来る手法があればお教え下さい。

補足質問の積もりで新しく起こしました
http://kikitai.teacup.com/qa4981641.html
こちらも宜しくお願いします。

お礼日時:2009/05/22 21:52

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q複数のテキストボックスのフォントの色を同時に変更したい

word2003で、複数のテキストボックスのフォントの色を同時に変更したいのですができません。

2つのテキストボックスを複数同時選択して、
図形描画ツールバー上のアイコンで
・塗りつぶし
・線の色

は同時に変更できたのですが、

なぜかフォントの色だけはアイコンを教えても
その色に同時に変更することができません。

1つ1つのテキストボックスだけならフォントの色を変更することは
できるのですが、
なぜ複数のテキストボックスのフォントの色を同時に変更できないのでしょうか?

設定等、ご存じであれば教えてください!

Aベストアンサー

[テキストボックス]は、一つだけを選択した場合にはフォントの設定が
できますが、複数のテキストボックスを[ Shift ]キーなどで選択した
場合はフォント設定できない仕様です。
メニューから[書式]を開いてみれば、[フォント]がアクティブではない
(使用不可)の状態になっているのを確認できると思います。
(もちろんツールバーの[フォントの色]ボタンも使用できない)

複数のテキストボックス内の文字列の色を変更するなら、[ Ctrl ]キー
でテキストボックス内の文字列をすべてドラッグするなどして選択して
から変更するか、マクロで変更するしかないと思います。

複数のテキストボックス内の文字列が、[テキストボックス]ツールバー
から[テキストボックスのリンクの設定]ボタンでリンクしている場合、
全選択(Ctrl+Aキー)するだけで変更することは可能ですから、この方法
で対応することもできますね。

QAccessのコンボボックスに連動して、サブフォームを表示させたい。そ

Accessのコンボボックスに連動して、サブフォームを表示させたい。そして、そのサブフォームに新しいデータを追加したい。

コンボボックスに連動さして、サブフォームを表示させるやり方は、検索して見つける事ができました。
そのページはこちらです。
http://www.nurs.or.jp/~ppoy/access/access/acF028.html
しかし、データをサブフォームに追加しようと思うと上記リンク先のやり方では出来ませんでした。

何か方法はないでしょうか?

Aベストアンサー

ANo.1です
URLを参考にしていろいろやってみました。
出来ました!!! こんなの初めてです。

URLを参考にされたのであれば
・コンボボックス名は「CMB_県名」となっていますか ?
・コンボボックスの対象項目は県名のみですか ?


例では tbl参加住所サブと tbl_prf テーブルから 選択クエリーを経由して サブフォームを作ってメインフォームに都道府県のコンボボックスを配置しています。

サブフォームになるフォームは作成できますね

メインフォームは空のフォームから始めます。
1.フォームヘッダーにTbl_Pref(都道府県リスト:都道府県ID,都道府県名) のコンボボックスを配置します。
2.tbl参加住所サブを詳細欄へドラッグするとサブフォームとして配置できます。
3.サブフォームプロパティーでリンクを定義して完成です。
 ただしこの場合ナビしてくれませんので直接入力することになります。
 リンクの対象となる項目は同じデータ形式でなければなりません。

Qexcel2007のテキストボックスでコピペしたらフォントサイズが継承されない

excel2007のテキストボックスで、そこに入力した文字をコピペした際、コピー元のフォントとは異なるフォントサイズで張り付けられてしまうのですが、コピー元と同じフォントで貼り付けするように設定できないのでしょうか?

操作例
1)テキストボックスを挿入
2)そこに「あああ」と入力(最初はサイズ「11」になります)
3)テキストボックス全体のフォントをサイズ「9」に設定(文字が小さくなる)
4)「あああ」をコピーして、貼り付け
5)サイズ9の「あああ」が張り付いてほしいのに、サイズ11の「あああ」が張り付く

要は、全部フォント9で作業したいんですが、コピーの度にサイズ11な文字列が挿入されるので、いちいち変更しなければならず、これを解消したいと思っています。

やった事
・テキストボックスの既定値をサイズ9にした
・「EXCELのオプション」で「新しいブックの作成時」のサイズを9にした

ご存じの方いらっしゃいましたらお願いします。

Aベストアンサー

回答No2です。確かにコピーして貼り付けるとフォントが11になっていますね。そのときは「貼り付けのオプション」が表示されますので、そこから「元の書式を保持」を選択すればフォントは9になりますね。しかし、面倒な操作ですね。
いっそのこと文字をコピーして貼り付けるのではなく、その文字の入ったテキストボックスを選択してCtrl+Dでコピーを作成して使用するのが便利かもしれませんね。お役に立てなくてすみません。

QAccessフォームで最後の伝票の重複入力防止処置

お世話になります。
他の質問と回答を探しましたが、適当なものが無かったので、質問します。

Access2013です。

●フォーム入力時に当日すでに入力済みの明細IDがあるときは、入力できない様にしたいです。
入荷処理のシステムを作成中です。(入力は、バーコードリーダーで発注明細IDを読み込みます)

If DCount("*", "入荷処理クエリ", "[発注明細ID]=[テキスト_発注明細ID]") > 0 Then

MsgBox "入力済みです"
Cancel = True

With [テキスト_発注明細ID]
.SelStart = 0
.SelLength = Len(.Value)
End With

End If

入荷処理クエリーで当日入荷処理済みの発注明細IDを抽出してます。
バーコードを再読込すると入力済みのメッセージが出ます。

入力の途中なら、他の伝票のバーコードを読み込めが良いのですが、最後の伝票で
バーコードの二度読み込み(重複)した場合、そこで入力作業を終わりにしたいの
ですが、他をクリックしても「入力済みです」のメッセージから、抜けられません。

最後の伝票が重複してスキャンされた時の終了方法が、知りたいです。

分納の場合があるので、前日までにその発注明細IDの入力されていた場合は、「入力済
みです」は表示されません。


よろしくお願いします。

お世話になります。
他の質問と回答を探しましたが、適当なものが無かったので、質問します。

Access2013です。

●フォーム入力時に当日すでに入力済みの明細IDがあるときは、入力できない様にしたいです。
入荷処理のシステムを作成中です。(入力は、バーコードリーダーで発注明細IDを読み込みます)

If DCount("*", "入荷処理クエリ", "[発注明細ID]=[テキスト_発注明細ID]") > 0 Then

MsgBox "入力済みです"
Cancel = True

With [テキスト_発注...続きを読む

Aベストアンサー

Undoを使ってみてはどうでしょうか?
http://www.accessclub.jp/actips/tips_71.htm

Qテキストボックスのフォントサイズの復元

エクセルのシート上にある、図形のテキストボックスのフォントサイズに「12」をセットしておいて、シート上に配置してあるコントロールボタンをクリックする事で、変更されたサイズから「12」へもどす仕組みを作りたいのですが・・・

テキストボックスのフォントサイズ 「12」から、テキストボックスをアクティブにし、ツールバーでフォントサイズを変更する。
↓ ** その後
シート上に配置されたボタンを押すと元の「12」に戻る

※ エクセル97、2000で使用(作成は97)

こんなことできますか? できれば、どなたか教えて下さい。宜しくお願いします。

Aベストアンサー

「テキストボックスの大きさを、基準の大きさの戻す(エクセルVBA)」と同じ前提です。

シート1のコードウインドウに貼り付け(例)
Private Sub CommandButton12_Click() 'フォントを元に戻すボタン
Font12set tbxClickName
End Sub

標準モジュールに貼り付け
Public Sub Font12set(txtName As String) 'フォントサイズを12に戻す
If Len(txtName) <> 0 Then '選択したテキストボックス名
With ActiveSheet.Shapes(txtName) '選択したテキストボックス
.TopLeftCell.Select
.Select
With Selection
.Font.Size = 12
.ShapeRange.Fill.ForeColor.SchemeColor = 65
End With
.TopLeftCell.Select
End With
End If
tbxClickName = ""
End Sub

「テキストボックスの大きさを、基準の大きさの戻す(エクセルVBA)」と同じ前提です。

シート1のコードウインドウに貼り付け(例)
Private Sub CommandButton12_Click() 'フォントを元に戻すボタン
Font12set tbxClickName
End Sub

標準モジュールに貼り付け
Public Sub Font12set(txtName As String) 'フォントサイズを12に戻す
If Len(txtName) <> 0 Then '選択したテキストボックス名
With ActiveSheet.Shapes(txtName) '選択したテキストボックス
....続きを読む

Qリストボックスとサブフォーム【AC97】

リストBOXとサブフォームを使った処理で悩んでおります。
リストBOXで指定したらそれに該当するレコードをサブフォームに一覧表示させたいのです。
目的は図書管理みたいなものでリストBOXには著者一覧(著者ID、氏名、コメント)が表示されておりそこから1つ(複数不可)指定してマウスでクリックするとその著者書籍がサブフォームに一覧表示される(書籍ID、書籍名、出版社、棚番)、っていうような代物です。テーブル2つ程度なのですがアクセスを触り始めたばかりでまだヘルプも上手く引けずそもそも基本がまだ判っていないため四苦八苦です。アドバイスやヒントだけでもと思いお願いしました。環境はアクセス97+WIN98です。
よろしくおねがいします。

Aベストアンサー

とりあえず動くというレベルであれば以下のようにすればよいかと。
***
書籍絞込み用のクエリー"qSIBORI"を作る。
レコードソース(?)は書籍のテーブル。
クエリノーフィールドは書籍ID、書籍名、出版社、棚番号を表示ありに、著者IDを表示無しにし、抽出条件を [Forms]![frmKENSAKU]![lstTYOSYA] にする(lstTYOSYAは検索用フォームのリストボックスの名前です)。

サブフォーム用のフォーム"frmSIBORI"を作る。
形式はデータシート
レコードソースは"qSIBORI"。

検索用のフォームを作る。
リストボックス"lstTYOSYA"を設置、値集合ソースを著者のテーブルに、列数を3に、更新後処理のマクロで、再クエリー-コントロール名は"sfSIBORI"を設定。
サブフォームを配置、ソースオブジェクトを"frmSIBORI"に設定。
***

QPowerPointでテキストボックスで文字入力しフォントなどをもとし

PowerPointでテキストボックスで文字入力しフォントなどをもとした後、「既定のテキストボックスに設定する」を選択しました。その後その既定を元に戻したい(初期化)したいんですがどうしたらいいでしょうか?

Aベストアンサー

「ホーム」タブのフォントグループにある「書式のクリア」を指定して、「既定のテキストボックスに設定する」を再指定でどうでしょうか。
 

Qサブフォームからメインフォームに移動

 現在ACCESS2000を使用してシステムを作成しております。のですが、サブフォームからメインフォームの特定のコントロールに移動したいと思っています。しかし、ちょっとやり方がわかりません。わかる方よろしくおねがいします。

Aベストアンサー

サブフォーム側のVBAで移動ということですよね?

メインのコントロール名を[txtMainBox]とすると、

Parent!txtMainBox.SetFocus

ですね。
サブフォーム側のコードです。

Qテキストボックス デフォルトでフォントを設定したい

アウトラインにタイトルを入れた際、スライドに表示されるテキストボックスがありますが
このテキストボックスのフォントをデフォルトで指定する方法はありますか?

今はサイズが44の黒ですが、
例えばサイズが20の赤にしたい場合は、どのように設定すればいいでしょうか?

一つ一つのスライドのテキストボックスを手作業で治すしかないですか?

Aベストアンサー

> 今はサイズが44の黒ですが、
> 例えばサイズが20の赤にしたい場合は、どのように設定すればいいでしょうか?

PowerPoint2010をお使いだと思いますので、次のように操作してみて下さい。

1) 「表示」タブ→「マスター表示」グループの「スライドマスター」の順にクリックします。
2) 表示される「スライドマスター」タブの左窓で、変更したいスライドを選択して、右窓の変更したいテキストボックスの「マスター タイトルの書式設定」などの文字列を選択して、右クリックから「フォント」をクリックします。
3) 表示されるダイアログボックスの「フォント」タブで、「サイズ」や「フォントの色」をご希望のように変更して、「マスター表示を閉じる」をクリックします。
4) 通常の画面に戻ると、変更した内容が表示されると思います。

以上のように設定したPPTファイルを自作のテンプレートとして保存しておけば、何時でもテンプレートを使用することで同じ設定が使えます。

「スライドマスタの設定|PowerPointの基本操作」
http://yamanjo.net/beginner/ppt/ppt_06.html

「8-1.デザインテンプレートの作成と利用」
http://wm.tamagawa.ac.jp/manual/Bb/user/Office/2010/PowerPoint2010/PowerPoint2010_8-1.htm

> 今はサイズが44の黒ですが、
> 例えばサイズが20の赤にしたい場合は、どのように設定すればいいでしょうか?

PowerPoint2010をお使いだと思いますので、次のように操作してみて下さい。

1) 「表示」タブ→「マスター表示」グループの「スライドマスター」の順にクリックします。
2) 表示される「スライドマスター」タブの左窓で、変更したいスライドを選択して、右窓の変更したいテキストボックスの「マスター タイトルの書式設定」などの文字列を選択して、右クリックから「フォント」をクリックします。
3)...続きを読む

Qaccess 2000フォーム検索 サブフォームじゃだめ?

access 2000でフォームにリレーションされたサブフォームを設置したのですが、使う段になってから気づいたのですが、サブフォームの検索できないんですね。
できないというか、リレーションされた結果が表示されるので、その中での検索となってしまう。

フォーム内容が1体多となっている。

テーブルA
id name
1 aoki
2 sasaki

テーブルAのidとテーブルBのuidはリレーションされている。

テーブルB
uid book
1 辞典
2 漫画
1 ノート

テーブルAのid1 aokiを表示しているフォームで、テーブルBの「漫画」で検索した際に検索できるようにするにはどうすればいいでしょうか。

Aベストアンサー

>サブフォームの検索できないんですね。
>リレーションされた結果が表示されるので、その中での検索となってしまう。
検索できないのではなくリレーションそのままでフォーム・サブフォームを作ったのでそのようにしか出来ない状態なんです。
サブフォームのプロパティでリンク子フィールドとリンク親フィールドの設定が現在はuidとidになっているのでこれを外せば出来るようになります。
フォームの抽出条件のテキストボックスなどのコントロールを使ってサブフォームに抽出したレコードをセットしサブフォームをRequeryすれば出来ます。
またはサブフォームのFilterに条件を代入してサブフォームをRequeryすれば出来ます。


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報