sorry che vi spamvam taka, ama nali sme si nashi hora

i have another problem, the values in [list 0u], [list 1n] etc. bi triabvalo da se resetvat na 0 pri vsiako natiskane na butona. da ama nomera stava samo poniakoga, a poniakoga ne stava i ne moga da namera nikakyv pattern.

kakvo se opitvam da naprava is to get the number of itmes on hand from [main table]. the items are clasified in categories from [0 untested re] to [5 dead re]

the user will type in the number of items that were listed for sale on e-bay from [list 0u] to [list 5d]

then i am using an update query to subtract the number of items listed from the number of items on hand. the query is called [query listing update]
for example the query updates the field [0 untested re] to [Main Table]![0 untested re]-[Main Table]![list 0u]

then i use an append query to keep a record of what has been listed

after that i set the values in [list 0u], [list 1n] etc. to 0
the reason i do that is beacuse - lets say we hav 5 items on hand but we only want to list 3, the user wants to be able to list some or all of the items in one listing so they have to type in the number every time.


and then if there are no more items left on hand the record is deleated.

any help will be very appreciated, sorry za nagliiskia ama terminologiata mi e po lesna.



here is the code:

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

Честно казано, не разбрах какво точно се опитваш да правиш, но от това, което виждам: най-голямата вероятност за проблема е, че Query-тата не се изпълняват моментално или пък програмата да чака да се изпълнят и след това да продължава нататък, а напротив: започва да се изпълнава Query1("query listing Update", ), след това започва да се изпълнява Query2 (обаче не е ясно дали Query1 вече е завършило или не е - възможни са и двата варианта). След това продължава да се изпълнява Me![list 0u] = 0 .... , обаче пак важи същото - не знаеш дали са завършили Query1, Query2 - така, че за да получаваш коректен резултат трябва да направиш така, че винаги Query2 да се изпълнява след като е сигурно, че Query1 е завършило и Me![list 0u] = 0 .... след като Query2 е завършило

i az misla che moje da e tova
kak da naprava taka che da se izpylniavat posledovatelno.

Най-професионално може да стане ако работиш директно с DAOто, обаче не знам дали ти е по силите:-)) Иначе само в Access-a - сега ми идват на ум само два начина (от левашки та по)
1.начин: Разделяш я тая програма на три бутона: първия изпълнява 1вото Query; втория изпълнява 2рото Query и третия останалото и трябва да внимаваш да не ги натискаш много бързо и да не объркаш реда
2.начин: Слагаш по един delay от по няколко секунди след всяко от Query-тата - не знам точно от по колко, но трябва да е достатъчно за да е зявършило със сигурност Query-то (зависи най-вече от това колко ти е голяма базата и колко ти е бавен компютъра)

Забравих, че във VB нямаше delay - ще трябва да си го направиш като функция.
Провери и за всеки случай (че аз нямам подръка Access - дали пък това DoCmd не е функция (ама доколкото си спомням, пък и като го гледам по името си е команда))

mersi - shte pocheta za tova dao

vij i za ADO (tova e po-novoto)