Search results

Have Option Explicit on all modules. I have an error handler at the bottom of the code. Name _ID is a number value. For some reason, this code "lngContactID = rst([Name_ID])" is picking up the Last_Name field for the 1st record, leading to the error message.

Because I don't know better. So change all me.field to rst.field or rst(field)?

Using the earlier version of the code to do one record at a time, it worked and became the primary key in Outlook.

Nope. I'm passed the Do Loop error. Code Compiles. New error #13, AddOlContact, Type mismatch. It error stops at this line (.CustomerID = Me.Name_ID). Hovering over the value it's right for the 1st record. Not sure what the next step to fix is. Private Sub ExportAccessContacts_Click()...

I might have it. Missing an end with.

Concur. I made the adjustments, running into an issue with the Loop, saying it needs a Do. Also do I need to change the .CustomerID = Me.Name_ID to the rst(Name_ID) below as well or is that part of the code ok? Dim rst As Dao.Recordset Set rst =...

I'm bald, so it's already out. I'm tracking the other options available but I like to try and control the environment my user's experience.

The below code works but I'm having to maintain two instances of building the email (one for the initial If and another if we go down the ElseIf statement). How do I come out of an If / ElseIf check and then go into another grouping, all within the same action? Here's a portion of the code...

While I have a way to export a single contact from Access to Outlook, I am finding the need to be able to export the ENTIRE list to a user's Outlook contacts. I need help with the code that would loop thru all of the records, checking to see if a record exists or not (using CustomerID field)...

Thanks for the code. I found both yours and the adjusted code in the comments for the forms helpful. Option Compare Database Option Explicit Public Sub ChangeRecordLockReport() 'accessmvp.com/thedbguy '7/18/2014 Dim rpt As Variant For Each rpt In CurrentProject.AllReports...

A couple of months ago, I thought it would be useful to put record locks on all my forms. Now, I'm resenting the decision. Instead of spending a couple hours opening each form and changing the record lock setting (over 200 forms), can someone help with code that loops thru every form and...

I did exactly what you said, causing that circular logic issue. Damn that was easy.

Are you suggesting taking the form and somehow putting it on the report? I'm not tracking what you're recommending.

I'd love for someone to show me how I can transform a long text, plain text value into a clickable hyperlink in a report. The value that I'm storing works with the Application.FollowHyperlink, but now I want to export my reports with a clickable link. So far, what I've found tells me that I...

At quick glance, at the TreeView, at level 3, it appears that the sort order got reversed. I'm not sure if this is related or not. So I'm going to resort them. Close the TreeView form. Reopen the treeview. For the small group of 3 records that I resquenced, it's correct. Maybe I did...

@MajP Somethings not working right on the sort sequence #. The Level_ID is populating correctly but the sort order isn't. Thoughts just by looking at the output?

Database from https://www.access-programmers.co.uk/forums/threads/cheap-alternative-to-access-imagine.307217/ I was able to take my first picture without issues. Downloaded the zip file, extracted it, added a notional studentID, clicked Take Photo, smiled and clicked Take a snapshot and the...

Yup. I found that one as well. I was just trying to understand what I was signing up for with this Access database as part of the user's setup.

I came across this posting that is a great start for me. I'll need to modify it but it's a great start. https://www.access-programmers.co.uk/forums/threads/cheap-alternative-to-access-imagine.307217/

@gstylianou It's asking me to register for DBPix. Is this the same code as this website? (http://www.ammara.com/dbpix/access.html) Will I have to pay the license fee? $99 (USD)