Search results

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

If SomeNumericField = 0 Then JsonValue = "0.0" Else JsonValue = SomeNumericField End If But the program keep on rejecting "0.0" it want only 0.0 no double quotes

Case VBA.vbInteger, VBA.vbLong ' Number (use decimals for numbers) ConvertToJson = VBA.Replace(JsonValue, ",", ".") Case VBA.vbSingle, VBA.vbDouble, VBA.vbCurrency, VBA.vbDecimal ConvertToJson = VBA.Replace(VBA.Format(JsonValue, "0.0"), ",", ".") I'm now lost ...

Sorry sir This is not work see the amended cod below , and yes i'm using the module for Tim Hall: Public Sub CmdCwrite_Click() Call CmdTotalClasses_Click Dim db As DAO.Database Dim rs As DAO.Recordset Dim rst As DAO.Recordset Dim Company As New Dictionary Dim strData As String Dim Json As...

These are values required in Json , we have to comply