У меня есть первая таблица с именем "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, он работает
If rs.Fields("ID") = "323" Then
это работает нормально.
Но если я наберу, как показано ниже, это не сработает
If rs.Fields("ID") = Me.Text2.Value Then
Debug.Print "'" & Me.Text2.Value & "'"
- person HansUp   schedule 05.10.2018For i = 0 To rs.RecordCount - 1
наDo While Not rs.EOF
и изменитеNext i
наLoop
- person HansUp   schedule 05.10.2018