Search results

I still cannot figure out what I'm doing to prevent the closing of Access properly. I deleted the code and used only DoCmd.Quit to close the form (fixes the problem). I went back to the original code, again no problem. So, I surmise it's something I'm doing when opening the application. I...

Sorry ... I still don't understand

Thanks for the help. I really know very little VBA. I struggle to get where I'm at. How do you suggest I change the setting.

The following is the code I'm using on Exit. Based on your comments, it appears the code I have prior to DoCmd.Quit is causing the problem. How can I run the code prior to Quit so the program exits correctly? Thanks On Error GoTo Error_Handler Dim SignInTool As DAO.Database Dim rstLoggedIn...

No code for second Access Program

Since I've been working with Access 2013, if I manipulate the Access objects (e.g., queries, forms, etc.), within an Access file (*.accdb) then exit the program, I have trouble reopening the *.accdb file. If I open the Windows Task Manager and look in the Applications tab, Access appears to...

Thank you. That did the trick. The new construct works: CombinedTime: IIf([AppointmentTime]<>"N/A",CDate([AppointmentTime]),[TimeIn])

I have a table with the customer sign-in time [TimeIn]. I have another field with a drop down selection of appointment times (e.g., N/A, 7:00, 7:15, 7:30, 7:45, etc.). In my query I want to sequence the records based on appointment time then [TimeIn]. If there isn't an appointment time (e.g...

Got it ... This date field is auto populated from another field (Field = Now() +7). When I changed Now() to Date() it fixed the problem. Thanks

I have three date fields with a format of DD MMM YY. When I click on two of the date fields the date shows as expected DD MMM YY. I have one date field that show the date and time. The only thing different with this field is that I have a conditional format (change color is < Now()). What...

I'm getting a Type Mismatch error. Any help is appreciated. I want to find records matching a criteria so I can change LoggedIn status to "No" ______________ Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("tblLoggedIn") If rs.RecordCount <> 0 Then 'there are records End If...

I have a form with an unbound field. I want the field to give me a number of dissimilar things. For example ... Record 1: Cat Record 2: Toy Record 3: Cat Record 4: Cat Record 5: Desk I want a count of 3 (Cat, Toy and Desk). Since the items change, I'm unsure how to approach this...

I want to delete a record when the user quits the database. If the user exits the program normally, no problem, but if the program is closed by right clicking the Access icon on the taskbar (bottom of the screen), then the command will not be run. Is there something like Autoexec (commands run...

I want to extract the first word (name) in a query. The field could be ... John P John John Paul I only want "John" to appear. If the space was always present it would be simple. This is what's driving me batty.

I appreciate it very much. One more question ... please. I'm having trouble extracting the first name. FirstName: Mid([FullName],InStr([FullName],",")+1) This pulls the first name but also the middle initial or middle name. I want to limit the extract to the first name only.

Can I call a function in a query?

I have a FullName field in which the name is always LastName followed by a comma followed by the first name followed by MI (or middle name) then suffix. We cannot use hypens, spaces or apostophes in last or first names so the extraction should be simple. Name examples include the following...

Could be different versions but always last name followed by comma followed by first name Doe, John Doe, John A. Doe, John AT Doe, John Kevin

In a query I'm trying to parse the last name from a full name field. I created a new field, with the following code, which works: LastName: Mid([FullName],1,InStr([FullName],',')-1) Instead of having all caps for the field I want proper case (capitalized). I tried the following code but...

In response to Plog. The code is part of a nested If/Then statement (I didn't include all the If/Then statement). Everything responds as expected except when I combine then statements (Primary1Relationship <>). I get no result (no error) but fields don't update either, which is why I thought...