Improve and reinforce salesforce training & adoption using WalkMe's digital adoption platform. Start saving on costly employee training by creating fast intuitive Walk-Thrus for Salesforce. Claim your Free Account Now
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
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.