Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action.
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
|sql query help||15||55|
|Check a field in Access on a Timer||1||32|
|Open folder via explorer, but stop user from changing folder||6||20|
|find first method with 2 variable search criteria||10||12|