Question

我正在尝试从打开的记录集中填充多个文本框并收到以下错误

运行时错误3601 参数太少。预计1

这是我的功能

Function fnSearchAndPopulate() As Boolean
Dim d As DAO.Database, r As DAO.Recordset, strSQL As String
Set d = CurrentDb
If Me.txtEnterNumber = "" Then
    MsgBox "Please Enter Number", , "Error"
    Exit Function
End If
strSQL = "SELECT * FROM amipartnumbers Inner Join jdsubs on amipartnumbers.oemitem=jdsubs.oempartnumber WHERE " & txtEnterNumber.Value & " In (jdsubs.oempartnumber, jdsubs.oemsubnumber)"
Set r = d.OpenRecordset(strSQL)
If r.EOF Then
   MsgBox "BAM # " & Me.txtEnterNumber & " does not exist!", , "No BAM #"
  Set d = Nothing
  Exit Function
End If
'get here if there is a record
r.MoveFirst
'populate whatever textboxes
Me.txtAMINumber = r!Item
Me.txtDescription = r!Description
Me.txtOEMsubnumber = r!OEMsubnumber

Set d = Nothing
Exit Function
End Function

Answer 1

已更新以获取非数字部件号...

strSQL = " SELECT * FROM amipartnumbers Inner Join jdsubs on "     & _
         " amipartnumbers.oemitem=jdsubs.oempartnumber WHERE "     & _
         " jdsubs.oempartnumber= '" & txtEnterNumber.Value & "' or "  & _
         " jdsubs.oemsubnumber= '"  & txtEnterNumber.Value & "'"

从Access窗体中的openrecordset填充多个文本框

1 个答案: