Search results

cheekybuddha Many thanks to you, you clearly demonstrated professional knowledge in coding the sky is the limit for you Many thanks

It say out of range

I'm getting type missmatch here

I need help to get the value from a Json string using VBA MS Access, I'm able to get the first two line correct but failed on the last two lines , the problem is how to move into the collection Private Sub Cmdgetweather_Click() Dim Json As Object Set Json = JsonConverter.ParseJson(GetWeather)...

But version is only available for 32 BIT not 64 BIT MS Access. And yes version 8.0.0 is working okay for 32 BIT that is what I'm using, what 64 BIT?

I have been having problems with MySQL version 8.0.40 , I'm currently using the listed MYSQL connector ODBC with MS Access as FE: (1) 9.1 ODBC with 64 BIT is now failing Now I have redo all the deployment all over again Any idea which odbc version works well with MySQL version 8.0.40 with MS...

Thank you minty both codes above works okay but the problem is that the subform current record showing on the picture is not taken into , I expected the current balance of 96 to be reducing when a user add a new line: 1.Line => 96 - 1 = 95 2.Line = > 95 - 1 = 94 3.Line = > 94 -1 = 93 4.line =...

Is there a way to include record set clone so that the above code can include any record in currently the subform, that what I'm looking for. I have added that code but nothing is working out Me.dirty = false

I want the open record set below to include the current type in record or new record, but it does nothing , it only include history data or prior record not current record being entered by users. Is there a way to force the code below to also include the current or new record being being...

I'm getting an error on the counter section whenever i run the code below , where is the problem: Public Sub CmdSendingBomFineshedProd_Click() On Error Resume Next Dim Cancel As Integer If IsNull(Me.CboIssue) Then Beep MsgBox "Please Select the Product name you want to transfer data to smart...

Many thanks Gemma , this has sorted out the mathematics . Kindly with regards

So it's not stopping access tampering with your figures that's the issue,, it's you managing the process to achieve the required results. Often the best way to do this is to use the "currency" data type even for ordinary numbers, as currency works to 4dps, and just parenting the result without...

How do I use the format function in VBA? The problem on the attached Json in excel format is that if the parent header totals does not equate to exactly the summation of line totals the program will give an error, this where I'm completely stack. See attached excel file , the difference is...

So you need to store the lsocketID, no? Sorry I'm a bit behind what exactly are you saying?

' Create a new socket Dim lsocketID As Long lsocketID = Socket(AF_INET, SOCK_STREAM, 0) If lsocketID = SOCKET_ERROR Then Err.Raise GENERAL_ERROR, "WinsockOpenTheSocket", "Unable to create the socket!" End If MsgBox "Here is a SocketID" & " = " & lsocketID That...

Okay Kindly email me : nectorzambia@gmail.com

I'm looking for a VBA Winsock consultant to assist me on the new project I will be doing in January 2024, it's not for Free but payable at a negotiated price, I will appreciate if someone can direct me to seasoned MS ACCESS VBA /JSON programmers.

Well I have finally given up the query below changes the date to 22/11/1900 fortunately we had just captured 30 invoices and we had printed the hard copies , I had to go into studio management to correct the dates again. This means that I have to stick with the original code below though...

Here is my final try: Dim db As DAO.Database Dim strSQL As String Set db = CurrentDb strSQL = "SELECT * FROM [tblCustomerInvoice] WHERE tblCustomerInvoice.InvoiceID)= & [Forms]![frmCustomerInvoice]![CboShipDateChange]" strSQL = "UPDATE tblCustomerInvoice SET tblCustomerInvoice.ShipDate = #" &...

What if I do it this way : UPDATE tblCustomerInvoice SET tblCustomerInvoice.ShipDate = #"Format(( [Forms]![frmCustomerInvoice]![txtChangeShipeDate]),"YYYY\/MM\/DD")&"# Sorry I'm just guessing here, and so corrections will be required!