所以我基本上嘗試使用客戶 ID 從表格中提取客戶資訊，如姓名、地址、電話等，用于預填充表單中的某些文本框。我將它鏈接到一個按鈕按下，該按鈕搜索另一個名為 CustomerID 的表，以查看電話號碼是否存在于“電話”列中，如果存在，則回傳與之關聯的 cusID，我使用 Dlookup 執行此操作，這似乎有效。然后我想使用 cusID 使用下面的 SQL 查詢從表 CustomerInfo 中查找相應的客戶資訊，但它只是在 SQL 查詢行上拋出“Run-time elso rror '13' Type mismatch”。我已經為它嘗試了一堆不同的格式，但似乎無法讓它作業，任何人都知道我是什么 我做錯了嗎？甚至可以將 SQL 查詢資料決議為單個文本框嗎？代碼也在下面
Private Sub querycust_Click()
phonesearch = DLookup("cusID", "CustomerID", "phone='" & 9999999999# & "'")
If IsNull(phonesearch) Then
MsgBox ("No Customer ID Exists For This Phone Number")
ElseIf Not IsNull(phonesearch) Then
DoCmd.RunSQL "SELECT " * " FROM CustomerInfo WHERE [CustomerInfo]![CusID]=phonesearch"
End If
End Sub
uj5u.com熱心網友回復：
你可以這樣做：
Private Sub querycust_Click()
cusID = DLookup("cusID", "CustomerID", "phone='" & 2506176974# & "'")
If IsNull(cusID) Then
MsgBox ("No Customer ID Exists For This Phone Number")
Else
me.RecordSource = "SELECT * FROM CustomerInfo WHERE CustomerID = " & CusID
end if
end Sub
因此，上面將使用來自該 sql 陳述句的資料加載表單和所有文本框等。
uj5u.com熱心網友回復：
嘗試這樣的事情：
Private Sub querycust_Click()
Dim Records As DAO.Recordset
Dim Sql As String
Sql = "Select * From CustomerInfo Where phone = '9999999999'"
Set Records = CurrentDb.OpenRecordset(Sql)
If Records.RecordCount = 0 Then
MsgBox "No Customer ID Exists For This Phone Number"
Else
Me!txtCustomerID = Records!cusID.Value
' More controls and values.
End If
Records.Close
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/342498.html