액세스에서 레코드 집합을 반복 루팅

Question

레코드 집합 루프 코드를 작동 시키려고하면 입력을 0으로 유지하는 코드가 있습니다. 두 번째 코드는 동일한 코드이지만 메시지 상자에 수량을 표시합니다. 표시되는 번호는 내 필드에 입력하려는 번호입니다. 나는 그 전화 번호를 현장에 넣으려고하는 것 같아요! 수량? 나는 결국 그것을했다

Dim val As Integer 

Dim rs As DAO.Recordset 
Set rs = Forms!frmReceive!sfrmReceiveDetailEntry.Form.RecordsetClone 
With rs 
Do While Not rs.EOF 
val = Nz(DLookup("[RemainingQty]", "tblQtySoFarTEMP", "[OrderDetailPK]= " & rs! [OrderDetailFK])) 

MsgBox val 

rs.MoveNext 
Loop 
End With 
Set rs = Nothing 

Answer 1

메시지 상자에 값을 표시

Dim Val As Integer 
Dim rs As DAO.Recordset 
Set rs = Forms!frmReceive!sfrmReceiveDetailEntry.Form.RecordsetClone 
With rs 
Do While Not rs.EOF 

rs.Edit 
Val = Nz(DLookup("[RemainingQty]", "tblQtySoFarTEMP", "[OrderDetailPK]= " & rs! [OrderDetailFK])) 
rs!Qty = Val 
rs.Update 

rs.MoveNext 
Loop 
End With 
Set rs = Nothing 

이 내 작업 코드입니다!

'If YES then run the following code 
AreYouSure = MsgBox("You are about to Receive All of Order" & txtOrderNumber.Value & " , Are you Sure?, The whole order and it's Quantities will be updated?", vbYesNo, "Receive All?") 
If (AreYouSure = vbYes) Then 
'disable warnings 
DoCmd.SetWarnings False 
'Create recordsetclone of subform 
'loop recordset and lookup remaining qty to receive all 
Set rs = Forms!frmReceive!sfrmReceiveDetailEntry.Form.RecordsetClone 
    With rs 
     Do While Not rs.EOF 

     rs.Edit 
     rs("Qty") = Nz(DLookup("[RemainingQty]", "tblQtySoFarTEMP", "[OrderDetailPK]= " & rs![OrderDetailFK])) 
     rs.Update 
     rs.MoveNext 
     Loop 
    End With 
Set rs = Nothing