Search results

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?

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...