Communication across every corner of your business is essential to increase the velocity of your application delivery and support pipeline. Automate, standardize, and contextualize your communication processes with xMatters.
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.