Search results

Hi, I am using a MS Surface tablet for a visitor kiosk using MS Access 2016. I have several fields that are required and thus will pop up a msgbox indicating the fields are required if left blank. The problem arises when filling out a text box and the enter key is pressed using the on screen...

I'm using the following code to look a user up by a pin code which works fine. But how do i alert the user if a match is not found. I tried to create a blank record as the first record in the table and match by a blank textbox but couldn't get it to work Private Sub cmdSearch_Click()...

I'm using the following code to send an email from a form. Private Sub Command68_Click() Dim objOutlook As New Outlook.Application Dim objMail As MailItem Dim Header As String Dim Text As String Dim EmailAddr As String Set objOutlook = New Outlook.Application Set objMail =...

Hello, I have a navigation form for entering equipment ID's. On this form is a combo box based on a table "EquipmentType" e.g 1 | Pumps 2 | Vehicles 3 | Storage Tanks Hidden on the form are 3 individual "subtype" combos During data entry if EquipmentType = 1 then "Pumpsubtype" combo box is...

Hello, I'm using the following code to generate an email. Option Compare Database Private Sub SendEmail_Click() Dim olApp As New Outlook.Application Dim mItem As Outlook.MailItem ' An Outlook Mail item Set olApp = CreateObject("Outlook.Application") Set mItem = olApp.CreateItem(olMailItem)...

Is there a way to create a button on a form that will allow me to scan documents into a file folder and save the path in a field for later reference? User clicks button > Opens a prompt to save to file > Opens default scanner interface > User scans documents which saves filepath to current record

hi, Im having an issue with a not in list event for a combo box. i have frm1 with subfrm1 subfrm1 has a combo box with a list of names. if the name is not in the table then trigger not in list event and open form 2. User enters name etc in form 2 then hits submit. i'm trying to requery the...

HI, I'm using the following to display the difference in time in minutes =DateDiff("n",[timein],[timeout]) My question is how do i use it to display in either decimal hours- 1.5 hours hours and minutes - 1:30 for 1 hour 30 minutes

Hello, I'm trying to use the following statement from a continuous form but im getting a type missmatch error Private Sub VisitorName_AfterUpdate() If Me.VisitorType.Value = 3 And CDate(Me.TrainingDate) < Date - 180 Or CDate(Me.TrainingDate) = "" Then MsgBox "This contractor requires...

Hello, I have 3 tables, tblDailyLog DailyLogID | LogDate tblVisitorInfo VisitorID | VisitorName | CompanyName | TrainingDate tblVisitorLog LogID | VisitorName | TimeIn | Time Out I'm using 2 Forms [frmDailyLog] from [tblDailyLog] with a continuous subform [frmVisitorLog] I have entered...

Hi, I'm using the following query to display total completion % for a project. SELECT qryProjectSubSubTaskTotalCount.ProjectSubTaskID, qryProjectSubSubTaskTotalCount.TotalTasks, qryPRojectSubSubTaskCompleteCount.CountOfActualCompletionDate, [CountOfActualCompletionDate]/[TotalTasks] AS...

Hi, I have 2 tables, tblUpdateVersions | UpdateID | StartDate| VersionNum | TblUpdateStatus | UpdateStatusID | VersionNum | UpdateDescription | I'm trying to run a query to show the latest group of records that all have the latest VersionNum from tblUpdateStatus When i use Last or Max...

Hello, I have a PO form (frmOrder) from tblOrder with a field (ProjectID) from (tblProjectCoding). I have a query (qryProjectDetailForm) that pulls several fields from (tblProjectCoding) to show all my projects. I then have a secondary query (qryProjectPurchases) which shows all purchases...

hello, I have an existing database that i currently use to store detailed information on hundreds of machines, instruments and other equipment. This is stored in [tblEquipment] I am building a new project management database for installations of new equipment/machines in order to assist me in...

I am using the following code to change numerous images/text/buttons on my home navigation screen from white to orange when they are highlighted and then returned to white when the mouse is moved back over the background that is behind/ separates the boxes. Private Sub ButMOC_Click()...

Hello, I am using the following code to generate vertical lines for my report but im having a slight overhang. Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) Dim ctrl As Control Dim intLineMargin As Integer ' This is the spacing between the right edge of the ' control and...

Hello, On my report i am using alternating colors. Some of my records can have a lot of text in them where they carry over to another page. i notice that when a new page starts the same record picks up the alternating color on this new page. How would i keep each record color specific?

Hello, I am having 2 issues on my report that i cannot figure out. 1. Empty space appearing on footer of each page. I only want the footer on the last page. 2. Header appears on last page even with no details.

Hello, I have a form that allows multiple users to sign an agreement. combo box (cboyesno) choices are Undecided, Yes, No I have a continuous form that reviews all the open agreements where all parties have not selected Yes. These are open agreements. I would like to display a nice custom...

Hello, I have 2 fields in a form. [Budget] and [RemainingBudget]. I would like to use conditional formatting so that when the remaining budget falls less then 10% of the remaining budget the text will turn yellow. How would i write this?