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