Recent content by anchamal

i need to create a query to find the balance of creditors with specific dates example 1/1/17 up to 31/1/17 customer A 1/1/17 €20 2/1/17 €25 31/1/17 €25 01/02/17 €100 what was the balance till 31/01/2017 of customer A? using offce 2016

if table temporaryitems has records that are not already in items table then add them, else go and update them that's what i need

Trying to update table "items" bases on the contents of table "temporaryitems" what i need to do i to go and check if first record on my subform called "temporaryitemsqrysub1" already exists then go and update in table "items" but if does not then go and add it in table "items", then got to...

the control is textbox, now the stop is working everywhere except this point If [CUSTOMERNAMESEARCHFROMSALES2SUB]![PRICETYPE] = "PRICE1" Then If ITEMSQRYSALESSUB!PRICE1 = 0 Then Stop DoCmd.OpenForm "ZEROPRICEPOPUP" Else:

if the value of price1 is 0.0001 then the code can be accepted, but not 0

ok thanks for your help

Copied and pasted the corrected code, replaced the part which you said it would be better, but.... still the specific part isnot working :)

Private Sub ITEMCODE_AfterUpdate() Me.ITEMSQRYSALESSUB.Requery Me.ITEMCODESAVER = Me.ITEMCODE If Me.ITEMSQRYSALESSUB.Form.RecordsetClone.RecordCount = 0 Then MsgBox "NO ITEM FOUND" Me.ITEMCODE.SetFocus Me.ITEMCODE = Null Else: If Me.onepass = True Then If [ITEMSQRYSALESSUB]![PRICE1] = 0...

If [CUSTOMERNAMESEARCHFROMSALES2SUB]![PRICETYPE] = "PRICE1" Then If Me.ITEMSQRYSALESSUB!PRICE1 = 0 Or IsNull(ITEMSQRYSALESSUB!PRICE1) Then DoCmd.OpenForm "ZEROPRICEPOPUP" Else: Me.PROS = [ITEMSQRYSALESSUB]![PRICE1] End If...

the code is working only in a new button i create for this purpose strange thing is that if i place this code If Me.ITEMSQRYSALESSUB!PRICE1 = 0 Or IsNull(ITEMSQRYSALESSUB!PRICE1) Then DoCmd.OpenForm "ZEROPRICEPOPUP" Else: Me.PROS =...

the original code is in the after update event of a text box. so there code before and after

still nothing, Debug.Print "Value 1 - " & Me.ITEMSQRYSALESSUB Debug.Print "Value 2 - " & Me!ITEMSQRYSALESSUB!PRICE1 Debug.Print "Value 3 - " & ITEMSQRYSALESSUB!PRICE1 If Me.ITEMSQRYSALESSUB!PRICE1 = 0 Then DoCmd.OpenForm "ZEROPRICEPOPUP" Else: Me.PROS =...

shoudl i change "value" with somethng else? here is the code again Debug.Print "Value: " & Me.ITEMSQRYSALESSUB If Me.ITEMSQRYSALESSUB!PRICE1 = 0 Then DoCmd.OpenForm "ZEROPRICEPOPUP"

here is what i did: Debug.Print "Value: " & Me.ITEMSQRYSALESSUB If Me!ITEMSQRYSALESSUB!PRICE1 = 0 Or IsNull(ITEMSQRYSALESSUB!PRICE1) Then DoCmd.OpenForm "ZEROPRICEPOPUP"

If you are talking about immediate, it's empty nothing inside after i press ctrl+g