'例'タグの記事
2010年10月16日（土曜日）|
ブログを更新せずにいくつかの時間後、私は最終的に販売システムを更新するためにいくつかの時間を得た。 多くの読者は尋ねた、システムのログインパスワードのために得ることができませんでした。 だから、私は簡単にアクセスするためのログインシステムを削除しました。
これとは別に変化から次の変更を行いました。
V 0.5.0（2010年8月19日）
- ログインとユーザーを削除しました。
- 製品テーブルのフィールド（家族、IVAと団結）を追加しました。
- 私は、VATのテーブルを作成しました。
- [商品]フォームの修正。 （新しいフィールド、見て、レコードを検索するための新しい方法）。
- 私はテーブルの家族（製品の）を作成しました。
- ショッピングのフォームは一度に1つの製品を挿入されている変更されました。 私は、あなたが特定のサプライヤで購入された複数の製品を入力することができますフォームをご購入の形で置く。
ダウンロード： 2010販売
機能を修正または追加するには、新しい更新プログラム内のすべてのコメント。
しばらくの間、ファイル内のアクティビティがある場合、ファイルが削除されているので、将来的に私は、ファイルのダウンロードされている場所の位置を変更する方法について考えています。 だから私は起きないようにこのための簡単な共有への代替を目指します。
次の投稿で、私はこのここに既にあるものと同様の利点の計算方法のバージョンをあげるよポストではなく、毎月の支払いを持っていることの唯一の各割賦間の経過日数を選択することができます。 また、この例では、リーダー（からの質問に答えるのに役立つでしょうマルセロ ）。
で掲示される例としては 、 Forms 、 完全システム | 14コメント»
2009年5月2日（土曜日）|
時にはそれがクエリを実行ており、登録が必要とされません場合など、表示するレコードがあるかどうか開いているフォームを防ぐために必要ですが、私たちが表示するデータがないため、オープン形式であるにはありません。 だから我々はチェックしなければならないどのようなメッセージを表示し、フォームを開い妨げないが存在しない場合、表示とするレコードがあるかどうかです。 方法は？
それはちょうど "開いて"イベントで、フォームのプロパティで以下のコードを配置するのは簡単です。
Form.RecordsetClone.RecordCount場合= 0
MsgBoxに "いいえレコードが見つかりませんでした。" VbExclamation、 "エラー！"
DoCmd.Close acForm、 "データ検索"
Subプロシージャを終了する
終了する場合
例を参照するにはダウンロード： フォームが開い防止
で掲示される例としては 、 フォーム 、 モジュール | 2コメント»
2008年12月11日（木曜日）|
me.keypreview = TRUE： - 1の構造やイベントでの注文フォームを作成するフォームのプロパティにある "クリックすると、 '次のコマンドを入力します。
またはこれは、キーボードイベントが最初の形式で受信されていることを確認しようとしている。
2 - フォームのプロパティで、イベント "ボタンをクリックすると、以下に"次のコードを配置：
します。Private Sub Form_KeyDown（KeyCodeを整数として、整数としてシフト）
ケースKeyCodeを選択します。
ケースvbKeyF2
にDoCmd.OpenForm "Form1"の
ケースvbKeyF3
にDoCmd.OpenForm "フォーム2"
ケースvbKeyF4
にDoCmd.OpenForm "formulario3"
ケースvbKeyF5
ダブル点心電卓として
電卓=シェル（ "CALC.EXE"、vbNormalFocus）
ケースvbKeyF6
DoCmd.Close
Case Elseの
選択して終了
End Subの
これは何するには、次のとおりです。
- F2キーを押すことでForm1を開きます。
- F3キーを押すことでForm2を開きます。
- F4キーを押すことでformulário3を開きます。
- F5キーを押すとWindowsの電卓を開きます。
- F6キーを押すことでフォームを閉じる
ファンクションキーF1、F2に加えて、...等では、我々はまた、機能を実行するために他のボタンを使用することができますが、私たちがフィールドにデータを書き込むために使用されるキーを使用することが適していない形式でデータを入力するのであればあることを念頭に置いて。
もう一つは、それだけでは、上記のコードを入れてフォーム上で動作することです。
ダウンロード： キーを
で掲示される例としては 、 フォーム 、 モジュール | 1コメント»
2008年9月20日（土曜日）|
これは、私たちは、このメニューだけで開いているフォームを必要とするので、開いているフォームの面で時間、コードの行数と優れた配置を保存することができますメニューのようなものです。 開いているフォームの数を減らすことに加えて、各フォームを開くには、メニュー内のボタンの数が減少します。
メニューのこのタイプは、確かにしばらくの間存在していると、すでにアクセスの多くのユーザーによって使用されます。
したがって、このメニューはどこにあるのでしょうか？
我々はそれを介して開くために計画しているすべてのフォームを含むコンボボックスを使用してメニューを作成してみましょう。 コンボボックスからオプションを選択すると、アプリケーションのフォームがサブフォーム内に表示されます。 その後、我々はステップバイステップのメニューを作るために開始します。
1 - 私達はあなたが開きますフォームの各フォームと名前を付けたい名前を格納するテーブルを作成してみましょう。 例では、私には、次のフィールドを持つテーブル 'tblmenu "を作成しました。
フィールドタイプ
Nomedomenuテキスト - メニューに表示されます>名前（コンボボックス）
フォームのテキスト - 開きますフォームの>名前
後の例で導入されたデータは、次のとおりです。
NomedoMenuフォーム
アカウントをForm1
預金Form2の
動きformulario3
アカウント·ボックスformulario4
アカウント - アカウントformulario5
抽出formulario6
2 - 次に、前のテーブルからクエリを作成します。
Tblmenuは、テーブルを選択し、次に我々はメニューを我々は、フォームを開こうとするかなりの数を見つけやすいようにソートnomedomenu昇順のために選んだその内の2つのフィールドを選択します。 このクエリに私がCsMenu "と呼ばれる。
3 - のフォーム "メニュー"を作成してみましょう。つまり、デザインビューで新しいフォームを選択します。 次に、コンボボックスを作成し、次のプロパティを変更します。
- 列数：2
- 列の幅は1cm、0センチメートル。
- 線の起源：csmenu（前の段落で作成したクエリの名前である）
4 - 同じ形式では（私はmenuquadroと呼ばれる例では）非連結メインフォームのサブフォームを作成します。 それは、フォームの各メニュー（コンボボックス）から選択する開くされるこの形式です。
5 - 今私たちがサブフォーム内のコンボボックスで選択されているメニューを開くことができますモジュールを作成します。
我々は、モジュールを作成し（私は "abrirmenu"と呼ばれる）と、次のコードを貼り付け：
パブリック関数AtivarMenu（Combmenuコンボボックス、サブフォームsubabrir）
文字列名As Abrirform
=（1）Combmenu.Column abrirform
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
エンド機能
ativarmenu =（[メニュー]、[menuquadro]） 'メニュー'コンボボックスの名前と "menuquadro 'であること：フォーム]メニューの[コンボボックスのプロパティとUpdateイベント後に作成された関数置くに入った後サブフォームの名前。
そして最後にメニューが使用できるようになります。 ちょうど試してみて使用します。 私はこの先端を楽しんだことを望みます。
ダウンロード： メニュー
メニューの写真を下に。
カスタムメニュー
で掲示される例としては 、 Forms 、 モジュール | 12コメント»
2008年6月19日（木曜日）|
これは確かに選手エルトンRuebだった彼も私が助ける前に解決するために管理されます。 あなたがクリックしたときに、フォームを開いたときに挿入され最後まで初めて、開始時刻のいずれかの読者は、それがレコードを挿入するようユーザにかかる時間を測定することを目的として3つのフィールドがあります。されたもの録音ボタンとの差を計算するフィールドを表します。 これは単純な例ですが、2つの時刻の差を計算したい人に欠けている可能性があります。 ので、 エルトンRueb （リオデジャネイロ- RJ -ブラジル）は他の誰かを助けることができる例を提供。
ダウンロード： テスト時間
で掲示される日付 、 サンプル 、 転送例 、 式 、 フォーム 、 時間 | 2コメント»
2008年6月12日（木曜日）|
読者Jacintoの質問を入れてここで 2 0 0 8 0 6 1 2のために2008年12月6日の日付の形式を変更する方法については、応答は、コメントで説明が付いたテキストボックスと同じくらい簡単です以下の式：
=フォーマット（[日付フィールド名]、 "MM DD YYYY"）
0 \ 0 \ 0 \ 0 \ 0 \ 0 \ 0 \ 0 \ 0とフィールドのプロパティは、入力マスク内の次の言葉を入れて
非常にシンプルで使いやすい。 ダウンロードする例に従ってください： フォーマット日付
で掲示される日付 、 例として 、 式 、 フォーム | コメントはまだありません»
2008年5月6日（火曜日）|
この例では、支払いの準備のための方法マネジメントシステムを示しています。
例は、これはボタンをクリックするだけで自動的に作成されないことを示して、データを介して売買契約の利点が入った。 つまり、我々は契約開始日、総支払金額にクライアントの名前を紹介しています。 次に、単にそれが自動的に分割払いの数を生成し、それらの各々によって示された値を分割し、それぞれの割賦の日付（月ごと）を計算 "計算の支払い"をクリックしてください。 これはまた、ボタンをクリックしたときには、各利益のためにレコードを追加しますので、一度に複数のレコードを追加する方法を示し例です。
ダウンロード： 複数のレコードを挿入します。
で掲示される日付 、 サンプル 、 フォーム 、 モジュール 、 レコード | 17コメント»
2008年4月6日（日曜日）|
フォーム上の別の効果を与えたい人のために、より具体的に我々はデータを入力するとき、我々は、カーソルのフィールドの色を変更することができます。 つまり、すべてのデータ入力フィールドには、我々は別の色であることを書いているフィールドよりも白である。
それは非常に簡単ですこれを行うには、フィールドだけを選択し、カーソルがフィールドにあるし、透明に色を変更したときに表示する背景色を選択します。
ダウンロード： 色を変更データフィールド
で掲示される色 、 サンプル 、 フォーム | 10コメント»
2008年3月18日（火曜日）|
選手ジョアンCabritaの要求に応じて読者のニーズに合わせてより具体的には、消防署に適用される制御点は、このフォームを開発しました。
それは基本的な例ですが、それは、従業員の出入り口の制御を行う12時間のシフトで働いていることを確認し、より多くの時間を追加することを意図しているかについて、いくつかのより高度な詳細と協力し、時間に働いた少ない。
このすべては、各従業員の出席の月報のために。
ダウンロード： ポイント
書かれた相談 、 日付 、 例 、 式は 、 フォーム 、 時間 、 レポート | 9コメント»
2008年2月20日（水曜日）|
そこにレコードを入力するにはいくつかの方法があり、最も一般的なテーブルにバインドされているフォームを介して取得することです。 これを行う別の方法、すなわちテーブルとは無関係の独立したフィールドを持つフォームを使用して、無関係のフィールドを介して行われます。 へ
この例の場合には以下のとおりであるコードによって、すなわち、我々は 'レコードセット'を使用してデータを入力します。
ます。Dim DB as Database
Recordsetとして薄暗いRS
MsgBoxには、（ "あなたが書きたいか？" VbYesNoCancel、 "オプション"）=次にvbYes場合
"を押すことにより、コードが最後まで続けそうだとすれば、レコードを保存するかどうかを尋ねられる
DB = CurrentDb（）を設定する
セットrs = db.OpenRecordset（ "データ"、dbOpenTableを）
"登録データを挿入するテーブルを開きます
rs.AddNew
RS（ "名前"）=ミー！INome
RS（ "アドレス"）=ミー！Imorada
RS（ "年齢"）=ミー！Iidade
rs.Update 'は、テーブルにデータを送信します。
rs.Close 'データをクリアして、レコードセットを閉じます
RS = Nothingを設定しない
DB = Nothingを設定しない
Me.INome = NULL 'は、フォーム内のフィールドをクリアする
Me.Imorada = NULL
Me.Iidade = NULL
MsgBoxに "レコード保存"、vbInformation、 "" Done "と表示する確認メッセージ
最初のフィールドにカーソルを移動 'Me.INome.SetFocus
他：終了サブ
終了する場合
ダウンロード： 独立した場所
で掲示される例としては 、 フォーム 、 モジュール 、 レコードは 、 テーブル | コメントはまだありません»
