Search results

This worked wonderfully: Dim strFileName As String Dim rst As DAO.Recordset Dim strEMailTo As String Set appOutLook = CreateObject("Outlook.Application") Set MailOutLook = appOutLook.CreateItem(olMailItem) Set rst = CurrentDb.OpenRecordset("select ContactEmail from Contacts where...

You are amazing! My only problem, is that in the email body - I want to reference (pull in data) on a couple of fields. It no longer allows that ... ------------- Private Sub Command312_Click() Dim strFileName As String Dim rst As DAO.Recordset Dim strEMailTo As String Set appOutLook =...

Hi! I have a command button built with code to send an email, as such: ----------------- Private Sub Command271_Click() DoCmd.SendObject , "", "", "testemail@here.org;test2@here.org", "", "", "New Hire Offer Made", "Good afternoon," & vbCrLf & vbCrLf & "Attached please find the CV for a...

If my form field [urgency] is "time critical", AND my calculated Text53 field calculates >24, I would like to turn the font red. How off am I? :rolleyes: Private Sub Text53_AfterUpdate() If Me.Urgency = "Time Critical (<24h)" And Me.Text53 > 24 Then Me.Text53.ForeColor = vbRed End If...

Problem solved. Apparently the default for the checkbox field was at YES. The default needs to be NO.

Yes, was using dummy names for ease of understanding. Maybe my field names are, in fact, the error? "Study10-055" is the field name for the yes/no checkbox. "StudyID_10055" is the name of the text field (for the study ID). Private Sub Study10_055_AfterUpdate() If Me.[study10-055] = True Then...

I'm trying to code so that a textbox field is only enabled IF a certain checkbox is checked. Using this code: Private Sub checkbox_AfterUpdate() If Me.[checkbox] = True Then Me.[textbox].Enabled = True Else Me.[textbox].Enabled = False End If End Sub When I click the checkbox - I get...

I have a sub-form which I'd like to "expand" based on the number of records. I know grow/shrink is not used for something like this. I'm not a proficient coder, but I tried this: Me.frm_subAssetEdit.Height = Me.Section(0).Height I put this code in the On Resize property in the sub-form, but...

Wonderful! Thank you Plog! I was on the right track creating the separate dates table, but needed the extra help to finalize. Also had to modify for dates not yet discharged to be counted. Really appreciate your help.

I'm wondering if it is possible to create a query off of a table as such: Table fields: PatientID StartDate EndDate How do I create a query that will yield the number of PatientID's for all dates in between Startdate and EndDate for ALL dates, say in 2017. (I.e, I want to know the # of...

That's a new one to me! Thank you!! Great tip!:D

I have a combo box that pulls Staff Names from a table. I have the limit to list as 'yes' (which I want). If Staff Name is not on the list I get an error, "The text you entered isn't an item in the list. Select an item from the list, or enter text that matches one of the listed items." I...

Thank you both for your sound advice. I agree in this case I did it unconventionally. For this simple database, we are only tracking 3 cars per person. But you are right, there is room for error (and duplication) doing it this way. Thanks for reminding me that no matter how 'simple' a...

I was trying to do a work-around. There are actually three fields [car1] [car2] [car3]. In the underlying query of the report, I created a field [car] which concatenates these three. I guess then my question would be how do I count records that would have Honda in either [car1] [car2] or...

I have a report in which one of the fields is [cars]. The field could yield results such as: Honda Jeep Chevy, Jeep Honda, Jeep, Chevy In the footer, I'm trying to count how many where the word Honda shows up. =Count(IIf([car]='Honda',True,Null)) This gives me only 1. How can I do this...

I do need them to share the front end or every time we make an edit to the form or add a tracking field or anything, I'll have to give an updated copy to each user.

I did split the database. Back end of tables. Front end of forms etc. When the second person attempts to open the database it gives that error message - you click OK - and it gives you the error 10 more times. (ironically the number of tables?). It then lets you in and lets you edit.

I just built a database that will be used by about 10 users. V 2016. When one person opens the database, it is fine. When a second person opens they get the error that they cannot open ("you do not have exclusive access to the database at this time"). Under client settings, I have default...

Got it! Private Sub Command784_Click() On Error GoTo Err_Command784_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "PMD-ADD" stLinkCriteria = "[mr#]=" & Me![MR#] stDocName = "Visits Order" DoCmd.OpenForm stDocName, , , stLinkCriteria...

As such? stLinkCriteria = Me.[Text787] or stLinkCriteria = Me.[MR#] The field on the MAIN FORM under properties lists name as Text787, with control source of MR#. I tried both and still not working. Am I completely confused? (Thank you for the field naming tip as...