Search results

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

I want to return a 0.0 if this co.de below has a zero value, the zero should not be a string but a number. Round(Nz(Me.txtclassC1, 0), 4)

Okay for curiosity sake I seam to develop some ideas, how about working directly with the server before coming to the said record set instead of using link tables string I try to open the tables direct from the server. The challenge I have is that I'm not using windows directly as result I'm...

Have you considered using an ado disconnected recordset rather than caching The entire program is using DAO to switch to ADO means reprograming the codes again and chances of errors is too high, besides that I thought that ADO was replaced by DAO by Microsoft themselves.

Do you mean between 10 and 50 records? Yes and even more depending on the number of records or lines