Я пытаюсь связать подчиненную форму, используя поле со списком, я пишу следующий код - PullRequest
Новая
       6

Я пытаюсь связать подчиненную форму, используя поле со списком, я пишу следующий код

0 голосов
/ 09 января 2019 
Dim mydrawing As String 
mydrawing = "select * from tbl_welddata  where([Drawingno] = " & Me!CboDrawingno & ")" 
Me.tbl_welddatasubform.Form.RecordSource = mydrawing Me.tbl_welddatasubform.Form.Requery

Я получаю сообщение об ошибке как;

Ошибка несоответствия типов данных 3464

Каждый раз, когда я отлаживаю его, указывая на эту строку 

Me.tbl_welddatasubform.Form.RecordSource = mydrawing

Может кто-нибудь помочь мне разобраться в этом.

1 Ответ

0 голосов
/ 09 января 2019

Вставьте строку отладки и изучите вывод: 

Dim mydrawing As String 

mydrawing = "select * from tbl_welddata where([Drawingno] = " & Me!CboDrawingno & ")" 
' If text, quotes are needed:
' mydrawing = "select * from tbl_welddata where([Drawingno] = '" & Me!CboDrawingno & "')" 
Debug.Print mydrawing

Me!tbl_welddatasubform.Form.RecordSource = mydrawing

Запрос не требуется.

Можете ли вы применить полученный mydrawing вручную?

Является ли Drawingno числом, а не текстом?

Является ли tbl_welddatasubform именем подчиненной формы control ?

...