We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
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
Join the community of 500,000 technology professionals and ask your questions.