Recent content by nectorch

Ok let us see what others will say also

In MS Access linked to MYSQL database I want to gain high performance on the combo box as stated below, please check if the VBA I'm trying to implement will be better than the query also stated below: SQL below for a combo box SELECT DISTINCTROW tblProducts.ProductID, tblProducts.ProductName...

In a point of sales environment, you will find that when clients are purchasing some products maybe let say thirty lines now when the total amount to pay is shown to them, they may want to remove some lines not in the correct order but randomly. Doing that mean the line sequence will be...

Select the document type first

Here is the full db as requested , barcode to use are 410000100 to 410000127

This fails also Private Sub Form_AfterUpdate() Forms!frmPOSStocksSold!txtProductCode.SetFocus End Sub

Public Sub txtProductCode_AfterUpdate() Dim lngProdID As Long Dim sReturn$, varValue As Variant If Not (IsNull(mID)) Then 'DoCmd.GoToControl "sfrmPosLineDetails Subform" With Me![sfrmPosLineDetails Subform].Form .Recordset.AddNew...

Hi I thought this was an easy task, but has proved not. The people scan the barcode on the parent form on the control called txtProductCode that works fine no issues data is transfered to the subform, but the second scan for the next line item the cursor does not set focus on txtProductCode...

With Request .Open "POST", stUrl, False .setRequestHeader "Content-type", "application/json" .Send requestBody Response = .ResponseText End With Sleep (1000) If Request.Status <> 200 Then Resume Next ElseIf Request.Status = 200 Then MsgBox...

When I run the requery below the data appear in all two subforms and allows me to edit and save, see the VBA query below: Private Sub CbotrIssues_Click() On Error GoTo Err_Handler Dim LTAudit As String LTAudit = Nz(DLookup("IssueStatus", "tblIssueSlip", "SlipID =" & Me.CbotrIssues)) Me.Filter =...

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?