2

申し訳ありませんが、以前にアクセスでvbaを書いたことがないため、コードを書いていません。私がする必要があるのは、フォームにコンボボックスのオートフィルを用意して時間を少し節約することです [部品番号] [部品の説明] [標準ポンド] [標準ポンド/時] を含むすべての部品を含むデータベースがありますコードがどのように見えるか、どこに配置するかについて、私はただ興味があります。サンプル コードまたは優れたリソースを提供していただければ、oop ワークフローについて良い感触が得られます。

ありがとう///マシュー

4

1 に答える 1

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」を省略して、テーブルに「part」という名前を付けることもできます。

于 2011-08-10T21:09:19.133 に答える