Ready to improve network connectivity? Watch this webinar to learn how SD-WANs and a one-click instant connect tool can boost provisions, deployment, and management of your cloud connection.
Public Function F2bCheck() Dim db As DAO.Database Dim rs1 As Recordset Dim rs2 As Recordset Dim SQL1 As String Dim SQL2 As String Dim Action1 As String Dim Action2 As String Set db = CurrentDb SQL1 = "SELECT TICKET#, ACTION FROM Jetbase" Set rs1 = db.OpenRecordset(SQL1) Do Until rs1.EOF SQL2 = "select Ticket#, Buy_Sell from obs_for_comparsion where ticket# = " & rs1!Ticket# & "" Set rs2 = db.OpenRecordset(SQL2) Action1 = rs1!Action Action2 = rs2!Buy_Sell CurrentDb.Execute "update compare Set [Ticket#] = rs1!Ticket#" If Action1 = Action2 Then CurrentDb.Execute "Update Compare Set [Action_Check] = 0 where [Ticket#] = " & rs2!Match_No & "" ElseIf Action1 <> Action2 Then CurrentDb.Execute "Update Compare Set [Action_Check] = 1 where [Ticket#] = " & rs2!Match_No & "" End If rs1.MoveNext Loop End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.