невозможно редактировать запись, передавая текстовое значение через форму доступа 2007

Question

У меня есть первая таблица с именем "BreedingTable" с первичным ключом "ID" и "TransactionStatus" = "Active".

У меня есть данные "Форма для шуток", заполненные из поля со списком в Текстовые поля Text2.value = "ID" из BreedingTable.

Когда я закончу со всем процессом, я хочу изменить TransactionStatus таблицы разведения = Closed.

Я использую приведенный ниже код, но он никогда не работает.

Примечание: «если я даю точный идентификационный номер транзакции, это работает нормально, но если я прошу найти на основе text2, это не работает.

Мой код выглядит следующим образом:

Private Sub exitprograme3()
    Me.Text2.SetFocus
    Dim i As Integer
    Dim db As Database
    Dim rs As Recordset
    Dim Trn As Integer
    Set db = CurrentDb
    Set rs = db.OpenRecordset("BreedingTable")
    For i = 0 To rs.RecordCount - 1
    Me.Text2.SetFocus    
    If rs.Fields("ID") = Me.Text2.Value Then
        rs.Edit
        rs.Fields("BreedingStatus") = "Closed"
        rs.Update
    End If
    rs.MoveNext
    Next i
    rs.Close
    Set rs = Nothing
    db.Close
    DoCmd.Close
End Sub

Пожалуйста, помогите ...

Если я введу точный номер идентификатора транзакции ниже, если в заявлении это работает

If rs.Fields("ID") = "323" Then

, это отлично работает.

Но если я наберу, как показано ниже, это не сработает

If rs.Fields("ID") = Me.Text2.Value Then

Answer 1

Цикл не требуется:

Private Sub exitprograme3()

    Dim db As DAO.Database
    Dim rs As DAO.Recordset

    Set db = CurrentDb
    Set rs = db.OpenRecordset("Select * From BreedingTable")

    rs.FindFirst "[ID] = " & Me!Text2.Value & ""
    ' If ID is text, then quotes:
    ' rs.FindFirst "[ID] = '" & Me!Text2.Value & "'"
    If Not rs.NoMatch Then
        rs.Edit
            rs.Fields("BreedingStatus").Value = "Closed"
        rs.Update
    End If
    rs.Close

    Set rs = Nothing
    Set db = Nothing

    DoCmd.Close

End Sub