Search results

Thank you all for your answers and help. They all worked, now is choosing a preference. I guess there is more than one way to skin a cat! (Apologies to our cat Gracie!)

I've created a birthday report that groups birthdays by month, then sorts by day. I have a heading for each month written: =MonthName(DatePart("m",[DOB])) DOB is date of birth. However I have a few null values for DOB, so, of course, the null records are grouped under the heading: #type! Is...

I created a database for someone to use on their computer. They do not have the full ACCESS application, so I loaded the runtime version on their computer. I split the database so that I could make changes to the front end without changing any of the data in their tables. Both the FE and the...

This worked! Thank you. I feel so dumb--I should have checked the Open Report code!

I still get this window after closing the first message box. This is the code I have with your changes. Function Macro1() On Error GoTo Macro1_Err Beep MsgBox "There is no data to print.", vbCritical, "No data." DoCmd.CancelEvent Macro1_Exit: Exit Function Macro1_Err: If Err.Number <>...

I have the following code for a “On No Data” event: Private Sub Report_NoData(Cancel As Integer) MsgBox "Nothing to print.", vbCritical, "No data" Cancel = True End Sub On all of my reports, if there is no data, when I close the message box, I get another window that says: “The Open Report...

Yes, I didn’t understand, and I still may not. It is obvious that I am not an expert in ACCESS, nor do I claim to be competent in ACCESS. I changed the Occupation form to not have 3 subforms. Any records that are “History” I added a conditional format. I think I removed the special characters...

Sorry to be slow, but I have finally reworked my database based on your recommendations to simplify things and reduced the forms. The help I need is in the form ‘Occupations’ under the Pastors tab. There are three subforms, one under the Current heading, another under History, and another under...

Yeas

I am using a Navigation Form. One of the subforms is frmOcupation. On that form is a button which opens a popup form, popupOccupationAdd, in which I can add a new record. I have a where expression that automatically inserts the memberID from frmOccupation. I enter the remaining information...

That is not working, either. Same error message. Perhaps I did not give you all the information you need.

Now I get a Run time error 438, Object doesn't support this property or method

When I run the code I get an run error 13, type mismatch on this line: Set ctl = Screen.ActiveControl However, if I continue through the code, it ends up doing exactly what I want it to do!

I have a navigation form, “frmMain.” One form in the navigation form is “frmPastorViewEdit,” which I understand is a subform of frmMain. In the subform is a combo box “cmbEccBody” The bound column is “PresbyID” The combo box has in its List Item Edit Form property “frmPresytery” where one can...

Thank you. That works!

That worked. Thank you.

I placed txtAge: AgeYears([BirthDate]) in the field name of the query but I get a message "Undefined function: 'AgeYears in expression' (Birthdate is the name of the field in my database.) There must be something wrong in the code. I know very little about coding, but I have copied code and...

I copied the following function from a website but edited it to reflect the name of the birth date field: Public Function AgeYears(ByVal BirthDate As Date) As Integer ' Comments: Returns the age in years ' Params : BirthDate Date to check ' Returns : Number of years ' Source : Total Visual...

Thanks so much!

It worked! I'm glad you did it in VBA. I'll learn something from it! The type in green, are those "notes," or are they part of the VBA. I ask as there are a few other forms I can use this in.