recordset не может найти запись

Question

Привет, все, у меня есть эта ситуация в VB для доступа.

GenraReport_Click() - основная функция, называемая при нажатии на botton в отчете.

Temp представляет собой таблицу, содержащую некоторые данные, как это:

Теперь я создал набор записей RS в цикле каждую запись Temp, полем пункта. И это работает, проблема в том, когда я называю цены функций, которые должны делать то же самое, но по цене поля.

Проблема возникает, когда я пытаюсь позвонить rs! Price (или rs! [Цена], я попробовал оба), это говорит мне, что нет записей. Я положил первый вызов в конце первого цикла, чтобы начать снова с новой функции.

(я пытался сделать основной цикл с ценой вместо пункта, и она работает, так что это не таблица, а не синтаксис проблема. Что это может быть?

Answer 1

Вашего Do Until цикл, вероятно, превышает число . записей, доступных в наборе записей, поэтому ошибки компилятора на «No Current Record» Обычно правильный способ перебрать набора записей, чтобы установить ограничение на число итераций к Recordset EOF собственности:

Dim rs As Recordset 
Dim s As String, i As Integer 

Set rs = CurrentDb.OpenRecordset("temp") 

rs.MoveLast 
rs.MoveFirst 

s = "": i = 1 
If rs.RecordCount > 0 Then 
    Do While Not rs.EOF ' OR Do Until rs.EOF 

     Select Case i 
      Case 1 
      s = CStr(rs!Price) 

      Case Is < rs.RecordCount 
      s = s & ", " & CStr(rs!Price) 

      Case Else 
      s = s & ", and " & CStr(rs!Price) 
     End Select 

     i = i + 1 
     rs.MoveNext 
    Loop 
End if 

rs.close 
Set rs = Nothing