Некоторые библиотечные функции доступа не работают, а код для получения данных из одной формы в другую не работает - PullRequest
Новая
       17

Некоторые библиотечные функции доступа не работают, а код для получения данных из одной формы в другую не работает

0 голосов
/ 29 апреля 2019 
Option Compare Database

Private Sub Command119_Click()

DoCmd.OpenForm "PrinterFhamyLabel"

Forms!PrinterFhamyLabel.Text59 = Me.JOBNum

End Sub

У меня есть две формы:

Form PrinterFhamyInput имеет текстовое поле JOBNum Form PrinterFhamyLabel имеет текстовое поле Text59

Я введу данные в текстовое поле JOBNum в форме PrinterFhamyInput и нажму кнопку в форме PrinterFhamyInput, которая должна открыть форму PrinterFhamyLabel с текстовым полем Text59, заполненным данными из поля JOBNum.

На уровне стола:

PrinterFhamyInput имеет поле с именем JOB #, а PrinterFhamyLabel имеет поле с именем JOB # (изображения прилагаются).

Я хочу ввести JOB #, Description и QTY в форме PrinterFhamyInput и нажать кнопку «PrintLabel», и откроется форма метки с заполненными этими тремя входами. Я ввожу дату, а затем печатаю этикетку. enter image description here enter image description here enter image description here enter image description here

Ответы [ 2 ]

2 голосов
/ 29 апреля 2019

Form_PrinterFhamy_Label. должно вызывать всплывающие подсказки. Посмотрите на имена форм и отчетов в редакторе VBA - все они имеют префикс. Это название для целей VBA, чтобы вызвать intellisense. Если код находится за формой, можно использовать псевдоним Me..

Открыть форму или отчет, отфильтрованный к нужной записи, и привязать текстовое поле к полю JobNum: 

Private Sub Command119_Click()
DoCmd.OpenReport "PrinterFhamyLabel", , , "[Job#]=" & Me.JobNum
End Sub

Если JobNum - это текстовое поле:

DoCmd.OpenReport "PrinterFhamyLabel", , , "[Job#]='" & Me.JobNum & "'"

Предлагаем вам сделать некоторые базовые исследования по использованию метода OpenForm / OpenReport.

Рекомендуется не использовать пробелы, знаки препинания / специальные символы (только подчеркивание) в соглашении об именах. Если используется, заключите имя в []. JobNum лучше, чем Job #. Кроме того, camelCase или PascalCase легче читать, чем ALLCAPS.

0 голосов
/ 01 мая 2019 
Option Compare Database

Private Sub Command119_Click()

DoCmd.OpenForm "PrinterFhamylabel"

Forms![PrinterFhamyLabel].JOB = Me.JOBNum

Me.JOBNum.SetFocus

End Sub

это решило проблему, спасибо @ June7 за помощь и руководство.

...