Search results

I want to use this unbound combo box on a subform for the purpose of looking up only because the same form support imported data, but when the users select the product name you find that that product name repeat itself in the second line which I do not want to see or happen. Any idea to stop...

My apologies people I'm sorry the original code actually works , I forgot that it was on after quantities updates, however, many thanks to all the contributors. If (Me.TaxClassA = "B") And (((((Me.RRP) / 1.16) * Me.Quantity) * 0.16) > ((((Me.UnitPrice) / 1.16) * Me.Quantity) * 0.16)) Then...

The result that must be archived is that , if RRP is higher UnitPrice then return : (Me.RRP / 1.16) * Me.Quantity * 0.16 Otherwise RRP < UnitPrice then return : Me.Taxamount =(Me.UnitPrice / 1.16) * Me.Quantity * 0.16

I'm trying to evaluate four conditions in Ms Access in such a way that tax must be charged on the higher price not the lower, but I keep on get one way evaluation even if I try to lower the other figures to see if there will be a change in calculations nothing happens: VBA Code Affected If...

We already had this topic, didn't we? Sum(Round([NetValue] * Tax), 4) vs. Round(Sum([NetValue]) * Tax, 4) It doesn't have to be the same. The double being suggested here is very poor in terms of handling financial data, the correct and accuracy way is to use currency data type

Hi Josef P My question is all about accuracy not the speed, did you find any issues with the code in terms of accuracy processing? Best Regards

Okay thanks I will have to switch on the error handling , its off The good Json is below { "tpin": "1002623668", "bhfId": "000", "cisInvcNo": "CIS001-0002950", "orgInvcNo": 0, "custTpin": "1002623668", "prcOrdCd": 0, "custNm": "SAMPLE CASH SALES", "salesTyCd": "N"...

The goal here is to ensure that the sorted line items in Ms Access query attached in PDF format are picked exactly as they appear in a proper ascending order query so that the Json code send them to the virtual computer (invisible) exactly. The start point is to count the item lines like below...

Okay many thanks to you Josef

Okay Josef thanks So in short you are saying I should do this: If Request.Status = 200 Then MsgBox Request.responsetext, vbCritical, "Internal Audit Manager" ElseIf(Request.status <>200) Then MsgBox Request.responsetext, vbCritical, "An Error has occurred" On error resume next

Hi Surprised I'm experiencing MS Access hanging after using the record set continuously every after-11th Call on the record set, I strongly believe probably I'm not cleaning up the record set properly, see the code below: Private Sub CmdProductsDetails_Click() Dim Cancel As Integer If...

Its okay people its sorted out all is now working fine

E.g.: rs and rst ... what is their content? rs is the detail lines while rst is the header , see the actual response json below Kindly ignore rst its sorted out, the header will not come from the internet Json but only the details , this leave us with rs, also note that the line for Dlast is...

First my apologies people you had assisted me sometime back on a similar issue of importing Json from the internet into the MS Access tables, that is the parent and child. But for whatever reason only the three items have been inserted into the parent table and properly referenced in the child...

Thank you so much Josep I built up your Idea by assigning a variable to string and then use that variable in Json.

I need to concatenate a Json string in Ms Access VBA so that its easier to read not what I have below: Here is the pair requiring concatenating or shoetening: "taxAmtRvat", Nz(Round(DSum("Taxable", "QryJson", "[InvoiceID] =" & Me.CboEsdInvoices & "And [TaxClassA] = 'A'"), 4), 0) +...

I have a four digit natural figures in the MS access database and in the query they are also coming four digits accurately but when I run my in the immediate widow in VBA all my figure are shown with an increase from four digits to ten digits which is causing my Json program to pop up an error...

Okay thank all I will use the information provided

I'm getting some input data from the internet based server in Json format like below if all is okay the message looks like below: { "resultCd": "000", "resultMsg": "It is succeeded", "resultDt": "20240508194441", "data": { "rcptNo": 1235, "ReceitData": "DFR236599" } } Now...

Well somehow we solved this its now working okay, many thanks to your advise