訪問 - 在記錄中查找字符串，然後轉到該記錄

我有一個Access應用程序爲每個記錄使用一個UID，但它不匹配到SQL中的記錄順序。（即我的12845的UID對應於Access中的記錄號碼12834）訪問 - 在記錄中查找字符串，然後轉到該記錄

我有一個搜索框，我已經創建了應該搜索Access DB並拉起記錄，找到匹配的UID，但是，我編寫代碼的方式是它將記錄與UID匹配的記錄編號（因此它將使用UID 12845獲得記錄號12845而不是記錄12834）。

我一直坐在這上幾天，我找不到解決辦法。搜索互聯網並沒有什麼幫助。如果任何人有一個想法，如何可以匹配一個字符串，並轉到記錄與試圖解析自己的記錄信息，那就太好了。

以下是我使用的代碼示例。它需要一個日期字符串，並在記錄查找字符串，獲取UID，然後嘗試轉到相應的記錄：

Private Sub FindBarCodeDate_Click() 
Dim Barcode As String 
Dim EndDate As String 

If IsNull(BarcodeSearch.Value) Then 
    If IsNull(DateSearch.Value) Then 
     GoTo Done 
    Else 
     EndDate = DateSearch.Value 
    End If 
Else 
    If IsNull(DateSearch.Value) Then 
     Barcode = BarcodeSearch.Value 
    Else 
     Barcode = BarcodeSearch.Value 
     EndDate = DateSearch.Value 
    End If 
End If 

Dim rs As New ADODB.Recordset 
Dim strSql As String 
Dim TSD As String 

If Barcode <> "" Then 
    If EndDate <> "" Then 
     strSql = "SELECT [TSD ID] FROM dbo_barAdultCollectionData WHERE Barcode = '" & Barcode & "' AND [End Date] = '" & EndDate & "'" 
     On Error GoTo Done 
     rs.Open strSql, CurrentProject.Connection 
     TSD = rs.Fields.Item(0) 
     rs.Close 
     DoCmd.FindRecord TSD, acEntire, False, acSearchAll, False, acAll, True 
     Set rs = Nothing 
    Else 
     strSql = "SELECT [TSD ID] FROM dbo_barAdultCollectionData WHERE Barcode = '" & Barcode & "'" 
     On Error GoTo Done 
     rs.Open strSql, CurrentProject.Connection 
     TSD = rs.Fields.Item(0) 
     rs.Close 
     DoCmd.FindRecord FindWhat:=TSD, Match:=acEntire, MatchCase:=False, Search:=acSearchAll, SearchAsFormatted:=False, OnlyCurrentField:=acAll, FindFirst:=True 
     Set rs = Nothing 
    End If 
ElseIf Barcode = "" Then 
    If EndDate <> "" Then 
     strSql = "SELECT [TSD ID] FROM dbo_barAdultCollectionData WHERE [End Date] = '" & EndDate & "'" 
     On Error GoTo Done 
     rs.Open strSql, CurrentProject.Connection 
     TSD = rs.Fields.Item(0) 
     rs.Close 
     DoCmd.FindRecord FindWhat:=TSD, Match:=acEntire, MatchCase:=False, Search:=acSearchAll, SearchAsFormatted:=False, OnlyCurrentField:=acAll, FindFirst:=True 
     Set rs = Nothing 
    End If 
Else 
Done: 
    SearchError.Caption = "Invalid Search Term!" 
End If 
End Sub

謝謝！

來源

2016-08-15 expenguin

Wow其他塊只能通過跳轉到標籤才能到達。我不知道以前我見過這個。無法想象它永遠是可取的。 –

因此，您在ID表中查找ID並在ID表中搜索該ID時，ID實際上並不相同。我很困惑你如何期望它從SQL ID轉換到Access ID。讓我們回去吧。在英文中，如果我們手動查看打印的表格，我們將如何知道哪個Access記錄與給定的SQL記錄一起使用？ –

首先，嘗試添加-11到UID：

TSD = CStr(Val(rs.Fields.Item(0).Value) - 11)

此外，你需要格式化你的日期值作爲字符串表達式：

EndDate = Format(DateSearch.Value, "yyyy\/mm\/dd")

然後：

strSql = "SELECT [TSD ID] FROM dbo_barAdultCollectionData WHERE [End Date] = #" & EndDate & "#"

來源

2016-08-15 18:50:17 Gustav

「添加1」建議的基礎是什麼？即使作爲黑客，我不明白爲什麼它會起作用。如果你試圖破解這個特定的記錄例子，那麼區別是11.但是使用11仍然是一個非常危險的黑客攻擊。 –

謝謝。我錯過了10.現在糾正。危險嗎？事實上 - 數據必須保持一致才能發揮作用。我想我會用外國UID添加一個字段，然後在可能的情況下更新。 – Gustav

絕對應該在外鍵字段上鍊接。還有一件事。我很確定你需要減去不添加。我們正在將SQL ID轉換爲Access ID，而後者更小。 –

請勿使用DoCmd.FindRecord。使用Form.RecordsetClone第二個例子中顯示的技術，例如

Dim rst As DAO.Recordset 

Set rst = Me.RecordsetClone 
rst.FindFirst "yourUIDcolumn = '" & TSD & "'" 
If rst.NoMatch Then 
    ' This should not happen 
    MsgBox "Record not found", vbCritical, "Panic!" 
Else 
    ' Set current record in form to found record 
    Me.Bookmark = rst.Bookmark 
End If 
rst.Close

來源

2016-08-16 09:23:48 Andre

訪問 - 在記錄中查找字符串，然後轉到該記錄

回答

相關問題