2016-06-30 11 views
0

私はアクセス初心者です(2013年使用)ので、これはシンプルなものです...私はGoogleとYouTubeのビデオからこれを理解しようとしましたが、より混乱しています。MS Access - auto complete

私はプロジェクト管理データの入力と表示に使用しているフォームを持っています。このフォームには、1)TblClients、2)TblProjects(各クライアントは複数のプロジェクトを持つことができる)の2つの関連テーブルのデータが含まれています。クライアントは「内部」または「外部」...とすることができ、これはTblClientsの「ExternalClient?」というフィールドを介して割り当てられます。はい/いいえコンボボックスを使用します。

TblProjectsでは、外部クライアントにのみ必要なプロジェクト固有の管理タスクを追跡するために使用されるいくつかのフィールド(「QuoteGenerated?」、「ServiceContractExecuted?」など)があります。これらのフィールドは、Yes、No、またはN/A internalを含むコンボボックスです。フォームのこれらの各フィールドは、デフォルトで「No」になっています。

フォームが動作している - 私は何に苦しんだが、次のさなど

をしかし、私は手動で「QuoteGenerated」の各項目を割り当てる必要があります:私は、データ入力フォームに新しいレコードを追加し、選択したときプロジェクトのクライアント(clientIDコンボボックスを使用)を使用して、それぞれのフィールドを「QuoteGenerated?」、「ServiceContractExecuted?」クライアントが内部であれば "N/A内部"になるようにします。これらのエントリは、TblProjectsに格納する必要があります。コンボボックスを保持して、各タスクが完了したら「はい」に設定してこの値を保存することもできます。

ご意見ありがとうございます...私に詳細をお知らせください。

乾杯!

EDIT:@MNavaviご返信ありがとうございます。外部クライアントYを含むコンボボックスの(それが制御源である必要はない?)ExternalClientが名前です

Private Sub ExternalClient__AfterUpdate() 
    If ExternalClient.Value = "Yes" Then 
     txtAdminQuote = "No" 
     txtAdminToLegal = "No" 
     txtAdminToClient = "No" 
     txtAdminFromClient = "No" 
     txtAdminExecuted = "No" 
    Else 
     txtAdminQuote = "N/A (internal client)" 
     txtAdminToLegal = "N/A (internal client)" 
     txtAdminToClient = "N/A (internal client)" 
     txtAdminFromClient = "N/A (internal client)" 
     txtAdminExecuted = "N/A (internal client)" 
    End If 

/:何かはしかし私のために働いていない...私は、次のコードを追加しましたN、AdminQuote、AdminToLegalなどは、入力するフィールドの名前です。
私が間違っていることは何ですか?ありがとう。

答えて

0

あなたは上のイベントタブ

3-

の1- VBA

によってこの問題に対処次にデザインを選択モードと性質についてあなたのコンボボックス

2 - をクリックして右クリックでフォームを開くことができます更新イベントには、次のコードのようなコードを追加した後:

Private Sub cmbExternalLink_AfterUpdate() If cmbExternalLink.Value = "Yes" Then txtQuoteGenerated = "Yes Value" txtServiceContractExecuted = "Yes Value" Else txtQuoteGenerated = "No Value" txtServiceContractExecuted = "No Value" End If End Sub

それを楽しむに