Blockchain is a technology that underpins the success of Bitcoin and other digital currencies, but it has uses far beyond finance. Learn how blockchain works and why it is proving disruptive to other areas of IT.
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.