Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Public Sub save_Table(cn As ADODB.Connection, lpTable_No As String, Customer_name As String, Time_in As String, Time_Out As String, The_Total As String) Dim rs As ADODB.Recordset Dim sql As String Set rs = New ADODB.Recordset sql = "select * from The_Table where Table_No='" & lpTable_No & "'" rs.LockType = adLockOptimistic rs.CursorType = adOpenKeyset rs.Open sql, cn With rs If .BOF = True And _ .EOF = True Then .AddNew !Table_No = lpTable_No End If !Customer_name = Trim(grid.TextMatrix(grid.Row, 0)) !Time_in = Trim(grid.TextMatrix(grid.Row, 1)) !Time_Out = grid.TextMatrix(grid.Row, 5) !The_Total = IsNull(!The_Total) + Trim(lblDueAmount.Caption) .Update .Close End With Set rs = Nothing End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Sending a email via excel using vba||6||119|
|Automatically generate a pdf file from an excel file and email out everyday||2||78|
|Win 10 Automation Error with .doCmd in Access||2||93|
|why PtrSafe before Function on 64bit does not fix the APIs?||2||31|
Join the community of 500,000 technology professionals and ask your questions.