Автозаполнение описания деталей через текстовое поле номера детали - PullRequest
Новая
       41

Автозаполнение описания деталей через текстовое поле номера детали

2 голосов
/ 11 августа 2011

Извините, у меня нет написанного кода, потому что я никогда не писал vba в access раньше. Что мне нужно сделать, так это иметь в своей форме автозаполнение в поле со списком, чтобы сэкономить немного времени. У меня есть база данных, в которой есть все наши части, которые включают в себя [номер детали] [описание деталей] [std lbs] [std lbs / ч] другие параметры мне просто любопытно, как будет выглядеть код и где я его положу. у меня хорошее предчувствие рабочего процесса, если вы можете предоставить мне пример кода или хороший ресурс, который я, скорее всего, смогу получить оттуда.

спасибо /// Мэтью

1 Ответ

1 голос
/ 11 августа 2011

Используйте событие AfterUpdate текстового поля Part Number.Ваш код должен выглядеть следующим образом: 

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", так как венгерская нотация утратила популярность у многих из сегодняшнихпрограммисты.

...