Versuchen, einen Datensatz basierend auf einer sekundären Tabelle auszuwählen

Question

Ich habe versucht und versucht, eine Antwort auf diese Frage zu finden, aber ohne Erfolg.

Ich versuche, eine Update-Schleife basierend auf einer Tabelle von Prozessoren zu tun, die gut funktioniert. Was ich tun muss, ist den neuen "ersten" Datensatz auszuwählen, basierend darauf, wer zuletzt bei der letzten Ausführung des Skripts verwendet wurde. Hier

ist, was ich bin fest auf: (Dim und stellen Sie aus Platzgründen nicht enthalten)

With Rst 
    Rst.MoveFirst 

    ' this is the problem code 
    RsA.FindFirst (RsA.Fields("Processor") = RsL.Fields("LastPortfolio")) 

    Do While Not Rst.EOF 
     If Rst.Fields("Product Type") <> "Acquisition" Then 
      Rst.Edit 
      Rst.Fields("Allocated Processor").Value = RsA.Fields("Processor") 
      Rst.Update 
      RsA.MoveNext 
      If RsA.EOF Then 
       RsA.MoveFirst 
      End If 
      If RsL.Fields("LastPortfolio").Value <> Rst.Fields("Allocated Processor") Then 
       RsL.Edit 
       RsL.Fields("LastPortfolio").Value = RsA.Fields("Processor") 
       RsL.Update 
      End If 
     End If 
     Rst.MoveNext 
    Loop 
End With 
DoCmd.Requery 

Answer 1

Sie sind nicht FindFirst(criteria) funktioniert nicht richtig. Der criteria-Parameter ist eine Zeichenfolge, die einer Where-Klausel in SQL ähnelt.

Ich glaube, Sie versuchen, dies zu tun:

RsA.FindFirst("[Processor] = '" & RsL.Fields("LastPortfolio").Value & "'") 
If Rsa.NoMatch Then 

    ' action if not found 

Else 

    ' action if found 

End If 

Answer 2

Die FindFirst() Methode nimmt den String-Parameter. Der String-Parameter muss als WHERE Ausdruck, wie diese formatiert werden:

RsA.FindFirst "Processor = ' & "REPLACE(RsL.Fields("LastPortfolio"), "'", "''") & "'" 

NB: Ich habe die Funktion REPLACE verwendet haben, um die Apostrophe zu befreien off