액세스 VBA - 레코드 손실 위치 - 우수한 라이브러리

위의 코드를 참조하십시오, 레코드

Private Sub Send_Click() 
Dim strLocation As String 

If MsgBox("Please confirm you wish to run todays tasks.", vbYesNo) = vbNo Then 
    Exit Sub 
End If 


Set rs = Me.RecordsetClone 

rs.MoveFirst 
Do Until rs.EOF 
Debug.Print rs("title") 

    'Call Update_Progress("Test", rs("ID")) 

rs.MoveNext 
Loop 

rs.Close 
Set rs = Nothing 

End Sub

안녕하세요으로 데이터베이스 개인 RS 비교. 함수/하위 사이를 이동할 때 레코드 세트의 위치를 유지하는 방법을 조언 할 수 있습니까?

이 코드는 "Update_Progess"함수를주의 깊게 살펴보면 루프가 잘되지만 첫 번째 레코드는 계속 반복됩니다. 사전 주석과 마찬가지로

출처

2014-09-18 Tamzoid

이렇게하면됩니다. 문제 * ("최소한의 재현 가능한 예제")를 표시하면서 가능한 한 Update_Progress의 코드를 줄여서 질문에 추가 할 수 있습니까? (당신은 그 질문에 대한 아래의 "편집"링크를 사용할 수 있습니다.) – Heinzi

안녕하세요, 팁 주셔서 감사합니다, 일단 내가 그 기능을 확인해야 작동 알았어, 나는 그 문제를 일으키는 Requery 거기 있었고, 나는 바뀌었다 새로 고침하고 작동 중입니다. 나는 그것이 내가 추측하고있는 하위 인 것을 당연하다고 생각하지 않아야했다, 나의 나쁜 – Tamzoid

잘하게되면서, 그것을 고치는 것에 축하한다! 나는 당신이 당신의 코멘트를 답안에 복사하고 "받아들이"도록 제안한다. 그래서 그 질문은 더 이상 "대답하지 않은"것으로 나타나지 않는다. – Heinzi

에서

덕분에,

나는이가 새로 고침에 개정에 의해 고정, 레코드가 위치를 다시 유발 된 기능 중 하나의 형태의 다시 쿼리를했다.

출처

2014-09-19 08:07:39 Tamzoid

액세스 VBA - 레코드 손실 위치

답변

관련 문제