Recent content by hilbertm

I am not very experienced with VBA and I could use some help I need to figure out how to code the following situation: I have a publication that is published every 56days. There is a cutoff date to get changes into the publisher to make the next cycle. The cutoff date is 27 days before the...

Travis, Thanks for the quick response. I changed the Query to Show all records from Table 1 and only records from Table 2 where personnel_ID matches. I still have the same problem. When I add a new person to the database on the add a new person form, the new person is added to table 1. When I...

I have 2 tables that are linked via the personnel_ID field. Table 1 holds personnel information and table 2 holds training information. The link works fine with data that is already in the database. When I add a new record in table 1 (personnel information), I have to manually add a new record...

Thanks again for your help. Actually only the first person got the e mail and not the rest that got the check marks. I will have to check the e mail addresses, that may be the problem. I will not be able to check until Friday, since I have some time off. Any ideas on how to trigger the...

The code only sent e mail to the first of 11 people on the query list. Is there a reason from the posted code that this would happen? I would like e mail to be sent to all on the query results. I also need to find a way to change the yes/no field back to no after the training is complete. This...

BukHix, Great, it works. Changes the yes/no box for all that the query filters. The code also sends email to only the first person (first record)on the list. I am well ahead of where I was yesterday. Thanks, looking foward to any more help you can give me.

BukHix, Thanks for the quick answer. Unfortunately I am not that up on VBA. I don’t know where to place your code. I will be studying the help files for now trying to figure it out. Currently my VBA skills are limited, but I am trying to learn. Thanks again, looking for more help. Mike [This...

I am using the following code to send e mail notifications if people are within 30 days of needing training, then if the training is over due another e mail gets sent. Private Sub Form_Current() If (Forms![frmEmailWarnings]![ TngDueEmailSent] = 0) Then Dim rsEmail As...

Rich, Works now!!! You are my hero If it were up to me I would give you an F-16, This has been driving me crazy for a number of weeks now. THANKS, Mike P.S. If you ever find yourself in Hawaii, Lunch is on me. [This message has been edited by hilbertm (edited 11-28-2001).]

kellan4459, Thanks for the reply. In this section of the database, the first form opens with a list of instrument procedures at an airport. I have a listbox that lists all instrument procedures at the particular airport. When I double click on an instrument procedure another form opens up with...

My problem is two fold. First I am not very apt at VBA programming . Second, I have embarked on a project that is quickly getting out of control. I designed a database with one table to track items at work without knowing much about databases. It worked fine at first because I was the only one...

Rich, Thanks that works. Another problem. I’m using the following code to edit the current record on a new form: Private Sub cmdPtasEdit_Click() On Error GoTo Err_cmdPtasEdit_Click DoCmd.OpenForm "frmPtasEdit" Forms!frmPtasEdit!PtasID = Forms![frmMaintForm]![PtasID] Exit_cmdPtasEdit_Click...

I used the following code to enter a new record. Private Sub cmdEnterPtas_Click() On Error GoTo Err_cmdEnterPTAS_Click DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 Me.chkPtasActive = -1 DoCmd.Close acForm, "frmPtasNew" Exit_cmdEnterPTAS_Click: Exit Sub...

Thanks guys. I will have to try the suggestions next week as I have forgot my database at work.

I am using the following code to prompt the use when a new record is added. Private Sub Form_BeforeUpdate(Cancel As Integer) On Error GoTo Form_BeforeUpdate_error Dim intResponse As Integer Dim strMsg As String strMsg = "You have made changes that will add a new record. Do you want to save...