У меня есть небольшая часть кода, встроенная в кнопку на непрерывной форме. Он откроет форму, чтобы предоставить дополнительные сведения, а не результаты поиска.Docmd.Openform Открытие пустой формы?
Моя проблема в том, что, когда все детали присутствуют, форма открывается правильно, если какие-либо поля отсутствуют (например, дата оплаты или номер ваучера), форма открывается пустым?
Вот код для поискового запроса, и код кнопки, чтобы открыть форму:
Private Sub Command1_Click()
Dim strsearch As String
Dim strText As String
strText = Me.txtSearch.Value
strsearch = "Select * from tblInvoiceLog where Vendor_Number like ""*" & strText & "*"" or Vendor_Name like ""*" & strText & "*"" or Invoice_1 like ""*" & strText & "*"" or Invoice_2 like ""*" & strText & "*"" or Invoice_3 like ""*" & strText & "*"" or Invoice_4 like ""*" & strText & "*"" or Invoice_5 like ""*" & strText & "*"" or Check_Request_Total like ""*" & strText & "*"" or Voucher_Number like ""*" & strText & "*"" or Notes like ""*" & strText & "*"" or TransAction_Id like ""*" & strText & "*"" ORDER BY [Pay_Date] DESC"
Me.RecordSource = strsearch
End Sub
Private Sub Command53_Click()
DoCmd.OpenForm "frm: Check Request Info (Redesign)", , , "TransAction_Id = " & TransAction_ID
End Sub
Я думал, что приходилось все переменные в этом уравнении? Может ли кто-нибудь предложить предложение?
Итак, вы ищете одну заданную строку во многих разных полях, правильно? Почему вы устанавливаете «Me.Recordsource»? Это ваша текущая форма. –
txtsearch находится в форме, не нужно ли объявлять «я», если поле называется? –
Нет, я имею в виду, что ваша строка «Me.RecordSource = strsearch» собирается сбросить источник записей для текущей формы, на которой находится ваша кнопка «Command1». Вы пытались помещать точку останова в «Command53_Click», чтобы узнать, что находится в «TransAction_ID»? Я также захватил sql для формы, которую вы открываете, и выполняйте ее вручную. Если записи не возвращаются, начните удаление критериев до тех пор, пока они не будут работать. Тогда вы узнаете, почему он терпит неудачу. –