MS Access 2003 - vypros

imam form [listing], i [command button] listing update

cifrite v textbox'ovete [list 0u] do [list 5d] triabva da se promenat na 0.
poniakoga stava - obache ne vinagi.
ako niakoi ima niakavi idei, mnogo molia da mi obiasni.
blagodaria vi predvaritelno.


Private Sub listing_update_Click()
On Error GoTo ErrorHandler
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70


DoCmd.OpenQuery "query listing Update", acNormal, acEdit

DoCmd.OpenQuery " query append arc", acNormal, acEdit

Me![list 0u] = 0
Me![list 1n] = 0
Me![list 2r] = 0
Me![list 3m] = 0
Me![list 4m] = 0
Me![list 5d] = 0
Me![e-bay number] = Null

Dim intSum As Integer

intSum = Nz(Me.[0 untested re], 0) + Nz(Me.[1 new re], 0) + Nz(Me.[2 repaired re], 0) + Nz(Me.[3 minor defect re], 0) + Nz(Me.[4 major defect re], 0) + Nz(Me.[5 dead re], 0)
If intSum = 0 Then
'This will delete the current record on the form.

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

End If


ExitHere:
Exit Sub

ErrorHandler:
MsgBox Err.description
Resume ExitHere

End Sub