Search results

I agree, Photos.exe is not there. Looking further, I found this: Then I looked that ProgId up using the find tool and it took me here: When I switch defaults to Firefox, it showed Applications\firefox.exe So, there could be some information here. I can't conclude this is the right way...

@sonic8 I was referring to this key HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts

There is a registry key in the Current User tree where you can get the name of the app that opens a certain file extension. Whatever is in the "a" key returns it. With that you could scan the processes running or their command line argument and if there is a match, you could then explore their...

Of course, you have the benefit of just fetching the data that needs to be displayed and have nothing else going on. Well, in network scenarios, losing connectivity can lead to data corruption and may cause Access to crash. If your app is open for a long time, losing access to the network could...

Maybe write an Enum of the possibilities and unify the methods, because the syntax may differ: Some expect a string, others a Property object. Oh, Thanks for the CC bucks :geek:.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("E:E")) Is Nothing Then If Target.Row >= 3 Then Cancel = True Target.Value = Now() End If End If End Sub

Forgot to post this too Function ccSetCustomProperty(strDbName As String, strPropName As String, intPropType _ As Integer, strPropValue As Variant, tblName As String) As Integer Dim dbs As DAO.Database, cnt As DAO.Container Dim wsp As DAO.Workspace Dim prp As DAO.Property Dim tbl...

Try this, expect bugs, I couldn't test Function ccGetCustomProperty(strDbName As String, strPropName As String, tblName As String) As Variant Dim dbs As DAO.Database, cnt As DAO.Container Dim wsp As DAO.Workspace Dim doc As DAO.Document, prp As DAO.Property, tbl As TableDef Const...

I see that your functions are doing this, essentially: DBEngine.Workspaces(0).Databases(0).Containers("Databases").Documents("UserDefined").Properties.Append But your functions perform checks and let the user choose the objects to work with. I'd say it's the same methodology. Post #13, where...

According to the object browser, you can't add properties to controls. But I don't think that prevents us from adding them in some other way, with a class or something else. I didn't test adding the property, I just checked this:

I recall having used the count of properties somewhere to determine the kind of thing I'm dealing with, so yes, that and other things are mutating as we use them. For example, I created an unbound form with nothing in it: properties count is 250. Now I created a bound form with stuff...

An example of how to set a property for a database and how it appears in the debugger. Posted because because you wrote this: Multiple things allow adding properties. It can be checked with the object browser by searching "properties" as search term. I can see the following, as examples...

You mean something like this? Sub asdasd() Dim prop As Object Set prop = CurrentDb.CreateProperty("CustomProp", 1, False) CurrentDb.Properties.Append prop End Sub

Recuerdo que hablas español. ¿Entonces tienes campos vacíos en la columna izquierda? Si es así, ¿Qué quieres hacer con esos campos? 1. Asignarles un nombre genérico 2. Ignorarlos y pasar al siguiente

If I understood correctly, you have one table with two columns. First column has the names of the merge fields Second column must have the merge fields If so, try the following: Sub AddFields() Dim t As Table Set t = Application.Documents(1).Tables(1) Dim i As Long For i =...

May I suggest you simply go ahead and do the following? 1. Open the VBA IDE 2. Go to View > Watch Window 3. Right click > Add watch 4. Write "application" in the expression input box and keep procedure and module to "All Procedures" and "All Modules", respectively 5. Expand the resulting...

It could be as simple as this: Sub CopyVersions() ' Version1: delete query1 and form1 CreateObject("Scripting.FileSystemObject").CopyFile CurrentProject.FullName, CurrentProject.Path & "\Version1.accdb", True With CreateObject("Access.Application") .OpenCurrentDatabase...

Open the form in design mode. Then, go to Properties pane > Data tab > Record source property There should be some string in the Record source property, that's what your table is bound to. What does it say?

Thanks for the testing, Colin Here's another approach, it also hangs the Access app if the report is too big but, in return, it won't show any dialog because it runs in another instance as I was previously hinting. The code looks like this: Option Compare Database Option Explicit Sub...

I leave you with a playground file, if want to test, just open form1. I tried adding a DoEvents command in a few places of the code, but it did nothing in my tests. You could probably find where it should go with more precision. Here's what my playground setup does: 1. Open form1 2. Click on...