Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.
Private Sub UserForm_Activate() LabelTitle.Caption = "Please Choose The Foreman For The Day" Button_Approve.Caption = "Approve Timesheet" Button_Edit.Caption = "Edit Timesheet" Dim wspace As DAO.Workspace Dim db As DAO.Database Dim rs1 As Recordset Dim Query2 As String Dim timesheet As String 'timesheet = Globals.timesheetidtoapprove timesheet = "'020320081031'" Set wspace = DBEngine.Workspaces(0) Set db = wspace.OpenDatabase(Globals.Databaselocation) Query2 = "Select Timesheet_Date.ForemanID From Timesheet_Date Where Timesheet_Date.TimesheetID = " & timesheet & ";" Set rs1 = db.OpenRecordset(Query2) timesheet = (rs1("ForemanID").Value) '' This is where I am getting an error - No record Found ComboBox_Foreman.AddItem (rs1("ForemanID").Value) rs1.Close db.Close
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
14 Experts available now in Live!