オートパーツパーツの説明パーツ番号のテキストボックス

Question

申し訳ありません申し訳ありません。私はvbaをアクセスする前に書いたことがないので書かれていません。私がする必要があるのは、私のフォームにコンボボックスオートフィルを入れて少し時間を節約することです。[部品番号] [部品説明] [標準時] [標準時/時]他の直径は、私はちょうどコードがどのように見えるか、どこに置くのか興味があります。あなたが私にいくつかのサンプルコードや良いリソースを提供することができれば、私はoopワークフローに対する良い気持ちを持っています。

おかげ///マシュー

Answer 1

品番テキストボックスのAfterUpdateイベントを使用してください。あなたのコードは次のようになります：

Private Sub txtPartsNumber_AfterUpdate() 
    If IsNull(Me.txtPartsNumber) = False Then 
     Me.txtPartsDescription = Nz(DLookup("[Parts Description]", "tblParts", "[Parts Number] = '" & Me.txtPartsNumbers & "'"), "") 
    End If 
End Sub 

私は注意したいことがいくつかあります。スペースや記号を使わずにフィールドに名前を付けることをお勧めします。

tblpart 
--partno 
--partdesc 
--stdlbs 
--stdlbshr 

あなたはおそらく「TBL」をオフに残して、ちょうどテーブル「部分」ハンガリアン記法は、今日のプログラマの多くは好意を失ったので、名前を付けることができます：私はこのテーブルを設定していた場合には、次のようになります。