MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
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
|Access form is connected to a subform just fine. I would like to connect the subform to other information in a different table. The connection is at the subform level not the form level.||7||44|
|Check for emails from a particular domain in outlook via VBA - MS ACCESS||9||33|
|Hide shared folder for some users||2||24|
|access to sql migration||5||19|